SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Upload Material Master - Finish Goods



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ММ
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1639

PostPosted: Sat Oct 27, 2007 3:23 pm    Post subject: Upload Material Master - Finish Goods Reply with quote

Code:
**********************************************************
* Prepare you excel file as per inter table RECORD
* and paste it in text file for uplaoding
**********************************************************

report ZSH_MATL_UP
       no standard page heading line-size 255.

include bdcrecx1.

parameters: dataset(132) lower case.

parameters: Mfile like rlgrap-filename default
                 'h:\tape_lepage\UPLOAD\MATL.txt'.
PARAMETERS: CTY(2) OBLIGATORY.

data: begin of record occurs 0,
* data element: MATNR
        MATNR_001(018),
* data element: MBRSH
        MBRSH_002(001),
* data element: MTART
        MTART_003(004),
* data element: XFELD
        KZSEL_01_004(001),
* data element: XFELD
        KZSEL_02_005(001),
* data element: XFELD
        KZSEL_04_006(001),
* data element: XFELD
        KZSEL_05_007(001),
* data element: XFELD
        KZSEL_06_008(001),
********
* data element: XFELD
        KZSEL_09_009(001),
*******
* data element: XFELD
        KZSEL_12_009(001),
* data element: XFELD
        KZSEL_13_010(001),
* data element: XFELD
        KZSEL_14_011(001),
* data element: XFELD
        KZSEL_15_012(001),
* data element: XFELD
        KZSEL_17_013(001),
* data element: XFELD
        KZSEL_18_014(001),

* data element: XFELD
        KZSEL_11_001(001),
* data element: XFELD
        KZSEL_11_005(001),
* data element: XFELD
        KZSEL_11_006(001),
* data element: XFELD
        KZSEL_11_007(001),
* data element: XFELD
        KZSEL_11_008(001),



*** data element: XFELD
**        KZSEL_11_013(001),
*** data element: XFELD
**        KZSEL_12_014(001),
*** data element: XFELD
**        KZSEL_13_015(001),
*** data element: XFELD
**        KZSEL_17_016(001),
*** data element: XFELD
**        KZSEL_18_017(001),
*** data element: XFELD
**        KZSEL_13_018(001),
*** data element: XFELD
**        KZSEL_14_019(001),



* data element: WERKS_D
        WERKS_020(004),
* data element: LGORT_D
        LGORT_021(004),
* data element: VKORG
        VKORG_022(004),
* data element: VTWEG
        VTWEG_023(002),
* data element: MAKTX
        MAKTX_024(040),
* data element: MEINS
        MEINS_025(003),
* data element: MATKL
        MATKL_026(009),
* data element: SPART
        SPART_027(002),
* data element: MTPOS_MARA
        MTPOS_MARA_028(004),
* data element: BRGEW
        BRGEW_029(017),
* data element: GEWEI
        GEWEI_030(003),
* data element: NTGEW
        NTGEW_031(017),
* data element: MAKTX
        MAKTX_032(040),
* data element: MAKTX
        MAKTX_033(040),
* data element: MEINS
        MEINS_034(003),
* data element: SPART
        SPART_035(002),
* data element: MATKL
        MATKL_036(009),
* data element: SKTOF
        SKTOF_037(001),
* data element: TAXKM
        TAXKM_01_038(001),
* data element: TAXKM
        TAXKM_02_039(001),
* data element: MAKTX
        MAKTX_040(040),
* data element: TAXKM
        TAXKM_03_041(001),
* data element: TAXKM
        TAXKM_04_042(001),
* data element: MAKTX
        MAKTX_043(040),
* data element: MEINS
        MEINS_044(003),
* data element: SPART
        SPART_045(002),
* data element: MATKL
        MATKL_046(009),
* data element: SKTOF
        SKTOF_047(001),
* data element: MAKTX
        MAKTX_048(040),
* data element: STGMA
        VERSG_049(001),
* data element: MTPOS_MARA
        MTPOS_MARA_050(004),
* data element: MTPOS
        MTPOS_051(004),
* data element: PROVG
        PROVG_052(002),
* data element: MAKTX
        MAKTX_053(040),
* data element: MEINS
        MEINS_054(003),
* data element: BRGEW
        BRGEW_055(017),
* data element: GEWEI
        GEWEI_056(003),
* data element: NTGEW
        NTGEW_057(017),
* data element: MTVFP
        MTVFP_058(002),
* data element: TRAGR
        TRAGR_059(004),
* data element: LADGR
        LADGR_060(004),
* data element: PRCTR
        PRCTR_061(010),


*ADDED
* data element: MAKTX
        MAKTX_062_1(040),
* data element: MEINS
        MEINS_063_1(003),
