-
Products and Technology
By Category
-
Groups
Activity Groups
Industry Groups
Influence and Feedback Groups
Interest Groups
Location Groups
Customer Only Groups
- Developers
- Partners
- Events
- Help Center
- Topic Pages
-
Explore SAP
Products
Learning and Support
-
- Products and Technology
- Groups
- Developers
- Partners
- Events
- Help Center
- Topic Pages
-
Explore SAP
- Explore SAP
-
Products
- Products
- SAP Business Suite
- Artificial Intelligence
- Business applications
- Data and analytics
- Technology Platform
- Financial Management
- Spend Management
- Supply Chain Management
- Human Capital Management
- Customer Experience
- SAP Business Network
- View products A-Z
- View industries
- Try SAP
- Partners
- Services
- Learning and Support
- About
- SAP Community
- Groups
- Interest Groups
- Application Development and Automation
- Discussions
- Re: BDC Developemt issue
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Mute
- Printer Friendly Page
BDC Developemt issue
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 8:25 AM
- SAP Managed Tags
- ABAP Development
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.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 8:57 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 8:59 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 9:03 AM
- SAP Managed Tags
- ABAP Development
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.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 9:04 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 9:07 AM
- SAP Managed Tags
- ABAP Development
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.
****
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.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 9:07 AM
- SAP Managed Tags
- ABAP Development
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.
****
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.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 9:09 AM
- SAP Managed Tags
- ABAP Development
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.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 9:14 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 10:06 AM
- SAP Managed Tags
- ABAP Development
after data is coming on screen after that its is stopping....
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 10:09 AM
- SAP Managed Tags
- ABAP Development
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.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
2012 Sep 18 10:09 AM
- SAP Managed Tags
- ABAP Development
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.
Bluesky