topic Re: BDC Developemt issue in Application Development and Automation Discussions

BDC Developemt issue

Former Member — Tue, 18 Sep 2012 07:25:29 GMT

I have developed a BDC for CO12 T code.

In that I have to do batch determination. After this if in batch there is 4 material then i have to press 4 times F5 button, if there is 2 material then i have to press 2 times F5 button.

I have did recording for the same, but that qualtity of material change is not recorded, so its giving error.

Please help.

Re: BDC Developemt issue

amol_samte — Tue, 18 Sep 2012 07:57:15 GMT

Hi Ritesh,

Can you provide error.

Regards,

Amol

Re: BDC Developemt issue

Former Member — Tue, 18 Sep 2012 07:59:39 GMT

its doesnot showing any error....just get stop at screen.

Re: BDC Developemt issue

Former Member — Tue, 18 Sep 2012 08:03:31 GMT

This is the BDC program. here after perform bdc_field using 'BDC_OKCODE'
'=TAKE'.

bdc is getting stop.

report ZCO12_BDC
        no standard page heading line-size 255.

type-pools:truxs.

data : begin of it_main occurs 0,
        aufnr(12)," type afrud-aufnr,
        aplfl(6)," type afrud-aplfl,
        vornr(4)," type afrud-vornr,
        lmnga(13)," type afrud-lmnga,
        meinh(3)," type afrud-meinh,
        grund(4)," type afrud-grund,
        budat(8)," type afrud-budat,
        arbpl(8)," type afrud-arbpl,
        werks(4)," type afrud-werks,
        ism01(13)," type afrud-ism01,
        ile01(3)," type afrud-ile01,
   end of it_main.

data : bdcdata like bdcdata occurs 0 with header line.
data:lv_test type char40,
       indx(4) type c.

selection-screen : begin of block b1 with frame title text-006.
parameters: p_file(80)    type c.
selection-screen : end of block b1.

*$*$* At Selection Screen on Value Request                         $*$*
*$*$----------------------------------------------------------------$*$*
at selection-screen on value-request for p_file.

   perform f4_help.

start-of-selection.
   perform upload_file      tables it_main
                               using   p_file.
   perform trans.

*start-of-selection.
*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
form bdc_dynpro using program dynpro.
   clear bdcdata.
   bdcdata-program = program.
   bdcdata-dynpro   = dynpro.
   bdcdata-dynbegin = 'X'.
   append bdcdata.
endform.                    "BDC_DYNPRO

*----------------------------------------------------------------------*
*        Insert field                                                  *
*------------------------ ----------------------------------------------*
form bdc_field using fnam fval.
* IF FVAL <> NODATA.
   clear bdcdata.
   bdcdata-fnam = fnam.
   bdcdata-fval = fval.
   append bdcdata.
* ENDIF.
endform.                    "BDC_FIELD

*&---------------------------------------------------------------------*
*&      Form F4_HELP
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form f4_help .

   data: l_file_name like ibipparms-path .

   CALL FUNCTION 'F4_FILENAME'
     EXPORTING
       program_name = syst-cprog
       dynpro_number = syst-dynnr
       field_name    = 'P_FILE'
     IMPORTING
       file_name     = l_file_name.

   p_file = l_file_name.

endform.                                                    " F4_HELP
*&---------------------------------------------------------------------*
*&      Form TRANS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form trans .

*perform open_group.
   loop at it_main.
     clear bdcdata.