* data element: EKGRP
        EKGRP_064_1(003),
******

* data element: MAKTX
        MAKTX_062(040),
* data element: MEINS
        MEINS_063(003),
* data element: EKGRP
        EKGRP_064(003),
* data element: DISMM
        DISMM_065(002),
* data element: DISPO
        DISPO_066(003),
* data element: DISLS
        DISLS_067(002),
* data element: BSTMI
        BSTMI_068(017),
* data element: BSTMA
        BSTMA_069(017),
* data element: MAKTX
        MAKTX_070(040),
* data element: BESKZ
        BESKZ_071(001),
* data element: LGPRO
        LGPRO_072(004),
* data element: RGEKM
        RGEKZ_073(001),
* data element: DZEIT
        DZEIT_074(003),
* data element: FHORI
        FHORI_075(003),
* data element: MAKTX
        MAKTX_076(040),
* data element: PERKZ
        PERKZ_077(001),
* data element: MTVFP
        MTVFP_078(002),
* data element: MAKTX
        MAKTX_079(040),
* data element: MAKTX
        MAKTX_080(040),
* data element: MEINS
        MEINS_081(003),
* data element: LGPRO
        LGPRO_082(004),
* data element: DZEIT
        DZEIT_083(003),
* data element: MAKTX
        MAKTX_084(040),
* data element: MEINS
        MEINS_085(003),
* data element: DATTP
        IPRKZ_086(001),
* data element: MAKTX
        MAKTX_087(040),
* data element: BRGEW
        BRGEW_088(017),
* data element: GEWEI
        GEWEI_089(003),
* data element: NTGEW
        NTGEW_090(017),
* data element: PRCTR
        PRCTR_091(010),
* data element: MAKTX
        MAKTX_092(040),
* data element: MEINS
        MEINS_093(003),
* data element: SPART
        SPART_094(002),
* data element: BKLAS
        BKLAS_095(004),
* data element: VPRSV
        VPRSV_096(001),
* data element: PEINH
        PEINH_097(006),
* data element: STPRS
        STPRS_098(015),
* data element: MAKTX
        MAKTX_099(040),
* data element: MAKTX
        MAKTX_100(040),
* data element: MEINS
        MEINS_101(003),
* data element: CK_EKALREL
        EKALR_102(001),
* data element: HRKFT
        HRKFT_103(004),
* data element: AWSLS
        AWSLS_104(006),
* data element: PRCTR
        PRCTR_105(010),
* data element: CK_LOSGR
        LOSGR_106(017),
* data element: MAKTX
        MAKTX_107(040),
* data element: BKLAS
        BKLAS_108(004),
* data element: VPRSV
        VPRSV_109(001),
* data element: PEINH
        PEINH_110(006),
* data element: STPRS
        STPRS_111(015),
      end of record.

*** End generated data section ***

start-of-selection.


  CALL FUNCTION 'WS_UPLOAD'
       EXPORTING
            FILENAME                = MFILE
            FILETYPE                = 'DAT'
       TABLES
            DATA_TAB                = record
       EXCEPTIONS
            CONVERSION_ERROR        = 1
            FILE_OPEN_ERROR         = 2
            FILE_READ_ERROR         = 3
            INVALID_TYPE            = 4
            NO_BATCH                = 5
            UNKNOWN_ERROR           = 6
            INVALID_TABLE_WIDTH     = 7
            GUI_REFUSE_FILETRANSFER = 8
            CUSTOMER_ERROR          = 9
            OTHERS                  = 10.

  IF SY-SUBRC <> 0.
    WRITE:/ 'SY-SUBRC:', SY-SUBRC.
  ENDIF.



LOOP AT RECORD.

*perform open_dataset using dataset.
*perform open_group.
*
*do.
*
*read dataset dataset into record.
*if sy-subrc <> 0. exit. endif.

perform bdc_dynpro      using 'SAPLMGMM' '0060'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-MTART'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RMMG1-MATNR'
                              record-MATNR_001.
perform bdc_field       using 'RMMG1-MBRSH'
                              record-MBRSH_002.
perform bdc_field       using 'RMMG1-MTART'
                              record-MTART_003.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(15)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=P+'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'
                              record-KZSEL_01_004.
perform bdc_field       using 'MSICHTAUSW-KZSEL(02)'
                              record-KZSEL_02_005.
perform bdc_field       using 'MSICHTAUSW-KZSEL(04)'
                              record-KZSEL_04_006.
perform bdc_field       using 'MSICHTAUSW-KZSEL(05)'
                              record-KZSEL_05_007.
perform bdc_field       using 'MSICHTAUSW-KZSEL(06)'
                              record-KZSEL_06_008.
*****
perform bdc_field       using 'MSICHTAUSW-KZSEL(09)'
                              record-KZSEL_09_009.
