BDC for VRTCPR table

Hi all,
I need to do BDC for SM30 t.code for table VRTCPR. i am getting an error message after 15th record because the table control scroll bar is not scrolling. can any one give a sample coding how to make table control scroll down.
Thanks,
Gobi.

Record the BDC as follows and create a program based on your Recording.
1. Go to SM30.
2. Click on maintain.
3. click on Insert New Entry
4. Click on Save.
5. Click on Back.
This will bring each record you are processing to Index 1. you won;t need scrolling of Table control in it at all.
hope this helps.
Amandeep

Similar Messages

BDC for updating table like zstudent

Hi Every One ,
How i write the BDC for updating table.
I'm explaining my scenario , there is a table zstudent - it contains few fields like sno , sname , address. Previously student no.(sno's) like 1,2,3,4,5,6,7,8.... now i'want 1hyd,2hyd,3hyd,4hyd,5hyd,6hyd,.......... like this , and sno is not a primary key remaining all fields are same .
let me inform me , which transaction i use in call transaction.
Please revert me.
Regards,
Krishna

Hello,
Since you have a custom table, you can use all the Open SQL statements available in ABAP
[Open SQL |http://help.sap.com/saphelp_470/helpdata/en/fc/eb3969358411d1829f0000e829fbfe/content.htm]
BDC's are generally used when you wanna update SAP Tables, as we do not know, which all tables will be updated in SAP.
You may use the SHDB tcode, to record a BDC for an tcode: standard or custom
Regards,
Abhishek

BDC For MM02 & MASS - BUS1001

HI,
I am trying to make BDC for updating Table - MARD, Feild - LGPBE using MM02.
The problem I facing is the selection of view (General Plant Data/ Storage 1).
For VERP Materials, it comes to 12th Position, while for HALB Materials is on 15th Position.
The reason for the same is that for VERP Materials, the Sales Views are not maintained.
I am facing the similar kind of problem while creating the BDC for MASS (Using Mass Maintenance - BUS1001).
I need to update the Storage Bin of all Materials.
What is the correct way to upload the same?
Thanks & Regards,
P K Karn

hi PK you have to program your BDC according to material type..
eg if material type = HALB
BDC1
else if material type = VERP
BDC2..
end if
regards..

How to give line items in flatfile while doing BDC for Table control

Hi all,
I am writing BDC for Multiple line items and Transaction is : FSE5N.
How do i give the data in the flat file. I mean how do we give the multiple line items in flat file , i.e for second line item again we have to header data or not ?
ex:
1015;ALL;demo;kr;INR;01;0001;3000172;100
1015;ALL;demo;kr;INR;01;0001;3000172;200
for first lineitem : 3000172;100
for 2nd line item : 3000172; 200.
header data : 1015;ALL;demo;kr;INR;01;0001.
Thanks in advance
krupali

Hii ,
u can give in the same format as u have done in the example.
A B C D E F G H I
1015;ALL;demo;kr;INR;01;0001;3000172;100
1015;ALL;demo;kr;INR;01;0001;3000172;200
and while writing the loop u can give
loop at it_head.
loop at it_head where a = it_head-A and b = it_head-B ..........upto G = it_head-G.
endloop.
endloop.
check this
http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
Neeraj

Problem in bdc for table control for line items

Hi experts,
I am runnig a bdc for ME52.
i am just entering PR number, in the second screen i have got all the line items. I need to select these line item 10 and double click or hit enter, it takes me to screen 3, there im just checking a checkbox and saving.
Again i need to select the line item 20 and double click or hit enter. again the same process.
Again repeat for all the line items.
But my problem is it is updating everytime for only line item 10. for line item 20 and others it say "no chnge in the data".
I am pasting my code here. please check and revert me back .plz.
DATA: w_output LIKE LINE OF i_output.
REFRESH I_ITAB[].
SELECT * FROM EBAN
           INTO TABLE i_itab
           WHERE banfn in s_banfn AND
                 bsart in s_bsart AND
                 bstyp in s_bstyp AND
                 matnr in s_matnr AND
                 werks in s_werks AND
                 lfdat in s_lfdat AND
                 pstyp in s_pstyp AND
                 knttp in s_knttp AND
                 estkz in s_estkz AND
                 loekz eq ' '.
IF sy-subrc = 0.
    CLEAR: w_itab,
             i_poitab[].
    SORT i_itab by banfn.
    LOOP AT i_itab INTO w_itab where menge GT eban-bsmng.
      IF p_close = 'X' AND p_rep = 'X'.
        IF w_itab-ebakz = 'X'.
          w_itab-ebakz = ' '.
          APPEND w_itab to i_poitab.
        ENDIF.
      ELSEIF p_open = 'X' AND p_rep = 'X'.
        IF w_itab-ebakz = ' '.
          w_itab-ebakz = 'X'.
          APPEND w_itab to i_poitab.
        ENDIF.
      ELSEIF p_close = 'X' AND p_repw = 'X'.
        IF w_itab-ebakz = ' '.
          APPEND w_itab to i_poitab.
        ENDIF.
      ELSEIF p_open = 'X' AND p_repw = 'X'.
        IF w_itab-ebakz = 'X'.
          APPEND w_itab to i_poitab.
        ENDIF.
      ENDIF.
    ENDLOOP.
ENDIF.
LOOP AT i_poitab into w_output.
    APPEND w_output to i_output.
   PERFORM CALL_BDC.
endloop.
IF p_rep = 'X'.
PERFORM CALL_BDC.
ENDIF.
ENDFORM.                    " GET_DATA
*&      Form CALL_BDC
      text
--> p1        text
<-- p2        text
FORM CALL_BDC.
DATA: seltab(5) TYPE N,
      seltab1(2) TYPE N,
      tempvar(30) TYPE N,
      cnt TYPE N.
LOOP AT i_output.
clear: seltab,
       seltab1.
seltab = i_output-bnfpo.
seltab1 = seltab+2(2).
perform bdc_dynpro      using 'SAPMM06B' '0105'.
perform bdc_field       using 'BDC_CURSOR'
                              'EBAN-BANFN'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'EBAN-BANFN'
                              i_output-banfn.
perform bdc_dynpro      using 'SAPMM06B' '0106'.
clear tempvar.
*cnt = 1.
concatenate 'EBAN-BNFPO(' seltab1 ')' into tempvar.
perform bdc_field       using 'BDC_CURSOR'
                             'EBAN-BNFPO(seltab1)'.
                                tempvar.
perform bdc_field       using 'BDC_OKCODE'
                              '=DETA'.
perform bdc_field       using 'RM06B-BNFPO'
                              i_output-bnfpo.
perform bdc_field       using 'RM06B-TCSELFLAG(seltab1)'
                             'X'.
perform bdc_dynpro      using 'SAPMM06B' '0102'.
perform bdc_field       using 'BDC_CURSOR'
                              'EBAN-EBAKZ'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BU'.
perform bdc_field       using 'EBAN-EBAKZ'
                              i_output-ebakz.
CALL TRANSACTION 'ME52' USING bdc_data MODE 'A'
                               MESSAGES INTO i_bdcmsg.
    COMMIT WORK AND WAIT.
ENDLOOP.
ENDFORM.                    " CALL_BDC
*&      Form bdc_dynpro
      text
     -->P_0686   text
     -->P_0687   text
FORM bdc_dynpro USING    program dynpro.
CLEAR bdc_data.
bdc_data-program = program.
bdc_data-dynpro   = dynpro.
bdc_data-dynbegin = 'X'.
APPEND bdc_data.
CLEAR bdc_data.
ENDFORM.
thanks,
N

Looks like table control logic is wrong -- do compare with below program...
only table contril area
REPORT ZPadmam
NO STANDARD PAGE HEADING LINE-SIZE 255.
DATA : BEGIN OF itab OCCURS 0,
i1 TYPE i,
lifnr LIKE rf02k-lifnr,
bukrs LIKE rf02k-bukrs,
ekorg LIKE rf02k-ekorg,
ktokk LIKE rf02k-ktokk,
anred LIKE lfa1-anred,
name1 LIKE lfa1-name1,
sortl LIKE lfa1-sortl,
land1 LIKE lfa1-land1,
akont LIKE lfb1-akont,
fdgrv LIKE lfb1-fdgrv,
waers LIKE lfm1-waers,
END OF itab.
DATA : BEGIN OF jtab OCCURS 0,
j1 TYPE i,
banks LIKE lfbk-banks,
bankl LIKE lfbk-bankl,
bankn LIKE lfbk-bankn,
END OF jtab.
DATA : cnt(4) TYPE n.
DATA : fdt(20) TYPE c.
DATA : c TYPE i.
INCLUDE bdcrecx1.
START-OF-SELECTION.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = 'C:\first1.txt'
filetype = 'DAT'
TABLES
data_tab = itab.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = 'C:\second.txt'
filetype = 'DAT'
TABLES
data_tab = jtab.
LOOP AT itab.
PERFORM bdc_dynpro USING 'SAPMF02K' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RF02K-KTOKK'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RF02K-LIFNR'
itab-lifnr.
PERFORM bdc_field USING 'RF02K-BUKRS'
itab-bukrs.
PERFORM bdc_field USING 'RF02K-EKORG'
itab-ekorg.
PERFORM bdc_field USING 'RF02K-KTOKK'
itab-ktokk.
PERFORM bdc_dynpro USING 'SAPMF02K' '0110'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFA1-LAND1'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'LFA1-ANRED'
itab-anred.
PERFORM bdc_field USING 'LFA1-NAME1'
itab-name1.
PERFORM bdc_field USING 'LFA1-SORTL'
itab-sortl.
PERFORM bdc_field USING 'LFA1-LAND1'
itab-land1.
PERFORM bdc_dynpro USING 'SAPMF02K' '0120'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFA1-KUNNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFBK-BANKN(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
cnt = 0.
LOOP AT jtab WHERE j1 = itab-i1.
cnt = cnt + 1.
CONCATENATE 'LFBK-BANKS(' cnt ')' INTO fdt.
PERFORM bdc_field USING fdt jtab-banks.
CONCATENATE 'LFBK-BANKL(' cnt ')' INTO fdt.
PERFORM bdc_field USING fdt jtab-bankl.
CONCATENATE 'LFBK-BANKN(' cnt ')' INTO fdt.
PERFORM bdc_field USING fdt jtab-bankn.
IF cnt = 5.
cnt = 0.
PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFBK-BANKS(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=P+'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFBK-BANKN(02)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
ENDIF.
ENDLOOP.
PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFBK-BANKS(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0210'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFB1-FDGRV'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'LFB1-AKONT'
itab-akont.
PERFORM bdc_field USING 'LFB1-FDGRV'
itab-fdgrv.
PERFORM bdc_dynpro USING 'SAPMF02K' '0215'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFB1-ZTERM'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0220'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFB5-MAHNA'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0310'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFM1-WAERS'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'LFM1-WAERS'
itab-waers.
PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RF02K-LIFNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=YES'.
PERFORM bdc_transaction USING 'XK01'.
ENDLOOP.
PERFORM close_group.
Thanks
Seshu

Bdc for ip01, data upload in table control

I was working on a bdc for ip01 . there is a table control - whose 5 rows are visible and I need to fill data upto 6 row . 6th row get filled by scrolling . will scrolling get captured in recording . whether this is possible or not sir . If yes then how?
Sir please help me.
With regards,

Hi
Scrolling does not get recorded while recording. You can achieve it by having ok_code to p+ or p++.
Refer the following link for detailed description.
http://wiki.sdn.sap.com/wiki/display/ABAP/BatchInputFAQ#BatchInputFAQ-Howtoscrollatablecontrol%3F
Hope this helps you.
Regards
Vinodh

I hav to upload bdc for vk11 trans and table konv.

hi experts,
i m new in BDC... i hav to upload bdc for vk11 trans and table konv.
frst doubt is
i hv to run shdb transc?? or just i hv to write program??
nd cn any1 send me teps as hw to create upload..
Condition Type Sales Organisation Distribution channel Material Price Unit Valid from Valid to
KSCHL VKORG VTWEG MATNR_01 KBETR_01 KPEIN_01 DATAB_01 DATBI_01
now plz tel me hw to do this...whether to run shdb or jus to write program in se38..
or i hv to do both...bt plz tel me step by step

Please don't ignore the warnings. Read the rules of engagement.
Thread locked, again.
Thomas
wrking on ABAP OOPS, oput is coming but 1 field name wd customer name is nt

BDC FOR FB02 to update XREF1_HD and XREF2_HD in BKPF table

Hi
I need to write BDC for FB02 To updated XREF1_HD and XREF2_HD in BKPF table
I need to put this code in Function module.
If i Call this function module is SE38 it shd add data of the above fiileds in BKPF table

Hi,
In FBL3N you need to enter in Settings/Special Fields.( you need to create this fields previously in Customizing under following path>
FI/ Accounts receivable and Accounts payable/ Customer accounts/ Line Items/ Display line items/ Define additional fields for line item display.
Regards,
Miroslav

BDC for TCODE F150

Hi Friends,
I am facing problem while developing BDC for tcode F150. The last action i.e. scheduling for particular dunning date is not getting executed in my BDC.
I am also pasting the end part of my BDC recording. Please review it and advise.
PERFORM bdc_dynpro      USING 'SAPLF150_JOBS' '1000'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                                'F150V-STRZT'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=JOBS'.
PERFORM bdc_field       USING 'F150V-STRDT'
                                rdate.
PERFORM bdc_field       USING 'F150V-XSTRF'
                                'X'.
    select single SPLD into p_out from USR01 where bname = sy-uname.
perform bdc_field       using 'ITCPO-TDDEST'
                                 p_out.
CALL TRANSACTION 'F150'
Thank you,
Swapnil
Edited by: Swapnil Tawade on Sep 22, 2008 3:15 PM

Hi,
   If u want it for some specific plants then before populating data to bdcdata internal table check the conditions for which the plant fields required values to be passed and if the condition is satisfied then pass the plant field to bdcdata table . If the condition is not satisfied then dont pass that plant field to bdcdata table bcoz if u r not passing any field to bdcdata table then that field is going have default values.
Regards,
Shafi

User Exit and BDC for ME22N

Hello All,
A code has been written in the User exit for Tcode ME22N, Which sets the indicator on PO line item. This has been done by modifying the standard itab POT by using field symbols, because the fields to be modified are shown in display mode in the tcode ME22N and cannot be done in BDC. See the below code in user exit ZXM06U43.
DATA char(50) VALUE '(SAPLMEPO)POT[]'.
CLEAR wa_ind.
    FIELD-SYMBOLS <f1> TYPE ANY.
Move memory of internal table POT to field symbol f1.
    ASSIGN (char) TO <f1>.
Move content of f1 to internal table i_ind
    i_ind[] = <f1> .
    LOOP AT i_ind INTO wa_ind.
      IF wa_ind-pstyp = '9'.            " Service PO - item category
IF PO Line item has History per Purchasing Document as 'D'
Set indicators on, for the line item.
        CLEAR v_cnt.
        SELECT COUNT( * ) INTO v_cnt FROM ent5100
                                     WHERE ebeln = wa_ind-ebeln
                                       AND ebelp = wa_ind-ebelp
                                       AND bewtp = 'D'.
        IF sy-subrc = 0.
          wa_ind-wepos = 'X'.            " Set Goods Receipt Indicator
          wa_ind-webre = 'X'.            " Set GR-based IV Indicator
          wa_ind-lebre = 'X'.            " Set Srv-based IV Indicator
        ELSE.
*End of addition SAP-20070910104025 - SL36 - D01K963369
          wa_ind-wepos = ' '.            " Clear Goods Receipt Indicator
          wa_ind-webre = ' '.            " Clear GR-based IV Indicator
          wa_ind-lebre = ' '.            " Clear Srv-based IV Indicator
          wa_ind-xersy = ' '.            " Clear ERS Indicator
        ENDIF.
        MODIFY i_ind FROM wa_ind INDEX sy-tabix.
      ENDIF.
    ENDLOOP.
    <f1> = i_ind[].
ENDIF.
ENDIF.
This code is in production and has been working fine.
The requirnment is now to make this indicator work for all the Purchase order before this code has been written in the Exit. For this my functional suggests that to write a separate program using BDC for PO change and jus add a period/dot in the short text and save it. The code has been written, the user exit and the above code is getting triggrred values are updated in internal table correctly.
However the flags was not set or cleared when seen in the tcode ME22N . This works fine if the tcode me22n is run directly and not working in BDC.
I have tried with ME22 without enjoy transaction in BDC changing the POT Program to SAPMM06E. It does not work.
Please help me as why it is not uodating in the table when using BDC.
Thanks in Advance.
Senthil Kumar

Hi All,
Any luck on this??
Thanks

BDC For T-Code F-02

Dear Friends,
Do anybody has the code for BDC for Transaction Code F-02.
If anybody has plz send me.
Thanks & Reg,
Nishant

try this:
REPORT zfir_f02
       NO STANDARD PAGE HEADING LINE-SIZE 255.
INCLUDE bdcrecx1.
TYPES : BEGIN OF tp_flatfile,
        bldat(10),
        doctyp(2),
        comp(4),
        postdate(10),
        period(2),
        currency(5),
        reference(16),
        htext(25),
        postkey(2),
        account(17),
        amount(16),
        profit(10),
        assign(18),
        text(50),
        busarea(4),
        cost(10),
        bline(10),
        base(16),
        postkey2(2),
        account2(17),
        amount2(16),
        profit2(10),
        assign2(18),
        text2(50),
        busarea2(4),
        END OF tp_flatfile.
DATA : t_flatfile TYPE TABLE OF tp_flatfile WITH HEADER LINE.
DATA : g_file TYPE string.
CLASS cl_abap_char_utilities DEFINITION LOAD.
CONSTANTS:con_tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk1.
*C-- Selection Screen VALUE-REQUEST FOR File path
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name = syst-cprog
      dynpro_number = syst-dynnr
    IMPORTING
      file_name     = p_file.
g_file = p_file.
*START-OF-SELECTION.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = g_file
      filetype                = 'ASC'
      has_field_separator     = 'X'
    TABLES
      data_tab                = t_flatfile
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      OTHERS                  = 17.
     loop at t_flatfile.
     write:/ t_flatfile-doctyp,t_flatfile-amount.
     endloop.
START-OF-SELECTION.
PERFORM open_group.
LOOP AT t_flatfile.
    PERFORM bdc_dynpro      USING 'SAPMF05A' '0100'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RF05A-NEWKO'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'BKPF-BLDAT'
                                  t_flatfile-bldat.
    PERFORM bdc_field       USING 'BKPF-BLART'
                                  t_flatfile-doctyp.
    PERFORM bdc_field       USING 'BKPF-BUKRS'
                                  t_flatfile-comp.
    PERFORM bdc_field       USING 'BKPF-BUDAT'
                                  t_flatfile-postdate.
    PERFORM bdc_field       USING 'BKPF-MONAT'
                                  t_flatfile-period.
    PERFORM bdc_field       USING 'BKPF-WAERS'
                                  t_flatfile-currency.
    PERFORM bdc_field       USING 'BKPF-XBLNR'
                                  t_flatfile-reference.
    PERFORM bdc_field       USING 'BKPF-BKTXT'
                                  t_flatfile-htext.
    PERFORM bdc_field       USING 'FS006-DOCID'
    PERFORM bdc_field       USING 'RF05A-NEWBS'
                                  t_flatfile-postkey.
    PERFORM bdc_field       USING 'RF05A-NEWKO'
                                  t_flatfile-account.
    CASE t_flatfile-postkey.
      WHEN '40' OR '50'.
        PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                      'BSEG-SGTXT'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '/00'.
        PERFORM bdc_field       USING 'BSEG-WRBTR'
                                      t_flatfile-amount.
        PERFORM bdc_field       USING 'BSEG-ZUONR'
                                      t_flatfile-assign.
        PERFORM bdc_field       USING 'BSEG-SGTXT'
                                      t_flatfile-text.
    IF t_flatfile-postkey = '40' and t_flatfile-account > '300000'.
            PERFORM bdc_field       USING 'DKACB-FMORE'
                                      'X'.
    ENDIF.
        PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                      'COBL-KOSTL'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '=ENTE'.
        PERFORM bdc_field       USING 'COBL-GSBER'
                                      t_flatfile-busarea.
       PERFORM bdc_field       USING 'BDC_OKCODE'
                                     '=ENTE'.
        PERFORM bdc_field       USING 'COBL-KOSTL'
                                      t_flatfile-cost.
        PERFORM bdc_field       USING 'COBL-PRCTR'
                                      t_flatfile-profit.
        PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                      'RF05A-NEWKO'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '/00'.
        PERFORM bdc_field       USING 'RF05A-NEWBS'
                                      t_flatfile-postkey2.
        PERFORM bdc_field       USING 'RF05A-NEWKO'
                                      t_flatfile-account2.
        PERFORM debit_credit.
      WHEN '21' OR '31' OR '24' OR '34'.
**perform bdc_field       using 'RF05A-NEWBS'
                             '31'.
**perform bdc_field       using 'RF05A-NEWKO'
                             '25000'.
     PERFORM bdc_field       USING 'DKACB-FMORE'
                                   'X'.
     PERFORM bdc_dynpro      USING 'SAPMF05A' '0302'.
     PERFORM bdc_field       USING 'BDC_CURSOR'
                                   'RF05A-NEWKO'.
     PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '/00'.
     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
     PERFORM bdc_field       USING 'BDC_CURSOR'
                                   'COBL-GSBER'.
     PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '=ENTE'.
     PERFORM bdc_field       USING 'COBL-GSBER'
                                   t_flatfile-busarea.
     PERFORM bdc_field       USING 'COBL-KOSTL'
                                   t_flatfile-cost.
        PERFORM bdc_dynpro      USING 'SAPMF05A' '0302'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                      'RF05A-NEWKO'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '/00'.
        PERFORM bdc_field       USING 'BSEG-WRBTR'
                                      t_flatfile-amount.
        PERFORM bdc_field       USING 'BSEG-GSBER'
                                      t_flatfile-busarea.
        PERFORM bdc_field       USING 'BSEG-ZFBDT'
                                      t_flatfile-bline.
        PERFORM bdc_field       USING 'BSEG-SKFBT'
                                      t_flatfile-base.
        PERFORM bdc_field       USING 'BSEG-ZUONR'
                                      t_flatfile-assign.
        PERFORM bdc_field       USING 'BSEG-SGTXT'
                                      t_flatfile-text.
        PERFORM bdc_field       USING 'RF05A-NEWBS'
                                      t_flatfile-postkey2.
        PERFORM bdc_field       USING 'RF05A-NEWKO'
                                      t_flatfile-account2.
       PERFORM bdc_dynpro      USING 'SAPLFWTD' '0100'.
       PERFORM bdc_field       USING 'BDC_CURSOR'
                                     'WITH_ITEM-WT_WITHCD(01)'.
       PERFORM bdc_field       USING 'BDC_OKCODE'
                                     '=GO'.
        PERFORM debit_credit.
     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.
     PERFORM bdc_field       USING 'BDC_CURSOR'
                                   'RF05A-NEWKO'.
     PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '/00'.
     PERFORM bdc_field       USING 'BSEG-WRBTR'
                                   t_flatfile-amount2.
     PERFORM bdc_field       USING 'BSEG-ZUONR'
                                   t_flatfile-assign2.
     PERFORM bdc_field       USING 'BSEG-SGTXT'
                                   t_flatfile-text2.
     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
     PERFORM bdc_field       USING 'BDC_CURSOR'
                                   'COBL-GSBER'.
     PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '=ENTE'.
     PERFORM bdc_field       USING 'COBL-GSBER'
                                   t_flatfile-busarea2.
     PERFORM bdc_field       USING 'COBL-KOSTL'
                                   t_flatfile-cost.
     PERFORM bdc_field       USING 'COBL-PRCTR'
                                   t_flatfile-profit2.
     PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.
     PERFORM bdc_field       USING 'BDC_CURSOR'
                                   'RF05A-NEWKO'.
     PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '=BU'.
     PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
     PERFORM bdc_field       USING 'BDC_CURSOR'
                                   'COBL-GSBER'.
     PERFORM bdc_field       USING 'BDC_OKCODE'
                                   '=ENTE'.
      WHEN '01' OR '11' OR '04' OR '14' OR '07' OR '17'.
*perform bdc_field       using 'RF05A-NEWBS'
                             '11'.
*perform bdc_field       using 'RF05A-NEWKO'
                             '1'.
        PERFORM bdc_dynpro      USING 'SAPMF05A' '0301'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                      'BSEG-SGTXT'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '/00'.
        PERFORM bdc_field       USING 'BSEG-WRBTR'
                                      t_flatfile-amount.
        PERFORM bdc_field       USING 'BSEG-MWSKZ'
        PERFORM bdc_field       USING 'BSEG-GSBER'
                                      t_flatfile-busarea.
        IF NOT t_flatfile-bline IS INITIAL.
          PERFORM bdc_field       USING 'BSEG-ZFBDT'
                                        t_flatfile-bline.
        ENDIF.
        IF NOT t_flatfile-base IS INITIAL.
          PERFORM bdc_field       USING 'BSEG-SKFBT'
                                        t_flatfile-base.
        ENDIF.
        PERFORM bdc_field       USING 'BSEG-ZUONR'
                                      t_flatfile-assign.
        PERFORM bdc_field       USING 'BSEG-SGTXT'
                                      t_flatfile-text.
        PERFORM bdc_field       USING 'RF05A-NEWBS'
                                      t_flatfile-postkey2.
        PERFORM bdc_field       USING 'RF05A-NEWKO'
                                      t_flatfile-account2.
        PERFORM debit_credit.
    ENDCASE.
*perform bdc_dynpro      using 'SAPMF05A' '0301'.
*perform bdc_field       using 'BDC_CURSOR'
                             'BSEG-WRBTR'.
*perform bdc_field       using 'BDC_OKCODE'
                             '=AB'.
*perform bdc_field       using 'BSEG-WRBTR'
                             '3,000.00'.
*perform bdc_field       using 'BSEG-MWSKZ'
*perform bdc_field       using 'BSEG-GSBER'
                             'VUSO'.
*perform bdc_field       using 'BSEG-ZFBDT'
                             '19.07.2005'.
*perform bdc_field       using 'BSEG-SKFBT'
                             '3,000.00'.
*perform bdc_field       using 'BSEG-ZUONR'
                             'ASSIGN'.
*perform bdc_field       using 'BSEG-SGTXT'
                             'TEXT'.
PERFORM bdc_dynpro      USING 'SAPMF05A' '0700'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                               'RF05A-NEWBS'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                               '=BU'.
*perform bdc_field       using 'BKPF-XBLNR'
                             'REF'.
*perform bdc_field       using 'BKPF-BKTXT'
                             'text'.
    PERFORM bdc_transaction USING 'F-02'.
ENDLOOP.
PERFORM close_group.
*&      Form debit_credit
      text
FORM debit_credit.
**SRINI
IF t_flatfile-postkey = '40' OR t_flatfile-postkey = '50'.
PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                                'COBL-GSBER'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=ENTE'.
ENDIF.
***SRINI
PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RF05A-NEWKO'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '/00'.
PERFORM bdc_field       USING 'BSEG-WRBTR'
                                t_flatfile-amount2.
PERFORM bdc_field       USING 'BSEG-ZUONR'
                                t_flatfile-assign2.
PERFORM bdc_field       USING 'BSEG-SGTXT'
                                t_flatfile-text2.
PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                               'COBL-KOSTL'.
                                'COBL-GSBER'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=ENTE'.
PERFORM bdc_field       USING 'COBL-GSBER'
                                t_flatfile-busarea2.
     PERFORM bdc_field       USING 'COBL-KOSTL'
                                   t_flatfile-cost.
PERFORM bdc_field       USING 'COBL-PRCTR'
                                t_flatfile-profit2.
PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RF05A-NEWKO'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=BU'.
PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                                'COBL-GSBER'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=ENTE'.
ENDFORM.                    "debit_credit
regards,
Bikash

BDC for multiple line items (VA01)

Hi Experts,
I create a BDC for VA01 transaction for single line item in that now i want to upload multiple line items also with o/p of total no. of records uploaded, no. of records posted and the no. of error records...
Can any body explain with sample code...

Hi,
if the flat file is containing header and item records...
first split those records tooo two internal tables header and item..
Loop at header ...
process of recording steps for header....
Loop at item...
here create a varialbe with char 2 .. for index value....
process of item recording steps..
increment the index value by 1....
here u have to pass 'p+' OK_CODE..
Endloop ..(item)
Endloop...(header)
for more info goo through this link...
http://www.sap-img.com/bdc.htm
hope helpful
Raghunath.S

"BDC for multiple line items of PO"

I am using this code to move data for multiple line items of a PO. But only one is getting transferred. I am using BDC for this.
FORM transaction_bdc .
DATA :
v_cnt(2) TYPE n,
v_bst(2) TYPE n,
v_bn TYPE i,
v_bstpo(25),
v_ebtyp(25),
v_menge(25),
v_eeind(25),
v_xblnr(25),
v_xblnr1(25),
v_ebelp(2) TYPE n,
v_ebelpt(2),
v_menge1(11),
v_ebt TYPE i,
v_vebtyp LIKE ekes-ebtyp,
v_eb(2) TYPE n,
v_tcselflag(40),
v_tem(2) TYPE n,
v_correct TYPE i,
v_file TYPE string.
DATA: ls_outtab TYPE tb_struc.
DATA: l_valid TYPE c,
        l_locked TYPE c.
CALL METHOD g_grid->check_changed_data
    IMPORTING
      e_valid = l_valid.
IF l_valid EQ 'X'.
    LOOP AT tb_output WHERE check EQ 'X' .
      MOVE-CORRESPONDING tb_output TO itab_output.
      APPEND itab_output.
      CLEAR itab_output.
    ENDLOOP.
    IF tb_output-check <> 'X'.
      MESSAGE e003 WITH text-004.
    ENDIF.
ENDIF.
IF itab_output[] IS NOT INITIAL.
    PERFORM open_group.
***looping at purchase order level.
    LOOP AT itab_output where ebelp is not initial .
      CLEAR v_bn.
      CLEAR v_ebt.
      PERFORM bdc_dynpro USING 'SAPMM06E' '0105'.
      PERFORM bdc_field USING 'BDC_CURSOR'
      'RM06E-BSTNR'.
      PERFORM bdc_field USING 'BDC_OKCODE'
      '/00'.
      PERFORM bdc_field USING 'RM06E-BSTNR'
      itab_output-ebeln.
***Changing alphanumeric fields and quantity fields to character type**
*v_ebelp = tB_OUTPUT-ebelp.
*clear v_ebelpt.
*v_menge1 = tB_OUTPUT-menge.
*v_ebelpt = v_ebelp.
***End Of Changing**
*Checking for the exact number of the item**
      LOOP AT tb_output where ebeln = itab_output-ebeln.
        READ TABLE itab_output INDEX 1.
        IF tb_output-ebelp = itab_output-ebelp.
          exit.
        ELSE.
          v_bn = v_bn + 1.
        ENDIF.
      ENDLOOP.
v_bst = v_bn + 1.
*End Of Checking**
**Mapping items**
        v_tem = 1.
        CONCATENATE 'RM06E-BSTPO(' v_bst ')' INTO v_bstpo.
        CONCATENATE 'RM06E-TCSELFLAG(' v_tem ')' INTO v_tcselflag.
        PERFORM bdc_dynpro USING 'SAPMM06E' '0120'.
        PERFORM bdc_field USING 'BDC_CURSOR'
        v_bstpo.
        PERFORM bdc_field USING 'BDC_OKCODE'
        '=DETA'.
        PERFORM bdc_field USING 'RM06E-EBELP'
        v_ebelpt.
        PERFORM bdc_dynpro USING 'SAPMM06E' '0111'.
        PERFORM bdc_field USING 'BDC_CURSOR'
        'EKPO-BSTAE'.
        PERFORM bdc_field USING 'BDC_OKCODE'
        '/00'.
        PERFORM bdc_dynpro USING 'SAPMM06E' '0120'.
        PERFORM bdc_field USING 'BDC_CURSOR'
        v_bstpo.
        PERFORM bdc_field USING 'BDC_OKCODE'
        '=BSTA'.
        PERFORM bdc_field USING 'RM06E-EBELP'
        v_ebelpt.
        PERFORM bdc_field USING v_tcselflag
        'X'.
**Checking weather Confirmation category already exists**
        SELECT ebtyp FROM ekes INTO v_vebtyp WHERE ebelp =
        itab_output-ebelp AND ebeln = itab_output-ebeln.
        ENDSELECT.
        IF sy-dbcnt > 0.
          v_ebt = sy-dbcnt.
        ENDIF.
        v_eb = v_ebt + 1.
**End Of Checking**
**For Line items**
        CONCATENATE 'EKES-EBTYP(' v_eb ')' INTO v_ebtyp.
        CONCATENATE 'EKES-MENGE(' v_eb ')' INTO v_menge.
        CONCATENATE 'RM06E-EEIND(' v_eb ')' INTO v_eeind.
        CONCATENATE 'EKES-XBLNR(' v_eb ')' INTO v_xblnr.
**End**
        PERFORM bdc_dynpro USING 'SAPLEINB' '0200'.
        PERFORM bdc_field USING 'BDC_CURSOR'
        v_xblnr.
        PERFORM bdc_field USING 'BDC_OKCODE'
        '=BU'.
        PERFORM bdc_field USING v_ebtyp
        itab_output-ebtyp.
        PERFORM bdc_field USING v_eeind
        itab_output-eindt.
        PERFORM bdc_field USING v_menge
        v_menge1.
        PERFORM bdc_field USING v_xblnr
        itab_output-xblnr.
**End Of Mappings**
*loop at itab_output.
        MOVE-CORRESPONDING itab_output TO ekes.
        modify ekes.
       MOVE-CORRESPONDING itab_output TO eket.
       MODIFY eket.
       MOVE-CORRESPONDING tb_output TO ekpo.
       MODIFY ekpo.
     ENDLOOP.
      CALL TRANSACTION 'ME22N'
      USING itbdc
      MODE   'E'.
      commit work.
perform bdc_transaction using 'ME22N'.
**End Of Purchase Order Loop**
    PERFORM close_group.
    endloop.
     endif.

Hi Asha,
check the below code once...
LOOP AT tb_output where ebeln = itab_output-ebeln.
READ TABLE itab_output INDEX 1.
IF tb_output-ebelp = itab_output-ebelp.
exit.
ELSE.
v_bn = v_bn + 1.
ENDIF.
ENDLOOP.
Here you are reading the table itab_output with index 1, it means you alway reading the first record of that internal table.
Regards,
Satya.

BDC For Line Items In Sales Order

Hello,
I have an internal table of line items which i need it to pass it to BDC for sales order line items creation. Can anybody tell me how to do this like the logic which is used to pass the field names. I just have the material number and Quantity to be passed ..
Thanks
Viky

See below code for Purchase Order :
report zpochange.
data : i_error like bdcmsgcoll occurs 0 with header line.
data : i_bdcdata like bdcdata occurs 0 with header line.
tables : ekko, ekpo.
data :c1(10) value 'ME22',
      c2(1) value ',',c3(10).
data : var1(20). " LIKE EKKO-EBELN.
data : var2 like ekko-ebeln.
data : begin of i_ekko occurs 0,
          header(2),
          ebeln like ekko-ebeln,
          end of i_ekko.
data : begin of i_ekpo occurs 0,
item(2),
        ebeln like ekpo-ebeln,
        ebelp like ekpo-ebelp,
        menge(10), " LIKE EKPO-MENGE,
       end of i_ekpo.
data : v like ekpo-ebelp.
data: begin of itab occurs 0,
         text(300),
        end of itab.
parameters: p_file like ibipparms-path.
*PARAMETERS: PONUMBER LIKE EKPO-EBELN.
at selection-screen on value-request for p_file.
call function 'F4_FILENAME'
exporting
    program_name        = syst-cprog
    dynpro_number       = syst-dynnr
   FIELD_NAME          = ' '
importing
    file_name           = p_file
start-of-selection.
*SELECT EBELN FROM EKKO INTO TABLE I_EKKO WHERE EBELN = PONUMBER.
      SELECT EBELN EBELP MENGE FROM EKPO INTO TABLE I_EKPO WHERE EBELN
*= PONUMBER.
perform get_data.
*LOOP AT ITAB.
WRITE :/ ITAB.
ENDLOOP.
loop at itab.
var1 = itab-text+0(1).
if var1 = 'H'.
*I_EKKO-EBELN = ITAB-TEXT.
split itab at c2 into i_ekko-header
                       i_ekko-ebeln.
SPLIT ITAB AT ',' INTO I_EKKO-EBELN.
                    " I_EKPO-EBELP
                    " I_EKPO-MENGE
                    " var1.
append i_ekko.
else.
split itab at c2 into i_ekpo-item
                        i_ekpo-ebeln
                        i_ekpo-ebelp
                        i_ekpo-menge.
append i_ekpo.
endif.
*var2 = i_ekpo-ebeln.
MOVE VAR1 TO I_EKPO-EBELN.
MOVE VAR1 TO I_EKKO-EBELN.
APPEND: I_EKPO.
*if not var1 is initial.
    split var1 at ',' into i_ekpo-ebelp
                           i_ekpo-menge.
i_ekpo-ebeln = var2.
append i_ekpo.
*endif.
endloop.
loop at i_ekpo.
write :/ i_ekpo.
endloop.
loop at i_ekko.
perform fill_data. " TABLES I_EKPO.
endloop.
LOOP AT I_EKPO.
WRITE :/ I_EKPO.
ENDLOOP.
*&      Form GET_DATA
      text
--> p1        text
<-- p2        text
*LOOP AT I_ERROR.
WRITE :/ I_ERROR.
ENDLOOP.
form get_data.
call function 'WS_UPLOAD'
exporting
   codepage                      = ' '
   filename                      = p_file
   filetype                      = 'ASC'
   headlen                       = ' '
   line_exit                     = ' '
   trunclen                      = ' '
   user_form                     = ' '
   user_prog                     = ' '
   dat_d_format                  = ' '
IMPORTING
FILELENGTH                    =
tables
    data_tab                      = itab
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.
message id sy-msgid type sy-msgty number sy-msgno
         with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform.                    " GET_DATA
*&      Form FILL_DATA
      text
     -->P_I_EKPO text
form fill_data. " tables   i_ekpo .
perform bdcscreen using 'SAPMM06E' '0105'.
perform bdcfield using 'RM06E-BSTNR' i_ekko-ebeln.
perform bdcfield using 'BDC_OKCODE' '/00'.
loop at i_ekpo where ebeln = i_ekko-ebeln.
V = I_EKPO-EBELP.
perform bdcscreen using 'SAPMM06E' 0120.
perform bdcfield using 'BDC_CURSOR' 'RM06E-EBELP'.
perform bdcfield using 'RM06E-EBELP' i_ekpo-ebelp.
perform bdcfield using 'BDC_OKCODE' '/00'.
perform bdcscreen using 'SAPMM06E' 0120.
perform bdcfield using 'BDC_CURSOR' 'EKPO-MENGE(01)'.
perform bdcfield using 'RM06E-EBELP' i_ekpo-ebelp.
perform bdcfield using 'EKPO-MENGE(01)' i_ekpo-menge.
perform bdcfield using 'BDC_OKCODE' '/00'.
*PERFORM BDCSCREEN USING 'SAPMM06E' 0120.
*PERFORM BDCFIELD USING 'BDC_CURSOR' 'RMO6E-EBELP'.
*CLEAR V.
endloop.
perform bdcfield using 'BDC_OKCODE' '=BU'.
call transaction c1 using i_bdcdata mode 'A'
                                   messages into i_error.
refresh i_bdcdata.
endform.                    " FILL_DATA
*&      Form BDCSCREEN
      text
     -->P_0140   text
     -->P_0120   text
form bdcscreen using    p_program p_screen.
i_bdcdata-program = p_program.
i_bdcdata-dynpro = p_screen.
i_bdcdata-dynbegin = 'X'.
append i_bdcdata.
clear i_bdcdata.
endform.                    " BDCSCREEN
*&      Form BDCFIELD
      text
     -->P_0145   text
     -->P_I_EKPO_EBELN text
form bdcfield using    fnam fval.
i_bdcdata-fnam = fnam.
i_bdcdata-fval = fval.
append i_bdcdata.
clear i_bdcdata.
endform.                    " BDCFIELD
I hope same thing for sales order ,i mean both has Table control
Reward Points if it is helpful
Thanks
Seshu

BDC for MIGO for GR OutBound Delivery( A01 & R05 ) from Movement Type 107 to 109

Hi,
I am stuck with a very typical situation need all your expertise and advices for a solution.
We are basically trying to create change the movement type from 107 to 109 through MIGO.
I have made a BDC recording for MIGO ( because we would like to track each delivery specifically under shipment , I know that there is a BAPI which is there to do this but it works fine if we do the shipment with Purchase Order as input which dont want in that manner )
Process:
1. Creating Production Order
2. Creating Purchase Order
3. Creating STO
4. Deliveries
5. PGI for Deliveries
6. Shipment for group of outbound Deliveries
I have created a z program where i am passing shipment number in the selection screen.
Then it would take all the deliveries for that shipment and pass each delivery to MIGO and process it and change the status from 107 to 109.
Interesting part here is, the code works absolutely perfect only from my ID. But when I test from other ID it is not executing, so to check where is the problem I have added mess_tab to the CALL TRANSACTION to capture what message is been populated for my ID comparing with others
Message Captured on Others ID's:
MSGID: 00
MSGNR: 344
MSGV1: SAPLMIGO
MSGV2: 1300
Message Captured on MY ID:
MSGID: MIGO
MSGNR: 012
MSGV1: 5000005802
MSGV2: (empty)
This is the problem this program is executing only on MY ID, rest all ID's it is not processing.
We have cross verified with security and basis regarding any authorization issues but nothing came up.
Please help me what could be the issue ( WHY it is processing successfully for my and WHY NOT for other ID's)
Below is the main code :
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'                     " Converting Date format to DD/MM/YYYY
     EXPORTING
       DATE_INTERNAL            = sy-datum
     IMPORTING
       DATE_EXTERNAL            = lv_date_external
     EXCEPTIONS
       DATE_INTERNAL_IS_INVALID = 1
       OTHERS                   = 2.
       IF SY-SUBRC <> 0.                                     "#EC NEEDED
* Implement suitable error handling here
       ENDIF.
*   Validating input shipment number with database table VTTP
       SELECT VTTP~TKNUM
              VTTP~TPNUM
              VTTP~VBELN
         FROM VTTP INNER JOIN VTTK
         ON VTTP~TKNUM = VTTK~TKNUM
         INTO TABLE IT_VTTP
         WHERE VTTK~TKNUM = P_TKNUM
           AND VTTK~STDIS = 'X'.
       IF sy-subrc = 0.
*   Validating all deliveries having same Delivery type or not
         SELECT * FROM likp INTO TABLE it_likp FOR ALL ENTRIES IN it_vttp WHERE vbeln = it_vttp-vbeln
                                                                            AND vbtyp = 'J'.
         IF sy-subrc = 0.
           CLEAR lv_lines.
           LOOP AT it_likp INTO wa_likp.
             REFRESH:it_vbfa,BDCDATA.
*   Validating if Delivery Type = 109 (GR already done), or Delivery Type = 107 (must process for GR )
             SELECT * FROM vbfa INTO TABLE it_vbfa WHERE vbelv = wa_likp-vbeln
*                                                AND vbtyp_v = 'J'
                                                     AND bwart = '109'.
             IF sy-subrc = 0.
               lv_flag1 = 'X'.
             ELSE.
               SELECT * FROM vbfa INTO TABLE it_vbfa WHERE vbelv = wa_likp-vbeln
*                                                  AND vbtyp_v = 'J'
                                                       AND bwart = '107'.
               IF sy-subrc NE 0.
                 MESSAGE 'No Deliveries with Movement Type "107" ' TYPE 'I'.
               ELSE.
                 lv_flag2 = 'X'.
                 lv_lines = lv_lines + 1.
** BDC for MIGO
                 perform bdc_dynpro      using 'SAPLMIGO' '0001'.
                 perform bdc_field       using 'BDC_OKCODE'
                                               '=OK_GO'.
                 perform bdc_field       using 'GODYNPRO-ACTION'
                                               'A01'.
                 perform bdc_field       using 'GODYNPRO-REFDOC'
                                               'R05'.
                 perform bdc_field       using 'GODEFAULT_TV-BWART'
                                               '109'.
                 perform bdc_field       using 'BDC_CURSOR'
                                               'GODYNPRO-OUTBOUND_DELIVERY'.
                 perform bdc_field       using 'GODYNPRO-OUTBOUND_DELIVERY'
                                               wa_likp-vbeln. "'80019574'.
                 perform bdc_field       using 'GOHEAD-BLDAT'
                                               lv_date_external. "'04/29/2015'.
                 perform bdc_field       using 'GOHEAD-BUDAT'
                                               lv_date_external. "'04/29/2015'.
                 perform bdc_field       using 'GOHEAD-WEVER'
                                               '1'.
                 perform bdc_dynpro      using 'SAPLMIGO' '0001'.
                 perform bdc_field       using 'BDC_OKCODE'
                                               '=OK_POST1'.
                 perform bdc_field       using 'GODEFAULT_TV-BWART'
                                               '109'.
                 perform bdc_field       using 'GOHEAD-BLDAT'
                                               lv_date_external. "'04/29/2015'.
                 perform bdc_field       using 'GOHEAD-LFSNR'
                                               wa_likp-vbeln. "'0080019574'.
                 perform bdc_field       using 'GOHEAD-BUDAT'
                                               lv_date_external. "'04/29/2015'.
                 perform bdc_field       using 'GOHEAD-WEVER'
                                               '1'.
                 perform bdc_field       using 'GODYNPRO-DETAIL_ZEILE'
                                               '   1'.
                 perform bdc_field       using 'GOITEM-ERFME'
                                               'EA'.
                 perform bdc_field       using 'GOITEM-ERFMG'
                                               '1'.
                 perform bdc_field       using 'GOITEM-LSMNG'
                                               '1'.
                 perform bdc_field       using 'GOITEM-LSMEH'
                                               'EA'.
                 perform bdc_field       using 'GOITEM-MIGO_ELIKZ'
                                               '1'.
                 perform bdc_field       using 'GOITEM-BWART'
                                               '109'.
                 perform bdc_field       using 'GOITEM-LGOBE'
                                               'RX Cross-docking'.
                 perform bdc_field       using 'BDC_CURSOR'
                                               'GODYNPRO-DETAIL_TAKE'.
                 perform bdc_field       using 'GODYNPRO-DETAIL_TAKE'
                                               'X'.
                 PERFORM bdc_dynpro      USING 'SAPLMIGO' '1300'.
                 PERFORM bdc_field       USING 'BDC_CURSOR'
                                               'G_TIP_DONT_SHOW_AGAIN'.
                 PERFORM bdc_field       USING 'BDC_OKCODE'
                                               '=OK_TIP_GO'.
                 PERFORM bdc_field       USING 'G_TIP_DONT_SHOW_AGAIN'
                                               'X'.
*& Avoid unncessary screens to populate while processing background.
                 LV_OPTIONS-DISMODE = 'N'.
                 LV_OPTIONS-UPDMODE = 'S'.
                 LV_OPTIONS-NOBINPT = 'X'.
                 CALL TRANSACTION 'MIGO' USING BDCDATA OPTIONS FROM LV_OPTIONS MESSAGES INTO IT_MESSTAB1 .
                 WAIT UP TO 1 SECONDS.
                 DELETE IT_MESSTAB1 WHERE MSGTYP NE 'E'.
                 IF IT_MESSTAB1[] IS NOT INITIAL.
                   APPEND LINES OF IT_MESSTAB1 TO IT_MESSTAB.
                 ENDIF.
               ENDIF.
             ENDIF.
           ENDLOOP.
         ENDIF.
       ELSE.
         MESSAGE 'Shipment Number does not exists Or not Planned' TYPE 'E'.
       ENDIF.
     ELSE.
       MESSAGE 'Please insert Shipment Number' TYPE 'E'.
     ENDIF.
     IF lv_flag1 = 'X' AND lv_flag2 = 'X'.
       MESSAGE 'This shipment is processed with an inconsistent goods receipt' TYPE 'I'.
     ELSEIF lv_flag1 = 'X'.
       MESSAGE 'Shipment already been processed for these deliveries' TYPE 'I'.
     ELSEIF lv_flag2 = 'X'.
       lv_lines1 = lv_lines.
       CONDENSE lv_lines1 NO-GAPS .
       CONCATENATE lv_lines1 'Goods Receipt are posted for the shipment '
              INTO lv_message SEPARATED BY space.
       MESSAGE lv_message TYPE 'I'.
     ENDIF.
* Display Messages from Message TAB.
     DELETE ADJACENT DUPLICATES FROM IT_MESSTAB.
     DATA:lv_msg TYPE string.
     LOOP AT IT_MESSTAB INTO WA_MESSTAB.
       CALL FUNCTION 'FORMAT_MESSAGE'
         EXPORTING
           ID        = WA_MESSTAB-MSGID
           NO        = WA_MESSTAB-MSGNR
           V1        = WA_MESSTAB-MSGV1
           V2        = WA_MESSTAB-MSGV2
           V3        = WA_MESSTAB-MSGV3
           V4        = WA_MESSTAB-MSGV4
         IMPORTING
           MSG       = lv_msg
         EXCEPTIONS
           NOT_FOUND = 1
           OTHERS    = 2.
       IF sy-subrc <> 0.
* Implement suitable error handling here
       ENDIF.
       WRITE:/ lv_msg.
     ENDLOOP.
*        Start new screen                                              *
   FORM BDC_DYNPRO USING PROGRAM DYNPRO.                 "#EC PF_NO_TYPE
     CLEAR BDCDATA.
     BDCDATA-PROGRAM = PROGRAM.
     BDCDATA-DYNPRO   = DYNPRO.
     BDCDATA-DYNBEGIN = 'X'.
     APPEND BDCDATA.
   ENDFORM.
*        Insert field                                                  *
   FORM BDC_FIELD USING FNAM FVAL.                       "#EC PF_NO_TYPE
     CLEAR BDCDATA.
     BDCDATA-FNAM = FNAM.
     BDCDATA-FVAL = FVAL.
     APPEND BDCDATA.
   ENDFORM.
Thanks,
Srini

Hi Rob,
Thanks for quick reply.
I have checked the NOTE : 304122
But there in the NOTE it says ( " BAPI, BAPI_GOODSMVT_CANCEL, BAPI_GOODSMVT_CREATE, CNTL_ERROR" )
These BAPI's work perfectly for (purchase order as input type), but here out type is ( A01 & R05 ) we are giving DELIVERY NUMBER as input to MIGO.
So for this scenario we cannot use those BAPI's mentioned in the NOTE.
Also as stated earlier in the message interesting part is
"The code works absolutely perfect only from my ID. But when I test from other ID it is not executing. Code is working exactly as expected ONLY to my ID. When i try to execute the same code from another's ID it is not working"
So what do you think might be the issue?

BDC for VRTCPR table

Similar Messages

Maybe you are looking for