*    refresh bdcdata.
     clear:indx.
     indx = sy-tabix.
     CONDENSE indx.
     perform bdc_dynpro      using 'SAPLCORU' '0300'.
     perform bdc_field       using 'BDC_OKCODE'
                                   '/00'.
     perform bdc_field       using 'BDC_CURSOR'
                                   'AFRUD-ILE01(01)'.
     CLEAR lv_test.

     CONCATENATE 'AFRUD-AUFNR( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test                   "'AFRUD-AUFNR(01)'
                                   IT_MAIN-AUFNR.            " 5000702
     CLEAR lv_test.
     CONCATENATE 'AFRUD-APLFL( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test                    "'AFRUD-APLFL(01)'
                                   IT_MAIN-APLFL.   " 0
     CLEAR lv_test.
     CONCATENATE 'AFRUD-VORNR( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test                   "'AFRUD-VORNR(01)'
                                   IT_MAIN-VORNR.            " 0008
     CLEAR lv_test.
     CONCATENATE 'AFRUD-LMNGA( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test                   "'AFRUD-LMNGA(01)'
                                   IT_MAIN-LMNGA.            " 57.50
     CLEAR lv_test.
     CONCATENATE 'AFRUD-MEINH( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test               "'AFRUD-MEINH(01)'
                                   IT_MAIN-MEINH.   " m
     CLEAR lv_test.
     CONCATENATE 'AFRUD-GRUND( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test           "'AFRUD-GRUND(01)'
                                   IT_MAIN-GRUND.   " 1
     CLEAR lv_test.
     CONCATENATE 'AFRUD-BUDAT( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test         "'AFRUD-BUDAT(01)'
                                   IT_MAIN-BUDAT.   " 27.03.2012
     CLEAR lv_test.
     CONCATENATE 'AFRUD-ARBPL( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test                    "'AFRUD-ARBPL(01)'
                                   IT_MAIN-ARBPL.            " WVGXS107
     CLEAR lv_test.
     CONCATENATE 'AFRUD-WERKS( ' indx ' )' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test                   "'AFRUD-WERKS(01)'
                                   IT_MAIN-WERKS.            " 1100
     CLEAR lv_test.
     CONCATENATE 'AFRUD-ISM01( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test                    "'AFRUD-ISM01(01)'
                                   IT_MAIN-ISM01.   " 8

     CLEAR lv_test.
     CONCATENATE 'AFRUD-ILE01( ' indx ')' into lv_test.
     CONDENSE lv_test.
     perform bdc_field       using lv_test                   "'AFRUD-ILE01(01)'
                                   IT_MAIN-ILE01.   " H

*    at END OF aufnr.
       perform bdc_dynpro      using 'SAPLCORU' '0300'.
       perform bdc_field       using 'BDC_OKCODE'
                                     '=MKAL'.
       perform bdc_field       using 'BDC_CURSOR'
                                     'AFRUD-AUFNR(02)'.
       perform bdc_dynpro      using 'SAPLCORU' '0300'.
       perform bdc_field       using 'BDC_OKCODE'
                                     '=WBDT'.
       perform bdc_field       using 'BDC_CURSOR'
                                     'AFRUD-AUFNR(02)'.
       perform bdc_dynpro      using 'SAPLCOWB' '0130'.
       perform bdc_field       using 'BDC_CURSOR'
                                     'EINTRAG_TEXT'.
       perform bdc_field       using 'BDC_OKCODE'
                                     '=MALL'.
       perform bdc_dynpro      using 'SAPLCOWB' '0130'.
       perform bdc_field       using 'BDC_CURSOR'
                                     'EINTRAG_TEXT'.
       perform bdc_field       using 'BDC_OKCODE'
                                     '=CHFI'.
       perform bdc_dynpro      using 'SAPLV01F' '0100'.
       perform bdc_field       using 'BDC_OKCODE'
                                     '=TAKE'.
       perform bdc_dynpro      using 'SAPLV01F' '0100'.
       perform bdc_field       using 'BDC_OKCODE'
                                     '=TAKE'.
       perform bdc_dynpro      using 'SAPLCOWB' '0130'.
       perform bdc_field       using 'BDC_CURSOR'
                                     'EINTRAG_TEXT'.
       perform bdc_field       using 'BDC_OKCODE'
                                     '=BACK'.
       perform bdc_dynpro      using 'SAPLCORU' '0300'.
       perform bdc_field       using 'BDC_OKCODE'
                                     '=BU'.
       perform bdc_field       using 'BDC_CURSOR'
                                     'AFRUD-AUFNR(02)'.
*perform bdc_transaction using 'CO12'.

       call transaction 'CO12' using bdcdata
                                      mode   'A' "A
                                      update 'A'.
*    PERFORM CHECK.
       refresh bdcdata.
*    endat.
   endloop.

endform.                    " TRANS

form upload_file tables   p_it_main
                   using    p_p_file.
   data: file_name   type string.

   file_name = p_file.

*FORM upload_data.
   data:li_tab_raw_data type truxs_t_text_data.
   data:l_filename      like rlgrap-filename.

   l_filename = p_file.
   CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
     EXPORTING
*     I_FIELD_SEPERATOR    = I_FIELD_SEPERATOR
*     I_LINE_HEADER        = I_LINE_HEADER
       i_tab_raw_data       = li_tab_raw_data
       i_filename           = l_filename
     TABLES
       i_tab_converted_data = p_it_main.
*   EXCEPTIONS
*     CONVERSION_FAILED          = 1
   .

endform.

*FORM CHECK .
*
* IF SY-SUBRC = 0.
*    MESSAGE 'Data convert successfully' TYPE 'I'.
* ELSE.
*    MESSAGE 'Data not converted' TYPE 'I'.
* ENDIF.
*
*
*ENDFORM.

Re: BDC Developemt issue

amol_samte — Tue, 18 Sep 2012 08:04:50 GMT

can you please provide me recording code..

Re: BDC Developemt issue

Former Member — Tue, 18 Sep 2012 08:07:03 GMT

