TEXT_CONVERT_XLS_TO_SAP error
Hi friends i am using the following
FM
FORM GET_MAT_FROM_SPREAD .
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
i_line_header = 'X'
i_tab_raw_data = it_raw " WORK TABLE
i_filename = p_FILE2
TABLES
i_tab_converted_data = i_spreadsheet[] . "ACTUAL DATA
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF SY-SUBRC = 0.
ENDIF.
ENDFORM. " GET_MAT_FROM_SPREAD
i_spreadsheet is an int table
I_SPREADSHEET TYPE STANDARD TABLE OF T_MATERIAL,
and t_material is as follows
YPES:
BEGIN OF T_MATERIAL,
INDEX(3) TYPE C,
MATNR TYPE MARA-MATNR, "Material Number
MENGE TYPE MSEG-MENGE,
MEINS TYPE MARA-MEINS, "Base Unit of Measure
MAKTX TYPE MAKT-MAKTX, "Materialdescription
MATKL TYPE MARA-MATKL, "Material group
WGBEZ60 TYPE T023T-WGBEZ60,"Material grp Desc.
END OF T_MATERIAL,
i am using an excel sheet vth same data as above
eg:Item Item Number Qty U/M Description
1 1000000093 12 EA BATTERY LITHIUM 3.6V A/B 1770XY-B
2 1000000094 42 EA BATTERY F/PLC5 PROCESSOR A/B
but i am getting the following error
Error during conversion - field type conflict (see long text)
desc:
Diagnosis
The sending and receiving fields have conflicting types. The receiving field has type P. Value Qty was supposed to be transferred to this field, but this conflicts with the type definition for the receiving field.
The incorrect field is field 1 of the receiver structure. Record 7 of the input file contains an error.
System response
Conversion to the SAP format is terminated.
Procedure
Correct the data in the input file.
<REMOVED BY MODERATOR>
Edited by: Alvaro Tejada Galindo on Mar 12, 2008 3:19 PM
Hi venkat,
befor i kept comments for exceptions so i got that error
now i used
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
i_line_header = 'X'
i_tab_raw_data = it_raw " WORK TABLE
i_filename = p_FILE2
TABLES
i_tab_converted_data = i_spreadsheet[] "ACTUAL DATA
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF SY-SUBRC = 0.
ENDIF.
OK, I got the first item to upload to bid, but not the remaining.
Bid Invitation
Item
Basic Data
1
D
I
1
Normal
1
Material
1E+09
BATTERY L
00/00/00
0:00:00
00/00/00
00/00/00
*00
EA
USD
1E+09
Bid Invitation
Item
Basic Data
2
D
I
2
Normal
1
Material
BATTERY F
00/00/00
0:00:00
00/00/00
00/00/00
*00
EA
USD
Bid Invitation
Item
Basic Data
3
D
I
3
Normal
1
Material
Cable t89
00/00/00
0:00:00
00/00/00
00/00/00
*00
EA
USD
Edited by: sukruthi raj on Mar 12, 2008 8:37 PM
Similar Messages
-
Error-while executing Standard FM 'TEXT_CONVERT_XLS_TO_SAP'
Hi Gurus,
I'm using Standard FM 'TEXT_CONVERT_XLS_TO_SAP' ,
while executing i got an Error " Error generating test Frame'
Description:
Error generating the test frame
Message no. FL819
Diagnosis
The system could not generate a syntactically correct test frame for function module TEXT_CONVERT_XLS_TO_SAP. You therefore cannot test the function module using the test environment. You have probably used an ABAP feature in the interface definition that is not yet supported in the test environment.
The error message is:
"OF" expected after "TABLE".
System Response
Procedure
Check whether you can change the interface of the function module so that it is possible to generate the test frame. If this is not possible,you will have to write your own utility for testing the function module.
Procedure for System Administrationhai siva..
iam sending a sample prg. check it out.
it will be helpful for U to solve the problem.
type-pools : truxs.
types : begin of ty_tab,
f1(10) type c,
f2(10) type c,
f3(10) type c,
end of ty_tab.
data : wa_tab type ty_tab,
lt_tab like standard table of wa_tab.
data : i_tab_raw_data type truxs_t_text_data.
data : fnam type ibipparms-path.
parameter : p_fnam type rlgrap-filename.
at selection-screen on value-request for p_fnam.
call function 'F4_FILENAME'
importing
file_name = fnam
p_fnam = fnam.
start-of-selection.
call function 'TEXT_CONVERT_XLS_TO_SAP'
exporting
i_tab_raw_data = i_tab_raw_data
i_filename = fnam
tables
i_tab_converted_data = lt_tab.
loop at lt_tab into wa_tab.
write :/ wa_tab-f1, wa_tab-f2.
endloop. -
Error while file upload by FM "TEXT_CONVERT_XLS_TO_SAP"
HI all,
I need to upload an excel file to SAP system ,for the same i am using the FM TEXT_CONVERT_XLS_TO_SAP in following way.
TYPE-POOLS truxs.
DATA: lv_raw TYPE truxs_t_text_data.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
i_field_seperator = 'X' "is an .xls file
i_line_header = 'X' "has a header line
i_tab_raw_data = lv_raw
i_filename = v_file
TABLES
i_tab_converted_data = etd_itab
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
But i get sy-subrc = 1,which is conversion error.
The structure of the etd_itab is same as the excel file ,even the field names are same ,still i wonder why should the conversion error been encountered .
Am i missing on anything ?
Please comment.
Thanks,
SwatiHi ,
The structure of my excel file and the data is as follows
PO_NO Item Div Material Vend PO_Date PO Bal.
4400000001 10 C SVC-PART-01 BCCS 2006.10.29 12
4500000348 10 L BA41-00383A BCCS 0
Following is the program flow
TYPES : BEGIN OF gt_etd ,
po_no LIKE ekpo-ebeln,
item LIKE ekpo-ebelp,
div LIKE mara-spart,
material LIKE kondd-smatn,
vend LIKE ekko-lifnr,
po_date LIKE ekpo-aedat,
po_bal LIKE ekpo-menge,
delivery_date LIKE ekes-eindt,
END OF gt_etd.
DATA: etd_itab TYPE STANDARD TABLE OF gt_etd WITH HEADER LINE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pcfile.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = '.xls'
def_path = 'C:\'
mask = ',.txt;.xls,.txt;.xls.'
mode = 'O'
title = ' '
IMPORTING
filename = pcfile
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF pcfile IS INITIAL.
WRITE: / 'SELECT UPLOAD FILE !'.
ELSE.
MOVE pcfile TO v_file.
ENDIF.
*ETD file upload
CLEAR: lv_raw, etd_itab[].
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
i_field_seperator = ' ' "is an .xls file
i_line_header = ' ' "has a header line
i_tab_raw_data = lv_raw
i_filename = v_file
TABLES
i_tab_converted_data = etd_itab
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
Please advice ,why am i getting conversion error.
Thanks a lot . -
TEXT_CONVERT_XLS_TO_SAP FM is throughing an error
Dear Friends,
I am uploading a xls file into internal table using TEXT_CONVERT_XLS_TO_SAP.
The file strusture is as below.
Row1: Customer City
Row 2: Customer City
Row2: 2000001 ABD
My requirement is to skip the first two row details, as they are just the field titles and i need not consider the first two row's.
I should pick the data from Third row onwards which is actual data.
I have to use this TEXT_CONVERT_XLS_TO_SAP FM only.
I have passed the
i_line_header = 'X'
in the function module it is deleting only one header hower to remove the other header what i have to do , because the FM is throughing an error conversion_failed.
Please help me .
Thanks
madhuriHi,
You can do it as follows:
TYPE-POOLS:truxs.
DATA:li_tab_raw_data TYPE truxs_t_text_data.
DATA: BEGIN OF i_tab OCCURS 0,
fld1(6) TYPE c,
END OF i_tab.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
I_LINE_HEADER =
i_tab_raw_data = li_tab_raw_data
i_filename = 'C:\temp\test1_xls.xls'
TABLES
i_tab_converted_data = i_tab
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
LOOP AT i_tab.
IF sy-tabix EQ 1 OR sy-tabix EQ 2. "for first 2 rows
CONTINUE.
ENDIF.
ENDLOOP.
Or you can use following FM
ALSM_EXCEL_TO_INTERNAL_TABLE
call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
exporting
filename = file
i_begin_col = 1
i_begin_row = 3 "to start from 3rd row
i_end_col = 2 "depends on # of col's
i_end_row = 65000
tables
intern = iexcel
exceptions
inconsistent_parameters = 1
upload_ole = 2
others = 3.
Thanks,
Vikram -
Error in using FM TEXT_CONVERT_XLS_TO_SAP
hi all,
i am using FM 'TEXT_CONVERT_XLS_TO_SAP ' to upload the excel into my internal table , but i am getting below error -
Error during conversion - field type conflict
The sending and receiving fields have conflicting types. The receiving field has type P. Value BCTR1 was supposed to be transferred to this field, but this conflicts with the type definition for the receiving field.
The incorrect field is field 1 of the receiver structure.
BCTR1 is the value of Material field which has the data type of char18 in the table.
and i have declared my internal table also with the same structure of table.
please help me on this.
Edited by: shweta gupta on Feb 16, 2012 9:03 AMtable structure is below -
z_table -
MANDT MANDT CLNT 3
KUNNR KUNNR CHAR 10
MATNR MATNR CHAR 18
INV_PER ZZSV_INVPER DEC 5
MAX_ORD_QTY ZZSV_MOQ QUAN 15
ETD_DAYS ZZSV_ETD_DAYS INT4 10
BUS_ST_DATE ZZSV_BUS_ST_DT DATS 8
BUS_END_DATE ZZSV_BUS_END_DT DATS 8
DIS_FLAG ZZSV_DIS_FLG CHAR 1
ERDAT ERDAT DATS 8
ERZET ERZET TIMS 6
ERNAM ERNAM CHAR 12
UDATE AEDAT DATS 8
UTIME CDUZEIT TIMS 6
UNAME CDUSERNAME CHAR 12
and in my program i declared the table like below -
i_data type standard table of Z_table.
using the function module like below -
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
I_LINE_HEADER = 'X'
i_tab_raw_data = i_raw
i_filename = v_file
tables
i_tab_converted_data = i_data
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2 -
TEXT_CONVERT_XLS_TO_SAP getting error, need help!
Good day, everyone!
I am using FM TEXT_CONVERT_XLS_TO_SAP to read in an Excel file. However, I am getting an error, and the error information I'm displaying isn't helping me much. I'm using the widely-found sample code for this FM that is on this forum. Here's my error routine after the FM call:
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
The problem is that this information isn't helpful to me. When I run it, I get this:
"Error during conversion - field type conflict (see long text)"
There are values in the sy-msgv fields, but aside from one value being a value from my Excel spreadsheet, I don't know what the others mean. I've searched and can find no documentation for this FM. Also, I don't know how to "see long text."
Can anyone help? Points awarded for all helpful answers.
Thanks!!Hi venkat,
befor i kept comments for exceptions so i got that error
now i used
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
i_line_header = 'X'
i_tab_raw_data = it_raw " WORK TABLE
i_filename = p_FILE2
TABLES
i_tab_converted_data = i_spreadsheet[] "ACTUAL DATA
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF SY-SUBRC = 0.
ENDIF.
OK, I got the first item to upload to bid, but not the remaining.
Bid Invitation
Item
Basic Data
1
D
I
1
Normal
1
Material
1E+09
BATTERY L
00/00/00
0:00:00
00/00/00
00/00/00
*00
EA
USD
1E+09
Bid Invitation
Item
Basic Data
2
D
I
2
Normal
1
Material
BATTERY F
00/00/00
0:00:00
00/00/00
00/00/00
*00
EA
USD
Bid Invitation
Item
Basic Data
3
D
I
3
Normal
1
Material
Cable t89
00/00/00
0:00:00
00/00/00
00/00/00
*00
EA
USD
Edited by: sukruthi raj on Mar 12, 2008 8:37 PM -
Error generating Function Module 'TEXT_CONVERT_XLS_TO_SAP'
Hi All,
When i am executing the FM 'TEXT_CONVERT_XLS_TO_SAP' i am getting the error Error generating the test frame.
Can you please tell me how to execute the FM.
Thanks & Regards,
Vivek AgarwalHello...
Iam sending a sample code.
Hope it will helps U how to deal with FM : TEXT_CONVERT_XLS_TO_SAP.
TYPE-POOLS : TRUXS.
TYPES : BEGIN OF TY_TAB,
F1(10) TYPE C,
F2(10) TYPE C,
F3(10) TYPE C,
END OF TY_TAB.
DATA : WA_TAB TYPE TY_TAB,
LT_TAB LIKE STANDARD TABLE OF WA_TAB.
DATA : I_TAB_RAW_DATA TYPE TRUXS_T_TEXT_DATA.
DATA : FNAM TYPE IBIPPARMS-PATH.
PARAMETER : P_FNAM TYPE RLGRAP-FILENAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAM.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
FILE_NAME = FNAM
P_FNAM = FNAM.
START-OF-SELECTION.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_TAB_RAW_DATA = I_TAB_RAW_DATA
I_FILENAME = FNAM
TABLES
I_TAB_CONVERTED_DATA = LT_TAB.
LOOP AT LT_TAB INTO WA_TAB.
WRITE :/ WA_TAB-F1, WA_TAB-F2.
ENDLOOP.
But my suggestion is why cant you use FM : ALSM_EXCEL_TO_INTERNAL_TABLE
instead of TEXT_CONVERT_XLS_TO_SAP.
The performance can be improved much by ALSM... FM.
Thanks and Regards
Sekhar.C -
TEXT_CONVERT_XLS_TO_SAP in background job schedule giving error
Hi Experts,
I used TEXT_CONVERT_XLS_TO_SAP to upload excel data. it is working fine in forground.
As large volume of data is there, I sheduled it in back ground using SM 36/ SM37.
data is not getting uploaded. I closed the excel file...still it is not getting uploaded. internal table contains no data.
Can any one help me on this....
Regards,
apuriHi kiran,
he function modulw which u r using is GUI function module.
Gui function module will not work in background jobs.
Thanks, -
Error in using FM /pbs/select_into_table
HI all,
I am using FM /pbs/select_into_table inside the loop ( select option ) for the first time it is working fine for the second loop I am getting this error.
<b> Archive 001228-001/pbs/CPMM is Already open</b>
If I give only one value in the select option i.e if the loop gets executed only once I am getting expected results.
In order to avoid that instead of using loop I have passed the values in select option as a table entry to the FM SCHL1_IN. but this also didnt help.
Any pointers regarding this will be highly appreciated .
I have also refreshed table from which I am getting data from FM every time before the call to FM.table structure is below -
z_table -
MANDT MANDT CLNT 3
KUNNR KUNNR CHAR 10
MATNR MATNR CHAR 18
INV_PER ZZSV_INVPER DEC 5
MAX_ORD_QTY ZZSV_MOQ QUAN 15
ETD_DAYS ZZSV_ETD_DAYS INT4 10
BUS_ST_DATE ZZSV_BUS_ST_DT DATS 8
BUS_END_DATE ZZSV_BUS_END_DT DATS 8
DIS_FLAG ZZSV_DIS_FLG CHAR 1
ERDAT ERDAT DATS 8
ERZET ERZET TIMS 6
ERNAM ERNAM CHAR 12
UDATE AEDAT DATS 8
UTIME CDUZEIT TIMS 6
UNAME CDUSERNAME CHAR 12
and in my program i declared the table like below -
i_data type standard table of Z_table.
using the function module like below -
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
I_LINE_HEADER = 'X'
i_tab_raw_data = i_raw
i_filename = v_file
tables
i_tab_converted_data = i_data
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2 -
Errors in Flat files while using BDC
*Hey Experts,*
*I have made a BDC program which uploads an excel file into the system.Check the coding below*
*I tried to run the same data but i received the following error at the system status.*
*Excel file://c:\cannot be processed .on checking in details i received this*
*Message no. UX893*
*Diagnosis*
*An error occurred while attempting to process Excel file FILE://C:\Users\Administrator\Desktop\jack abaper\.*
*Check whether:*
*the file exists*
*you have authorization to process the file*
*Excel is installed and can be run*
*System Response*
*Excel file FILE://C:\Users\Administrator\Desktop\jack abaper\ is not processed. The activity is terminated.*
*Procedure*
*When the error has been corrected, restart the program.*
*is there a way for the program to check the exact cause of error,like for my case the same data i was uploading.*
*if it could tell me which row of data in the file is bringing this error.Apart from that I am to run this program in background not foreground ,please note of that while forgering a solution.*
*Does anyone have a solution for this,or a better way gladly accept?*
*Thank you my fellow abapers*
*all help is appreciated.*
*regds*
*Ja*
*Below see program>>>*
REPORT z_uploadbdc NO STANDARD PAGE HEADING LINE-SIZE 255.
TYPE-POOLS: truxs.
SELECTION-SCREEN : BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
PARAMETERS: p_file TYPE rlgrap-filename OBLIGATORY DEFAULT 'C:\'.
SELECTION-SCREEN : END OF BLOCK blk1.
*& Global Declarations
TYPES: BEGIN OF t_datatab,
col1(30) TYPE c,
col2(30) TYPE c,
col3(30) TYPE c,
END OF t_datatab.
DATA: it_datatab TYPE STANDARD TABLE OF t_datatab,
wa_datatab TYPE t_datatab.
DATA: it_raw TYPE truxs_t_text_data.
TYPES: BEGIN OF ty_material,
matnr TYPE matnr,
anzahl TYPE anzahl,
eqtyp TYPE eqtyp,
servon TYPE servon,
serbis TYPE serbis,
sernr TYPE serbis,
END OF ty_material.
DATA: it_material TYPE TABLE OF ty_material,
wa_material TYPE ty_material,
it_bdcdata TYPE TABLE OF bdcdata,
wa_bdcdata TYPE bdcdata.
Table for messages from call transaction.
The table is automatically filled with messages from call transaction.
DATA BEGIN OF messtab OCCURS 10.
INCLUDE STRUCTURE bdcmsgcoll.
DATA END OF messtab.
DATA : WF_MESSAGE(100).
REFRESH MESSTAB.
*& AT SELECTION SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
field_name = 'P_FILE'
IMPORTING
file_name = p_file.
*include bdcrecx1.
*& START-OF-SELECTION
START-OF-SELECTION.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
i_line_header = 'X'
i_tab_raw_data = it_raw
i_filename = p_file
TABLES
i_tab_converted_data = it_material
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid
TYPE sy-msgty
NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*perform open_group.
LOOP AT it_material INTO wa_material.
PERFORM bdc_dynpro USING 'SAPMIEQ0' '2000'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RISA0-SERNR(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'BU'.
PERFORM bdc_field USING 'RISA0-MATNR'
wa_material-matnr.
PERFORM bdc_field USING 'RISA0-ANZAHL'
wa_material-anzahl.
PERFORM bdc_field USING 'EQUI-EQTYP'
wa_material-eqtyp.
PERFORM bdc_field USING 'RISA0-SERVON'
wa_material-servon.
PERFORM bdc_field USING 'RISA0-SERBIS'
wa_material-serbis.
PERFORM bdc_field USING 'RISA0-SERNR(01)'
wa_material-sernr.
perform bdc_transaction using 'IQ04'.
CALL TRANSACTION 'IQ04' USING it_bdcdata
MODE 'A' UPDATE 'S'
MESSAGES into messtab.
REFRESH it_bdcdata.
ENDLOOP.
*& Form bdc_dynpro
text
-->PROGRAM text
-->DYNPRO text
FORM bdc_dynpro USING program dynpro.
CLEAR wa_bdcdata.
wa_bdcdata-program = program.
wa_bdcdata-dynpro = dynpro.
wa_bdcdata-dynbegin = 'X'.
APPEND wa_bdcdata TO it_bdcdata.
ENDFORM. "bdc_dynpro
*& Form bdc_field
text
-->FNAM text
-->FVAL text
FORM bdc_field USING fnam fval.
CLEAR wa_bdcdata.
wa_bdcdata-fnam = fnam.
wa_bdcdata-fval = fval.
APPEND wa_bdcdata TO it_bdcdata.
ENDFORM. "bdc_field
perform close_group.
Edited by: JackAbaper on Feb 8, 2012 3:11 PM
Edited by: JackAbaper on Feb 8, 2012 3:14 PM
Edited by: JackAbaper on Feb 8, 2012 3:15 PMHi ,
This is what you can do.
Upload the file from presentation server to the application server through CG3Z.
Then you can fetch the file from Application server to your BDC program (Which you want to run in background).
Regards,
Chandan. -
Hi,
I had done an uploading using call transaction method.
I had handled the error records in Exel sheet. But the requirement is to show
only the record having the error field.
For example if we have an error record like
Rec no date Begin balance ending balance posting date
75 20070426 85000 90000 20070426
if there is any error in date it must display only the date field not the whole record..like that if there is any error in balance it must show only the balance field in excel sheet .
Iam attaching the code below..
*& Form CALL_TRANSACTION
FORM call_transaction.
DATA: l_index LIKE sy-tabix.
CALL TRANSACTION c_tcode USING bdcdata
MODE c_mode
MESSAGES INTO messtab.
*POPULATE THE ERROR RECORDS INTO INTERNAL TABLE
IF SY-SUBRC NE 0.
GU_DOWNLOAD-HBKID = GU_UPLOAD-HBKID.
GU_DOWNLOAD-HBKID = GU_UPLOAD-HBKID.
GU_DOWNLOAD-HKTID = GU_UPLOAD-HKTID.
GU_DOWNLOAD-AZNUM = GU_UPLOAD-AZNUM.
GU_DOWNLOAD-AZDAT = GU_UPLOAD-AZDAT.
GU_DOWNLOAD-ESALD = GU_UPLOAD-ESALD.
GU_DOWNLOAD-SSALD = GU_UPLOAD-SSALD.
GU_DOWNLOAD-BUDTM = GU_UPLOAD-BUDTM.
GU_DOWNLOAD-MNAM1 = GU_UPLOAD-MNAM1.
GU_DOWNLOAD-JNAME = GU_UPLOAD-JNAME.
GU_DOWNLOAD-VGMAN = GU_UPLOAD-VGMAN.
GU_DOWNLOAD-VALUT = GU_UPLOAD-VALUT.
GU_DOWNLOAD-KWBTR = GU_UPLOAD-KWBTR.
GU_DOWNLOAD-CHECT_KF = GU_UPLOAD-CHECT_KF.
APPEND GU_DOWNLOAD.
*DISPLAY THE PROGRESS OF PROCESS
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = 0
TEXT = 'Downloading is in process'.
*DOWNLOADING THE ERROR RECORD
LV_OUT = P_FNAME2.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = LV_OUT
WRITE_FIELD_SEPARATOR = 'X'
TABLES
DATA_TAB = GU_DOWNLOAD.
ENDIF.
IF NOT messtab[] IS INITIAL.
PERFORM format_message.
ENDIF.
ENDFORM. " CALL_TRANSACTION
*& Form DISPLAY-DATA
FORM display-data.
SKIP.
WRITE: 'SY-SUBRC' , sy-subrc.
ENDFORM. " DISPLAY-DATAHi Vijay,
Go through this program u can understand very well.
rePORT ymmbdcmm01
NO STANDARD PAGE HEADING LINE-SIZE 255.
*& Table Declarations *
TABLES:rmmg1,makt,mara,mvke, marc,mbew,t100.
TYPE-POOLS: truxs.
DATA: it_raw TYPE truxs_t_text_data.
*& Data Declarations *
DATA:
BEGIN OF t_data OCCURS 0,
data TYPE string,
END OF t_data.
DATA:BEGIN OF it_mess OCCURS 0,
msgtyp(5),
lms(200),
msgv1(50),
END OF it_mess.
DATA: BEGIN OF it_itab OCCURS 0,
matnr TYPE rmmg1-matnr,
mbrsh TYPE rmmg1-mbrsh,
mtart TYPE rmmg1-mtart,
werks TYPE rmmg1-werks,
lgort TYPE rmmg1-lgort,
vkorg TYPE rmmg1-vkorg,
vtweg TYPE rmmg1-vtweg,
maktx TYPE makt-maktx,
meins TYPE mara-meins,
matkl TYPE mara-matkl,
spart TYPE mara-spart,
GEWEI TYPE MARA-GEWEI,
dwerk TYPE mvke-dwerk,
versg TYPE mvke-versg,
mtpos TYPE mvke-mtpos,
mtvfp TYPE marc-mtvfp,
tragr TYPE mara-tragr,
ladgr TYPE marc-ladgr,
sernp TYPE marc-sernp,
txline(25), "added
kordb ,
mprof TYPE mara-mprof,
ekgrp TYPE marc-ekgrp,
dismm TYPE marc-dismm,
dispo TYPE marc-dispo,
disls TYPE marc-disls,
mabst(13) TYPE c,
beskz TYPE marc-beskz,
sobsl TYPE marc-sobsl,
lgpro TYPE marc-lgpro,
dzeit TYPE c,
plifz(3) TYPE c,
webaz TYPE c,
fhori TYPE marc-fhori,
eisbe TYPE c,
strgr(2) TYPE c,
vrmod TYPE c,
vint1(3),
vint2(3),
wzeit(3),
sbdkz TYPE marc-sbdkz,
bklas TYPE mbew-bklas,
vprsv TYPE mbew-vprsv,
verpr(11),
peinh TYPE c,
ekalr TYPE mbew-ekalr,
losgr TYPE c,
RGEKZ(1),
fevor(3),
END OF it_itab.
*decl of internal table of table control for BDCDATA & BDCMSGCOLL
DATA : BEGIN OF bdcdata OCCURS 0.
INCLUDE STRUCTURE bdcdata.
DATA: END OF bdcdata.
DATA:it_msgtab TYPE STANDARD TABLE OF bdcmsgcoll WITH HEADER LINE,
it_msgtab1 TYPE STANDARD TABLE OF bdcmsgcoll WITH HEADER LINE.
DATA : fld(50) TYPE c,
cnt(2) TYPE n,
l_mstring(150).
START-OF-SELECTION.
*& File uploading from xlsheet to sap *
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
i_line_header = 'X'
i_tab_raw_data = it_raw
i_filename = 'C:\Documents and Settings\sapthamm\Desktop\mm02.xls'
TABLES
i_tab_converted_data = it_itab
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*& Splitting the Internal Table *
LOOP AT t_data.
SPLIT t_data-data AT cl_abap_char_utilities=>horizontal_tab INTO
it_itab-matnr
it_itab-mbrsh
it_itab-mtart
it_itab-werks
it_itab-lgort
it_itab-vkorg
it_itab-vtweg
it_itab-maktx
it_itab-meins
it_itab-matkl
it_itab-spart
it_itab-GEWEI
it_itab-dwerk
it_itab-versg
it_itab-mtpos
it_itab-mtvfp
it_itab-tragr
it_itab-ladgr
it_itab-sernp
it_itab-mprof
it_itab-ekgrp
it_itab-dismm
it_itab-dispo
it_itab-disls
it_itab-mabst
it_itab-beskz
it_itab-sobsl
it_itab-lgpro
it_itab-dzeit
it_itab-plifz
it_itab-webaz
it_itab-fhori
it_itab-eisbe
it_itab-strgr
it_itab-vrmod
it_itab-vint1
it_itab-vint2
it_itab-wzeit
it_itab-sbdkz
it_itab-bklas
it_itab-vprsv
it_itab-peinh
it_itab-ekalr
it_itab-losgr
APPEND it_itab.
CLEAR: it_itab,
t_data-data.
ENDLOOP.
*perform open_dataset using dataset.
*perform open_group.
*do.
*read dataset dataset into it_itab.
*if sy-subrc <> 0. exit. endif.
*& it_itabing of Material Type-HALB *
LOOP AT it_itab.
PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RMMG1-MATNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RMMG1-MATNR'
it_itab-matnr.
PERFORM bdc_field USING 'RMMG1-MBRSH'
it_itab-mbrsh.
PERFORM bdc_field USING 'RMMG1-MTART'
it_itab-mtart.
PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(17)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=P+'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(02)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(04)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(05)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(06)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(08)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(09)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(12)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(13)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(14)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(15)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(17)'
'X'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(09)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(02)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(06)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(07)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(08)'
'X'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(09)'
'X'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '0080'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RMMG1-VTWEG'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_field USING 'RMMG1-WERKS'
it_itab-werks.
PERFORM bdc_field USING 'RMMG1-LGORT'
it_itab-lgort.
PERFORM bdc_field USING 'RMMG1-VKORG'
it_itab-vkorg.
PERFORM bdc_field USING 'RMMG1-VTWEG'
it_itab-vtweg.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'BDC_CURSOR'
'MARA-SPART'.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
PERFORM bdc_field USING 'MARA-MATKL'
it_itab-matkl.
PERFORM bdc_field USING 'MARA-SPART'
it_itab-spart.
PERFORM bdc_field USING 'MARA-GEWEI'
'kg'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MAKT-MAKTX'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
PERFORM bdc_field USING 'MARA-SPART'
it_itab-spart.
PERFORM bdc_field USING 'MVKE-DWERK'
it_itab-dwerk.
PERFORM bdc_field USING 'MARA-MATKL'
it_itab-matkl.
PERFORM bdc_field USING 'MVKE-SKTOF'
'X'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MG03STEUER-TAXKM(02)'.
PERFORM bdc_field USING 'MG03STEUER-TAXKM(01)'
'0'.
PERFORM bdc_field USING 'MG03STEUER-TAXKM(02)'
'1'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4200'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
*perform bdc_field using 'MAKT-MAKTX'
it_itab-MAKTX_040.
*perform bdc_field using 'BDC_CURSOR'
'MG03STEUER-TAXKM(05)'.
PERFORM bdc_field USING 'MG03STEUER-TAXKM(03)'
'1'.
PERFORM bdc_field USING 'MG03STEUER-TAXKM(04)'
'1'.
PERFORM bdc_field USING 'MG03STEUER-TAXKM(05)'
'0'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MAKT-MAKTX'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
PERFORM bdc_field USING 'MARA-SPART'
it_itab-spart.
PERFORM bdc_field USING 'MVKE-DWERK'
it_itab-dwerk.
PERFORM bdc_field USING 'MARA-MATKL'
it_itab-matkl.
PERFORM bdc_field USING 'MVKE-SKTOF'
'X'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'BDC_CURSOR'
'MVKE-MTPOS'.
PERFORM bdc_field USING 'MVKE-VERSG'
it_itab-versg.
PERFORM bdc_field USING 'MVKE-MTPOS'
it_itab-mtpos.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
PERFORM bdc_field USING 'MARA-GEWEI'
'KG'.
PERFORM bdc_field USING 'MARC-MTVFP'
it_itab-mtvfp.
PERFORM bdc_field USING 'MARA-TRAGR'
it_itab-tragr.
PERFORM bdc_field USING 'MARC-LADGR'
it_itab-ladgr.
PERFORM bdc_field USING 'BDC_CURSOR'
'MARC-SERNP'.
PERFORM bdc_field USING 'MARC-SERNP'
it_itab-sernp.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4040'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=LTEX'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RSTXT-TXLINE(02)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=TXVB'.
PERFORM bdc_field USING 'RSTXT-TXLINE(02)'
'pcb assembly'.
PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RSTXT-TXLINE(02)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=TXBA'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4040'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=SP09'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
PERFORM bdc_field USING 'MARC-EKGRP'
it_itab-ekgrp.
PERFORM bdc_field USING 'MARA-MATKL'
it_itab-matkl.
PERFORM bdc_field USING 'MARC-KORDB'
'X'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MARA-MPROF'.
PERFORM bdc_field USING 'MARA-MPROF'
it_itab-mprof.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
PERFORM bdc_field USING 'MARC-EKGRP'
it_itab-ekgrp.
PERFORM bdc_field USING 'MARC-DISMM'
it_itab-dismm.
PERFORM bdc_field USING 'MARC-DISPO'
it_itab-dispo.
PERFORM bdc_field USING 'BDC_CURSOR'
'MARC-MABST'.
PERFORM bdc_field USING 'MARC-DISLS'
it_itab-disls.
PERFORM bdc_field USING 'MARC-MABST'
it_itab-mabst.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARC-BESKZ'
it_itab-beskz.
PERFORM bdc_field USING 'MARC-SOBSL'
it_itab-sobsl.
PERFORM bdc_field USING 'MARC-LGPRO'
it_itab-lgpro.
if it_itab-sernp = 'TJSL'.
PERFORM bdc_field USING 'MARC-RGEKZ'
ELSE.
PERFORM bdc_field USING 'MARC-RGEKZ'
'1'.
ENDIF.
PERFORM bdc_field USING 'MARC-DZEIT'
it_itab-dzeit.
PERFORM bdc_field USING 'MARC-PLIFZ'
it_itab-plifz.
PERFORM bdc_field USING 'MARC-WEBAZ'
it_itab-webaz.
PERFORM bdc_field USING 'MARC-FHORI'
it_itab-fhori.
PERFORM bdc_field USING 'MARC-EISBE'
it_itab-eisbe.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARC-PERKZ'
'M'.
PERFORM bdc_field USING 'MARC-STRGR'
it_itab-strgr.
PERFORM bdc_field USING 'MARC-VRMOD'
it_itab-vrmod.
PERFORM bdc_field USING 'MARC-VINT1'
it_itab-vint1.
PERFORM bdc_field USING 'MARC-VINT2'
it_itab-vint2.
PERFORM bdc_field USING 'BDC_CURSOR'
'MARC-WZEIT'.
PERFORM bdc_field USING 'MARC-MTVFP'
it_itab-mtvfp.
PERFORM bdc_field USING 'MARC-WZEIT'
it_itab-wzeit.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'BDC_CURSOR'
'MARC-SBDKZ'.
PERFORM bdc_field USING 'MARC-SBDKZ'
it_itab-sbdkz.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MAKT-MAKTX'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
PERFORM bdc_field USING 'MARC-FEVOR'
'001'.
PERFORM bdc_field USING 'MARC-LGPRO'
it_itab-lgpro.
PERFORM bdc_field USING 'MARC-SERNP'
it_itab-sernp.
PERFORM bdc_field USING 'MARC-DZEIT'
it_itab-dzeit.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MAKT-MAKTX'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
*perform bdc_field using 'MARA-IPRKZ'
it_itab-IPRKZ.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MAKT-MAKTX'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-GEWEI'
'KG'.
PERFORM bdc_field USING 'MARC-SERNP'
it_itab-sernp.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
PERFORM bdc_field USING 'MARA-SPART'
it_itab-spart.
PERFORM bdc_field USING 'BDC_CURSOR'
'MBEW-VPRSV'.
PERFORM bdc_field USING 'MBEW-BKLAS'
it_itab-bklas.
*perform bdc_field using 'MBEW-EKLAS'
it_itab-EKLAS.
PERFORM bdc_field USING 'MBEW-VPRSV'
'v'.
PERFORM bdc_field USING 'MBEW-PEINH'
'1'.
perform bdc_field using 'MBEW-VERPR'
it_itab-VERPR.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MAKT-MAKTX'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MAKT-MAKTX'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS'
it_itab-meins.
PERFORM bdc_field USING 'MBEW-EKALR'
'X'.
PERFORM bdc_field USING 'MARC-AWSLS'
'000001'.
PERFORM bdc_field USING 'MARC-LOSGR'
'1'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_itab-maktx.
PERFORM bdc_field USING 'BDC_CURSOR'
'MBEW-ZPLPR'.
*perform bdc_field using 'MBEW-ZPLPR'
'6000'.
PERFORM bdc_field USING 'MBEW-BKLAS'
it_itab-bklas.
PERFORM bdc_field USING 'MBEW-VPRSV'
'V'.
PERFORM bdc_field USING 'MBEW-PEINH'
'1'.
PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=YES'.
CALL TRANSACTION 'MM01' USING bdcdata MODE 'A'
UPDATE 'S'
MESSAGES INTO it_msgtab.
CLEAR bdcdata[].
CLEAR it_itab.
PERFORM error.
ENDLOOP.
*& Declaration of Error Handling *
i
it_msgtab1-msgv1 = it_msgtab-msgv1.
it_msgtab1-msgv2 = it_msgtab-msgv2.
it_msgtab1-msgv3 = it_msgtab-msgv3.
APPEND it_msgtab1.
ENDLOOP.
download error message to a file by using function module
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE =
filename = 'C:\Documents and Settings\sapthamm\Desktop\error.xls'
filetype = 'ASC'
APPEND = ' '
write_field_separator = 'X'
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
WRITE_EOL = ABAP_TRUE
IMPORTING
FILELENGTH =
TABLES
data_tab = it_mess
FIELDNAMES =
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*& Form BDC_DYNPRO
text
-->PROGRAM text
-->DYNPRO text
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 <> .
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDIF.
ENDFORM. "BDC_FIELD
form error.
LOOP AT it_msgtab.
IF it_msgtab-msgtyp = 'E'.
SELECT SINGLE * FROM t100 WHERE sprsl = it_msgtab-msgspra
AND arbgb = it_msgtab-msgid
AND msgnr = it_msgtab-msgnr.
IF sy-subrc = 0.
l_mstring = t100-text.
IF l_mstring CS '&1'.
REPLACE '&1' WITH it_msgtab-msgv1 INTO l_mstring.
REPLACE '&2' WITH it_msgtab-msgv2 INTO l_mstring.
REPLACE '&3' WITH it_msgtab-msgv3 INTO l_mstring.
REPLACE '&4' WITH it_msgtab-msgv4 INTO l_mstring.
ELSE.
REPLACE '&' WITH it_msgtab-msgv1 INTO l_mstring.
REPLACE '&' WITH it_msgtab-msgv2 INTO l_mstring.
REPLACE '&' WITH it_msgtab-msgv3 INTO l_mstring.
REPLACE '&' WITH it_msgtab-msgv4 INTO l_mstring.
ENDIF.
CONDENSE l_mstring.
it_mess-msgtyp = it_msgtab-msgtyp.
it_mess-lms = l_mstring.
it_mess-msgv1 = it_msgtab-msgv1.
APPEND it_mess.
WRITE: / it_msgtab-msgtyp, l_mstring(150).
ELSE.
WRITE: / it_msgtab.
it_mess-msgtyp = it_msgtab-msgtyp.
it_mess-lms = l_mstring.
it_mess-msgv1 = it_msgtab-msgv1.
APPEND it_mess.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
LOOP AT it_msgtab.
Rgds,
P.Nag -
Category ABAP Programming Error
Runtime Errors CONVT_NO_NUMBER
Except. CX_SY_CONVERSION_NO_NUMBER
ABAP Program ZMM_MIGO_GOODS_ISSUE
Application Component Not assigned
Date and Time 26.05.2014 14:28:30
Short Text
"C:\Users\SAP\Desktop\MIGO\MIGO.xlsx" cannot be interpreted as a number
What happened?
Error in the ABAP Application Program
The current ABAP program "ZMM_MIGO_GOODS_ISSUE" had to be terminated because
it has
come across a statement that unfortunately cannot be executed.
Error analysis
An exception has occurred which is explained in more detail below. The
exception is assigned to class 'CX_SY_CONVERSION_NO_NUMBER' and was not caught
in procedure
"%_SEL_SCREEN_P_FNAME_V" "(FORM)", nor was it propagated by a RAISING clause.
Since the caller of the procedure could not have anticipated thisHI CHIRUI,
I have changed and tried but still i a getting the same thing..
otherwise please check this i am using some class method i am not getting short dump,but excel file is not getting uploaded.
REPORT ZMM_MIGO_GOODS_ISSUE NO STANDARD PAGE HEADING.
DATA : BEGIN OF IT_DATA OCCURS 0,
ID(10),
BLDAT(10), " Document Date
BUDAT(10), " Posting Date
REF_DOC_NO(16), " Material Slip No
DEL_NOTE(16), " delivery note
MATNR TYPE MSEG-MATNR, " Material Number
ERFMG(13) TYPE C, " Quantity
BWART TYPE RM07M-BWARTWA, " Movement Type
SOBKZ(1), " Special Stock
WERKS TYPE RM07M-WERKS, " Plant
LGORT TYPE RM07M-LGORT, " Storage Location
PS_POSID TYPE PS_POSID, " WBS Element
COST_CENTER TYPE KOSTL, " cost center
ORDER TYPE AUFNR, " order number
SERNR TYPE RIPW0-SERNR, " Serial Number
END OF IT_DATA,
BEGIN OF IT_HEAD OCCURS 0,
ID(10),
BLDAT(10), " Document Date
BUDAT(10), " Posting Date
REF_DOC_NO(16), " Reference document number
"HEADER_TXT(25), " Header Text
BWART TYPE RM07M-BWARTWA, " Movement Type
END OF IT_HEAD,
BEGIN OF IT_ITEM OCCURS 0,
ID(10),
"ID1(10),
WERKS TYPE RM07M-WERKS, " Plant
LGORT TYPE RM07M-LGORT, " Storage Location
VAL_TYPE TYPE BWTAR_D,
MATNR TYPE MSEG-MATNR, " Material Number
ERFMG(13) TYPE C, " Quantity
CHARG TYPE MSEG-CHARG, " Batch
BWTAR TYPE BWTAR_D,
PS_POSID TYPE PS_POSID, " WBS Element
ERFME TYPE MSEG-ERFME, " Unit
COST_CENTER TYPE KOSTL, " cost center
ORDER TYPE AUFNR, " order number
CUSTOMER TYPE EKUNN, " Account Number of Customer
SERNR TYPE RIPW0-SERNR, " Serial Number
AMOUNT_LC TYPE BAPI_EXBWR,
SOBKZ(1),
END OF IT_ITEM,
HEADER LIKE BAPI2017_GM_HEAD_01,
CODE LIKE BAPI2017_GM_CODE,
ITEMS LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0 WITH HEADER LINE,
SERIAL LIKE BAPI2017_GM_SERIALNUMBER OCCURS 0 WITH HEADER LINE,
RETURN LIKE BAPI2017_GM_HEAD_RET,
RET LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
TESTRUN LIKE BAPI2017_GM_GEN-TESTRUN,
IT_TAB TYPE FILETABLE,
GD_SUBRC TYPE I,
L_FILE TYPE RLGRAP-FILENAME,
IT_RAW TYPE TRUXS_T_TEXT_DATA,
COUNT(2) TYPE N,
TEXT_C(30).
DATA: DATA LIKE TABLE OF IT_ITEM WITH HEADER LINE.
DATA: IT_TEMP LIKE TABLE OF IT_ITEM WITH HEADER LINE.
DATA: IT_TEMP1 LIKE TABLE OF IT_ITEM WITH HEADER LINE.
DATA: IT_ITEM1 LIKE TABLE OF IT_ITEM WITH HEADER LINE.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_FILE TYPE RLGRAP-FILENAME.
* p_test AS CHECKBOX.
SELECTION-SCREEN: END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
WINDOW_TITLE = 'SELECT FILE'
CHANGING
FILE_TABLE = IT_TAB
RC = GD_SUBRC.
READ TABLE IT_TAB INTO P_FILE INDEX 1.
START-OF-SELECTION.
PERFORM GET_EXCEL_DATA.
PERFORM GET_HEADER_ITEM.
PERFORM UPDATE_DATA.
*& Form GET_EXCEL_DATA
* text
* --> p1 text
* <-- p2 text
FORM GET_EXCEL_DATA .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = P_FILE
IMPORTING
OUTPUT = L_FILE.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_LINE_HEADER = 'X'
I_TAB_RAW_DATA = IT_RAW
I_FILENAME = L_FILE
TABLES
I_TAB_CONVERTED_DATA = IT_DATA
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2.
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_EXCEL_DATA
*& Form GET_HEADER_ITEM
* text
* --> p1 text
* <-- p2 text
FORM GET_HEADER_ITEM .
DATA : FLAG(1).
LOOP AT IT_DATA.
CLEAR FLAG.
IF IT_DATA-ID IS NOT INITIAL.
AT NEW ID.
FLAG = 'X'.
ENDAT.
ENDIF.
IF FLAG = 'X'.
MOVE-CORRESPONDING IT_DATA TO IT_HEAD.
APPEND IT_HEAD.
ENDIF.
MOVE-CORRESPONDING IT_DATA TO IT_ITEM.
APPEND IT_ITEM.
ENDLOOP.
DATA[] = IT_ITEM[].
IT_TEMP[] = IT_ITEM[].
IT_TEMP1[] = IT_ITEM[].
ENDFORM. " GET_HEADER_ITEM
*& Form UPDATE_DATA
* text
* --> p1 text
* <-- p2 text
FORM UPDATE_DATA .
DATA : COUNT1(10),
L_QTY TYPE I,
DAT(10).
CONCATENATE SY-DATUM+6(2) '.' SY-DATUM+4(2) '.' SY-DATUM(4) INTO DAT.
LOOP AT IT_HEAD.
ON CHANGE OF IT_HEAD-ID.
CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
EXPORTING
DATE_EXTERNAL = IT_HEAD-BUDAT
ACCEPT_INITIAL_DATE = 'X'
IMPORTING
DATE_INTERNAL = HEADER-PSTNG_DATE.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
EXPORTING
DATE_EXTERNAL = IT_HEAD-BLDAT
ACCEPT_INITIAL_DATE = 'X'
IMPORTING
DATE_INTERNAL = HEADER-DOC_DATE.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
MOVE : '2' TO HEADER-VER_GR_GI_SLIP,
'X' TO HEADER-VER_GR_GI_SLIPX.
* IF r1 EQ 'X'.
MOVE '05' TO CODE-GM_CODE.
HEADER-REF_DOC_NO = IT_HEAD-REF_DOC_NO.
"HEADER-HEADER_TXT = IT_HEAD-HEADER_TXT.
* ELSEIF r2 EQ 'X'.
* MOVE '04' TO code-gm_code.
* ELSEIF r3 EQ 'X'.
* MOVE '04' TO code-gm_code.
* ENDIF.
* IF p_test = 'X'.
* MOVE 'X' TO testrun.
* ENDIF.
ENDON.
IT_ITEM1[] = IT_ITEM[].
*delete it_item[] where werks = '' and id = it_head-id.
DELETE ADJACENT DUPLICATES FROM IT_ITEM COMPARING ID MATNR.
LOOP AT IT_ITEM WHERE ID = IT_HEAD-ID.
* ON CHANGE OF it_item-id1.
COUNT1 = COUNT1 + 1.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = IT_ITEM-MATNR
IMPORTING
OUTPUT = ITEMS-MATERIAL.
MOVE : IT_ITEM-WERKS TO ITEMS-PLANT,
IT_ITEM-LGORT TO ITEMS-STGE_LOC,
* it_item-lgort1 TO items-move_stloc,
IT_ITEM-CHARG TO ITEMS-BATCH,
* IT_ITEM-VAL_TYPE TO ITEMS-VAL_TYPE,
'FRESH' TO ITEMS-VAL_TYPE,
IT_HEAD-BWART TO ITEMS-MOVE_TYPE,
IT_ITEM-SOBKZ TO ITEMS-SPEC_STOCK,
IT_ITEM-ERFMG TO ITEMS-ENTRY_QNT,
IT_ITEM-ERFMG TO ITEMS-ENTRY_QNT,
* it_item-erfme TO items-entry_uom,
* it_item-sgtxt TO items-item_text,
* it_item-exbwr TO items-amount_lc,
IT_ITEM-PS_POSID TO ITEMS-WBS_ELEM,
IT_ITEM-PS_POSID TO ITEMS-VAL_WBS_ELEM,
"IT_ITEM-CUSTOMER TO ITEMS-CUSTOMER,
IT_ITEM-ERFMG TO L_QTY,
IT_ITEM-AMOUNT_LC TO ITEMS-AMOUNT_LC,
IT_ITEM-COST_CENTER TO ITEMS-COSTCENTER,
IT_ITEM-ORDER TO ITEMS-ORDERID.
* items-SPEC_MVMT = 'R'.
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
EXPORTING
INPUT = ITEMS-WBS_ELEM
IMPORTING
OUTPUT = ITEMS-WBS_ELEM.
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
EXPORTING
INPUT = ITEMS-VAL_WBS_ELEM
IMPORTING
OUTPUT = ITEMS-VAL_WBS_ELEM.
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* input = it_item-lifnr
* IMPORTING
* output = items-vendor.
APPEND ITEMS.
* ENDON.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM IT_TEMP COMPARING ID MATNR.
DELETE IT_TEMP1 WHERE ID <> IT_HEAD-ID.
DELETE IT_TEMP WHERE ID <> IT_HEAD-ID.
DATA: MAT_ITM TYPE MBLPO,
SERNP TYPE SERAIL.
MAT_ITM = '0001'.
LOOP AT IT_TEMP.
SELECT SINGLE SERNP FROM MARC INTO SERNP WHERE MATNR = IT_TEMP-MATNR.
IF SERNP IS NOT INITIAL.
LOOP AT IT_TEMP1 WHERE ID = IT_TEMP-ID AND MATNR = IT_TEMP-MATNR.
* MOVE : it_item1-id TO serial-matdoc_itm,
* MOVE : mat_itm TO serial-matdoc_itm,
SERIAL-MATDOC_ITM = MAT_ITM .
SERIAL-SERIALNO = IT_TEMP1-SERNR.
APPEND SERIAL.
CLEAR IT_ITEM1.
ENDLOOP.
MAT_ITM = MAT_ITM + 1.
ENDIF.
CLEAR IT_TEMP.
ENDLOOP.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
GOODSMVT_HEADER = HEADER
GOODSMVT_CODE = CODE
TESTRUN = TESTRUN
* GOODSMVT_REF_EWM =
IMPORTING
GOODSMVT_HEADRET = RETURN
* MATERIALDOCUMENT =
* MATDOCUMENTYEAR =
TABLES
GOODSMVT_ITEM = ITEMS
GOODSMVT_SERIALNUMBER = SERIAL
RETURN = RET
* GOODSMVT_SERV_PART_DATA =
* EXTENSIONIN =
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
* IMPORTING
* RETURN =
IF NOT RETURN IS INITIAL.
WRITE :/ 'Material Document Number Generated: ' ,RETURN-MAT_DOC,RETURN-DOC_YEAR.
ELSE.
LOOP AT RET.
WRITE : RET-TYPE, RET-MESSAGE.
* log-index = sy-index.
* log-matnr = header-material.
* log-message = ret1-message.
* APPEND log.
ENDLOOP.
ENDIF.
REFRESH : ITEMS,RET.
CLEAR : HEADER,RETURN.
CLEAR: TESTRUN ,
RETURN,
ITEMS[],
SERIAL[],
RET[],
HEADER,
IT_TEMP[] ,
IT_TEMP1[].
IT_TEMP[] = DATA[].
IT_TEMP1[] = DATA[].
ENDLOOP.
ENDFORM. " UPDATE_DATA
Regards,
Suresh bheema -
Error Raised while uploading Excel file to SAP
Hi All,
I am getting error while uploading excel file into SAP using the function module 'TEXT_CONVERT_XLS_TO_SAP'.
Error Message is UX(893) - 'Excel file & cannot be processed' .
Please let me know what went wrong.
Regards,
DeepthiHi,
1 .TEXT_CONVERT_XLS_TO_SAP Funtion module will work if you have installed Microsoft Excel at front end.
2. Whenyou declare internal table for upload, specify the char only in the strcture ,don't specify any data element or dictionary reference. If the data element and dictionaly reference is character field then its ok.
eg.
types:begin of st_data,
field1 type char15,
field2 type char23,
endif.
3. Close the excel before you upload
Hope this might solve your issue.
Regards
Aromal R -
TEXT_CONVERT_XLS_TO_SAP
Hi all,
I am using FM TEXT_CONVERT_XLS_TO_SAP to upload excel to internal table. I have two date fields in excel. The FM is throwing an error "Enter a valid Date(example, 28.02.2008) ".
I gave date in the excel like this format only. even then am getting the error.Plsss help me..
Points will be rewarded,
thanks in advance,
praveena.Hi,
U should enter the date in this format only ( MMDDYYYY) . For example, give like 11252007 in ur excel. Dont put any dot or slash in between the date. It will work correctly.
Reward points if helpfil
Regards,
Shanthi
Edited by: Shanthi on Feb 28, 2008 8:36 AM -
Program error: Object type of receiver cannot be determined
Hello Experts,
Am getting this error "Program error: Object type of receiver cannot be determined" when creating internal orders using BAPI_INTERNALORDERS_CREATE. I read many forums, but they are not answered. I didn't get any solution. Any Solution Please.
Thanks in AdvanceHere is my Code
TYPE-POOLS : TRUXS.
TYPES:BEGIN OF TY_COAS_SVALD,
AUART TYPE AUFART, "Order Type
BUKRS TYPE BUKRS, "Company Code
KTEXT TYPE AUFTEXT, "Description
GSBER TYPE GSBER, "Business Area
WERKS TYPE WERKS_D, "plant
KDAUF TYPE KDAUF, "Sales Order Number
KDPOS TYPE KDPOS, "Item
USER0 TYPE AUFUSER0, "Applicant
USER1 TYPE AUFUSER1, "Applicant's telephone number
USER2 TYPE AUFUSER2, "Person responsible
USER6 TYPE AUFUSER6, "Department
KOKRS TYPE KOKRS, "Controlling area
AUFWAERS TYPE AUFWAERS, "Currency
END OF TY_COAS_SVALD .
DATA : IT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA:T_COAS TYPE STANDARD TABLE OF TY_COAS_SVALD INITIAL SIZE 0,
WA_COAS TYPE TY_COAS_SVALD.
PARAMETERs : p_file TYPE IBIPPARMS-PATH.
at SELECTION-SCREEN on VALUE-REQUEST FOR p_file.
PERFORM browse_file.
INITIALIZATION.
CLEAR:WA_COAS.
REFRESH:T_COAS.
START-OF-SELECTION.
PERFORM LOAD_FLAT_FILE.
PERFORM SUB_CALL_BAPI_FOR_KO01.
FORM browse_file .
CALL FUNCTION 'F4_FILENAME'
IMPORTING
FILE_NAME = p_file
ENDFORM. " browse_file
FORM LOAD_FLAT_FILE .
DATA : LT_RAW TYPE TRUXS_T_TEXT_DATA.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR = 'X'
I_LINE_HEADER = 'X'
I_TAB_RAW_DATA = LT_RAW
I_FILENAME = P_FILE
TABLES
I_TAB_CONVERTED_DATA = T_COAS
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM. " LOAD_FLAT_FILE
FORM SUB_CALL_BAPI_FOR_KO01 .
DATA:L_MASTERDATA TYPE BAPI2075_7,
LE_MASTERDATA TYPE BAPI2075_2,
T_BAPI TYPE STANDARD TABLE OF BAPI2075_6 INITIAL SIZE 0,
WA_BAPI TYPE BAPI2075_6.
clear:l_masterdata,
le_masterdata,
wa_bapi.
refresh:t_bapi.
LOOP AT T_COAS INTO WA_COAS.
L_MASTERDATA-ORDER_TYPE = WA_COAS-AUART.
L_MASTERDATA-COMP_CODE = WA_COAS-BUKRS.
L_MASTERDATA-ORDER_NAME = WA_COAS-KTEXT.
L_MASTERDATA-PLANT = WA_COAS-WERKS.
L_MASTERDATA-BUS_AREA = WA_COAS-GSBER.
L_MASTERDATA-SALES_ORD = WA_COAS-KDAUF.
L_MASTERDATA-S_ORD_ITEM = WA_COAS-KDPOS.
L_MASTERDATA-APPLICANT = WA_COAS-USER0.
L_MASTERDATA-APPLICANT_PHONE = WA_COAS-USER1.
L_MASTERDATA-PERSON_RESP = WA_COAS-USER2.
L_MASTERDATA-DEPARTMENT = WA_COAS-USER6.
L_MASTERDATA-CO_AREA = WA_COAS-KOKRS.
L_MASTERDATA-CURRENCY = WA_COAS-AUFWAERS.
WA_BAPI-SALES_ORD = WA_COAS-KDAUF.
WA_BAPI-S_ORD_ITEM = WA_COAS-KDPOS.
WA_BAPI-COMP_CODE = WA_COAS-BUKRS.
APPEND WA_BAPI TO T_BAPI.
CALL FUNCTION 'BAPI_INTERNALORDER_CREATE'
EXPORTING
I_MASTER_DATA = L_MASTERDATA
IMPORTING
E_MASTER_DATA = LE_MASTERDATA
TABLES
SRULES = T_BAPI
RETURN = IT_RETURN
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDLOOP.
WRITE : / IT_RETURN-TYPE, IT_RETURN-MESSAGE.
ENDFORM. " SUB_CALL_BAPI_FOR_KO01
Maybe you are looking for
-
Apple TV Completely Re-syncing Every Time I restart iTunes
After the last patch to iTunes (via Software Update), every time that I stop and start iTunes it does a full wipe of the Apple TV's hard drive and a full re-sync. Which takes almost an hour since I have over 3,000 songs. Any ideas what might be causi
-
Frustrating... We have always had to use an RF modulator between our QIP 6416-2 and our TV, but having just purchased a Philips 32PFL3504D HDTV, I wanted to try using component out; no luck. I have looked at the wiring diagrams online time and time a
-
How come I can't view the shared files on my PC anymore?
I used to be able to view and drag all the shared items on my PC, but suddenly I cant do it anymore? What's wrong Can someone help? PS. also the NETWORK button disappeared from the upper left hand side of Finder window( that's my bad, I accidently de
-
After installing windows 7 using boot camp my speakers started crackling and popping. There is almost always a static noice coming form the right speaker(sometimes the left) and crakels and pops intermitantly. The sound is there if I plug headphones
-
How do i get my iphone to connect to itunes?
I just updated my phone and now i cannot access or update any of my purchased apps a window pops up saying can not connect to itunes. It seems as though i dont have something turned on how can i fix this?