*****
perform bdc_field       using 'MSICHTAUSW-KZSEL(12)'
                              record-KZSEL_12_009.
perform bdc_field       using 'MSICHTAUSW-KZSEL(13)'
                              record-KZSEL_13_010.
perform bdc_field       using 'MSICHTAUSW-KZSEL(14)'
                              record-KZSEL_14_011.
perform bdc_field       using 'MSICHTAUSW-KZSEL(15)'
                              record-KZSEL_15_012.
perform bdc_field       using 'MSICHTAUSW-KZSEL(17)'
                              record-KZSEL_17_013.
perform bdc_field       using 'MSICHTAUSW-KZSEL(18)'
                              record-KZSEL_18_014.



perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.

perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'
                              record-KZSEL_11_001.
perform bdc_field       using 'MSICHTAUSW-KZSEL(05)'
                              record-KZSEL_11_005.
perform bdc_field       using 'MSICHTAUSW-KZSEL(06)'
                              record-KZSEL_11_006.
perform bdc_field       using 'MSICHTAUSW-KZSEL(07)'
                              record-KZSEL_11_007.
perform bdc_field       using 'MSICHTAUSW-KZSEL(08)'
                              record-KZSEL_11_008.

*perform bdc_dynpro      using 'SAPLMGMM' '0070'.
*perform bdc_field       using 'BDC_CURSOR'
*                              'MSICHTAUSW-DYTXT(01)'.
*perform bdc_field       using 'BDC_OKCODE'
*                              '/00'.
*perform bdc_dynpro      using 'SAPLMGMM' '0070'.
*perform bdc_field       using 'BDC_CURSOR'
*                              'MSICHTAUSW-DYTXT(14)'.
*perform bdc_field       using 'BDC_OKCODE'
*                              '=ENTR'.
*perform bdc_field       using 'MSICHTAUSW-KZSEL(13)'
*                              record-KZSEL_13_018.
*perform bdc_field       using 'MSICHTAUSW-KZSEL(14)'
*                              record-KZSEL_14_019.


perform bdc_dynpro      using 'SAPLMGMM' '0080'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-DISPR'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'RMMG1-WERKS'
                              record-WERKS_020.
perform bdc_field       using 'RMMG1-LGORT'
                              record-LGORT_021.
perform bdc_field       using 'RMMG1-VKORG'
                              record-VKORG_022.
perform bdc_field       using 'RMMG1-VTWEG'
                              record-VTWEG_023.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_024.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_025.
perform bdc_field       using 'MARA-MATKL'
                              record-MATKL_026.
perform bdc_field       using 'MARA-SPART'
                              record-SPART_027.
perform bdc_field       using 'MARA-MTPOS_MARA'
                              record-MTPOS_MARA_028.
perform bdc_field       using 'BDC_CURSOR'
                              'MARA-NTGEW'.
perform bdc_field       using 'MARA-BRGEW'
                              record-BRGEW_029.
perform bdc_field       using 'MARA-GEWEI'
                              record-GEWEI_030.
perform bdc_field       using 'MARA-NTGEW'
                              record-NTGEW_031.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_032.

perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_033.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_034.
perform bdc_field       using 'MARA-SPART'
                              record-SPART_035.
perform bdc_field       using 'MARA-MATKL'
                              record-MATKL_036.
perform bdc_field       using 'MVKE-SKTOF'
                              record-SKTOF_037.
perform bdc_field       using 'MG03STEUER-TAXKM(01)'
                              record-TAXKM_01_038.
perform bdc_field       using 'MG03STEUER-TAXKM(02)'
                              record-TAXKM_02_039.
perform bdc_field       using 'BDC_CURSOR'
                              'MVKE-AUMNG'.
perform bdc_dynpro      using 'SAPLMGMM' '4200'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_040.
perform bdc_field       using 'MG03STEUER-TAXKM(03)'
                              record-TAXKM_03_041.

IF CTY = 'CA'.
  perform bdc_field       using 'MG03STEUER-TAXKM(04)'
                                record-TAXKM_04_042.
ENDIF.

perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_043.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_044.
perform bdc_field       using 'MARA-SPART'
                              record-SPART_045.
perform bdc_field       using 'MARA-MATKL'
                              record-MATKL_046.
perform bdc_field       using 'MVKE-SKTOF'
                              record-SKTOF_047.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_048.
perform bdc_field       using 'MVKE-VERSG'
                              record-VERSG_049.
perform bdc_field       using 'MARA-MTPOS_MARA'
                              record-MTPOS_MARA_050.
perform bdc_field       using 'MVKE-MTPOS'
                              record-MTPOS_051.
perform bdc_field       using 'MVKE-PROVG'
                              record-PROVG_052.