This is the BDC program. In that after perform bdc_field using 'BDC_OKCODE'
'=TAKE'.

bdc is getting stop.

In development server its working fine. in production server its not working.

****

Re: BDC Developemt issue

Former Member — Tue, 18 Sep 2012 08:07:03 GMT

This is the BDC program. In that after perform bdc_field using 'BDC_OKCODE'
'=TAKE'.

bdc is getting stop.

In development server its working fine. in production server its not working.

****

Re: BDC Developemt issue

Former Member — Tue, 18 Sep 2012 08:09:43 GMT

This is the recording code -

report ZP1
        no standard page heading line-size 255.

include bdcrecx1.

start-of-selection.

perform open_group.

perform bdc_dynpro      using 'SAPLCORU' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                               '/00'.
perform bdc_field       using 'BDC_CURSOR'
                               'AFRUD-ILE01(01)'.
perform bdc_field       using 'AFRUD-AUFNR(01)'
                               '000005000701'.
perform bdc_field       using 'AFRUD-APLFL(01)'
                               ''.
perform bdc_field       using 'AFRUD-VORNR(01)'
                               '0010'.
perform bdc_field       using 'AFRUD-UVORN(01)'
                               ''.
perform bdc_field       using 'AFRUD-LMNGA(01)'
                               '12.23'.
perform bdc_field       using 'AFRUD-MEINH(01)'
                               'm'.
perform bdc_field       using 'AFRUD-XMNGA(01)'
                               ''.
perform bdc_field       using 'AFRUD-RMNGA(01)'
                               ''.
perform bdc_field       using 'AFRUD-GRUND(01)'
                               '2'.
perform bdc_field       using 'AFRUD-BUDAT(01)'
                               '15.09.2012'.
perform bdc_field       using 'AFRUD-PERNR(01)'
                               ''.
perform bdc_field       using 'AFRUD-ARBPL(01)'
                               'WVLED101'.
perform bdc_field       using 'AFRUD-WERKS(01)'
                               '1100'.
perform bdc_field       using 'AFRUD-ISM01(01)'
                               '8'.
perform bdc_field       using 'AFRUD-ILE01(01)'
                               'H'.
perform bdc_dynpro      using 'SAPLCORU' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                               '=MKAL'.
perform bdc_field       using 'BDC_CURSOR'
                               'AFRUD-AUFNR(02)'.
perform bdc_dynpro      using 'SAPLCORU' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                               '=WBDT'.
perform bdc_field       using 'BDC_CURSOR'
                               'AFRUD-AUFNR(02)'.
perform bdc_dynpro      using 'SAPLCOWB' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                               'EINTRAG_TEXT'.
perform bdc_field       using 'BDC_OKCODE'
                               '=MALL'.
perform bdc_dynpro      using 'SAPLCOWB' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                               'EINTRAG_TEXT'.
perform bdc_field       using 'BDC_OKCODE'
                               '=CHFI'.
perform bdc_dynpro      using 'SAPLV01F' '0100'.
perform bdc_field       using 'BDC_OKCODE'
                               '=TAKE'.
perform bdc_dynpro      using 'SAPLV01F' '0100'.
perform bdc_field       using 'BDC_OKCODE'
                               '=TAKE'.
perform bdc_dynpro      using 'SAPLCOWB' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                               'EINTRAG_TEXT'.
perform bdc_field       using 'BDC_OKCODE'
                               '=BACK'.
perform bdc_dynpro      using 'SAPLCORU' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                               '=BU'.
perform bdc_field       using 'BDC_CURSOR'
                               'AFRUD-AUFNR(02)'.
perform bdc_transaction using 'CO12'.

perform close_group.

Re: BDC Developemt issue

amol_samte — Tue, 18 Sep 2012 08:14:00 GMT

where is it stopping? did u checked in debugger ?

Re: BDC Developemt issue

Former Member — Tue, 18 Sep 2012 09:06:55 GMT

after data is coming on screen after that its is stopping....

Re: BDC Developemt issue

Former Member — Tue, 18 Sep 2012 09:09:55 GMT

Order Consumption.

Go to CO12

enter the values

Click on Enter, then click on selects all.

Then click on goods movement overview.

Then click on select all.

Click on batch determination.

Then click on f5 for consumption.

Then back & save....

when is it coming to f5 after that it is stopped.

Re: BDC Developemt issue

Former Member — Tue, 18 Sep 2012 09:09:58 GMT

Order Consumption.

Go to CO12

enter the values

Click on Enter, then click on selects all.

Then click on goods movement overview.

Then click on select all.

Click on batch determination.

Then click on f5 for consumption.

Then back & save....

when is it coming to f5 after that it is stopped.