perform bdc_field       using 'BDC_CURSOR'
                              'MVKE-PRAT1'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_053.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_054.
perform bdc_field       using 'MARA-BRGEW'
                              record-BRGEW_055.
perform bdc_field       using 'MARA-GEWEI'
                              record-GEWEI_056.
perform bdc_field       using 'MARA-NTGEW'
                              record-NTGEW_057.
perform bdc_field       using 'MARC-MTVFP'
                              record-MTVFP_058.
perform bdc_field       using 'MARA-TRAGR'
                              record-TRAGR_059.
perform bdc_field       using 'MARC-LADGR'
                              record-LADGR_060.
perform bdc_field       using 'BDC_CURSOR'
                              'MARC-PRCTR'.
perform bdc_field       using 'MARC-PRCTR'
                              record-PRCTR_061.

perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_062_1.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_063_1.
perform bdc_field       using 'MARC-EKGRP'

                              record-EKGRP_064_1.


perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_062.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_063.
perform bdc_field       using 'MARC-EKGRP'
                              record-EKGRP_064.
perform bdc_field       using 'BDC_CURSOR'
                              'MARC-DISPO'.
perform bdc_field       using 'MARC-DISMM'
                              record-DISMM_065.
perform bdc_field       using 'MARC-DISPO'
                              record-DISPO_066.
perform bdc_field       using 'MARC-DISLS'
                              record-DISLS_067.
perform bdc_field       using 'MARC-BSTMI'
                              record-BSTMI_068.
perform bdc_field       using 'MARC-BSTMA'
                              record-BSTMA_069.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_070.
perform bdc_field       using 'MARC-BESKZ'
                              record-BESKZ_071.
perform bdc_field       using 'MARC-LGPRO'
                              record-LGPRO_072.
perform bdc_field       using 'MARC-RGEKZ'
                              record-RGEKZ_073.
perform bdc_field       using 'BDC_CURSOR'
                              'MARC-DZEIT'.
perform bdc_field       using 'MARC-DZEIT'
                              record-DZEIT_074.
perform bdc_field       using 'MARC-FHORI'
                              record-FHORI_075.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_076.
perform bdc_field       using 'MARC-PERKZ'
                              record-PERKZ_077.
perform bdc_field       using 'MARC-MTVFP'
                              record-MTVFP_078.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_079.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_080.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_081.
perform bdc_field       using 'MARC-LGPRO'
                              record-LGPRO_082.
perform bdc_field       using 'MARC-DZEIT'
                              record-DZEIT_083.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_084.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_085.
perform bdc_field       using 'MARA-IPRKZ'
                              record-IPRKZ_086.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_087.
perform bdc_field       using 'MARA-BRGEW'
                              record-BRGEW_088.
perform bdc_field       using 'MARA-GEWEI'
                              record-GEWEI_089.
perform bdc_field       using 'MARA-NTGEW'
                              record-NTGEW_090.
perform bdc_field       using 'MARC-PRCTR'
                              record-PRCTR_091.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_092.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_093.
perform bdc_field       using 'MARA-SPART'
                              record-SPART_094.
perform bdc_field       using 'BDC_CURSOR'
                              'MBEW-STPRS'.
perform bdc_field       using 'MBEW-BKLAS'
                              record-BKLAS_095.
perform bdc_field       using 'MBEW-VPRSV'
                              record-VPRSV_096.
perform bdc_field       using 'MBEW-PEINH'
                              record-PEINH_097.
perform bdc_field       using 'MBEW-STPRS'
                              record-STPRS_098.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_099.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_100.
perform bdc_field       using 'BDC_CURSOR'
                              'MARC-AWSLS'.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_101.
perform bdc_field       using 'MBEW-EKALR'
                              record-EKALR_102.
perform bdc_field       using 'MBEW-HRKFT'
                              record-HRKFT_103.
perform bdc_field       using 'MARC-AWSLS'
                              record-AWSLS_104.
perform bdc_field       using 'MARC-PRCTR'
                              record-PRCTR_105.
perform bdc_field       using 'MARC-LOSGR'
                              record-LOSGR_106.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_107.
perform bdc_field       using 'MBEW-BKLAS'
                              record-BKLAS_108.
perform bdc_field       using 'MBEW-VPRSV'
                              record-VPRSV_109.
perform bdc_field       using 'MBEW-PEINH'
                              record-PEINH_110.
perform bdc_field       using 'MBEW-STPRS'
                              record-STPRS_111.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
perform bdc_transaction using 'MM01'.

**enddo.
**
**perform close_group.
**perform close_dataset using dataset.

ENDLOOP.
ABAP Tips by :  Shital Kansara
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ММ All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You cannot download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.