2007 Jan 23 6:25 PM
Hi Gurus,
"Type conflict when calling a function module (field length)."
I am getting the above error..could you suggest me what i need to do...here is the code..
&----
*& Report ZCREATE_PURCHASEORDER_DEMO *
*& *
&----
*& *
*& *
&----
REPORT ZCREATE_PURCHASEORDER_DEMO.
*DATA DECLARATION
CONSTANTS : C_X VALUE 'X'.
tables BAPIPAREX.
*Structures to hold PO header data
DATA : HEADER LIKE BAPIMEPOHEADER ,
HEADERX LIKE BAPIMEPOHEADERX ,
T_EXTENSIONIN like BAPIPAREX OCCURS 0 WITH HEADER LINE.
*Internal Tables to hold PO ITEM DATA
DATA : ITEM LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE,
ITEMX LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE,
*Internal table to hold messages from BAPI call
RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
data : w_header(40) value 'PO Header'.
data : ws_langu like sy-langu.
DATA: WA_EXT_H TYPE BAPI_TE_PO_HEADER.
*text-001 = 'PO Header' - define as text element
selection-screen begin of block b1 with frame title text-001.
parameters : company like header-comp_code default '1000' ,
doctyp like HEADER-DOC_TYPE default 'NB' ,
cdate like HEADER-CREAT_DATE default sy-datum ,
vendor like HEADER-VENDOR default '0000005210',
pur_org like HEADER-PURCH_ORG default '1000' ,
pur_grp like HEADER-PUR_GROUP default '001' .
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
parameters : item_num like ITEM-PO_ITEM default '00001',
material like ITEM-MATERIAL default 'R-B101' ,
plant like ITEM-PLANT default '1000' ,
quantity like ITEM-QUANTITY default '100',
NET_PRI like item-NET_PRICE default '11'.
selection-screen end of block b2.
&----
START-OF-SELECTION.
&----
*DATA POPULATION
&----
ws_langu = sy-langu. "Language variable
WA_EXT_H-ZZA = 12.
BAPIPAREX-STRUCTURE = 'BAPI_TE_PO_HEADER'.
BAPIPAREX-VALUEPART1+10 = '12222222222'.
APPEND BAPIPAREX TO T_EXTENSIONIN.
*POPULATE HEADER DATA FOR PO
HEADER-COMP_CODE = company .
HEADER-DOC_TYPE = doctyp .
HEADER-CREAT_DATE = cdate .
HEADER-VENDOR = vendor .
HEADER-LANGU = ws_langu .
HEADER-PURCH_ORG = pur_org .
HEADER-PUR_GROUP = pur_grp .
&----
*POPULATE ITEM DATA.
&----
ITEM-PO_ITEM = item_num.
ITEM-MATERIAL = material.
ITEM-PLANT = plant.
ITEM-QUANTITY = quantity.
item-NET_PRICE = net_pri.
APPEND ITEM.
&----
*BAPI CALL
&----
CALL FUNCTION 'BAPI_PO_CREATE'
EXPORTING
PO_HEADER = HEADER
TABLES
PO_ITEMS = ITEM
RETURN = RETURN
EXTENSIONIN = T_EXTENSIONIN
.
&----
*Confirm the document creation by calling database COMMIT
&----
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN =
.
end-of-selection.
&----
*Output the messages returned from BAPI call
&----
LOOP AT RETURN.
WRITE / RETURN-MESSAGE.
ENDLOOP.
Awaiting for your help..points will be rewarded
Regards
Ravi Ganji
Hi Gurus,
"Type conflict when calling a function module (field length)."
I am getting the above error..could you suggest me what i need to do...here is the code..
&----
*& Report ZCREATE_PURCHASEORDER_DEMO *
*& *
&----
*& *
*& *
&----
REPORT ZCREATE_PURCHASEORDER_DEMO.
*DATA DECLARATION
CONSTANTS : C_X VALUE 'X'.
tables BAPIPAREX.
*Structures to hold PO header data
DATA : HEADER LIKE BAPIMEPOHEADER ,
HEADERX LIKE BAPIMEPOHEADERX ,
T_EXTENSIONIN like BAPIPAREX OCCURS 0 WITH HEADER LINE.
*Internal Tables to hold PO ITEM DATA
DATA : ITEM LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE,
ITEMX LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE,
*Internal table to hold messages from BAPI call
RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
data : w_header(40) value 'PO Header'.
data : ws_langu like sy-langu.
DATA: WA_EXT_H TYPE BAPI_TE_PO_HEADER.
*text-001 = 'PO Header' - define as text element
selection-screen begin of block b1 with frame title text-001.
parameters : company like header-comp_code default '1000' ,
doctyp like HEADER-DOC_TYPE default 'NB' ,
cdate like HEADER-CREAT_DATE default sy-datum ,
vendor like HEADER-VENDOR default '0000005210',
pur_org like HEADER-PURCH_ORG default '1000' ,
pur_grp like HEADER-PUR_GROUP default '001' .
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
parameters : item_num like ITEM-PO_ITEM default '00001',
material like ITEM-MATERIAL default 'R-B101' ,
plant like ITEM-PLANT default '1000' ,
quantity like ITEM-QUANTITY default '100',
NET_PRI like item-NET_PRICE default '11'.
selection-screen end of block b2.
&----
START-OF-SELECTION.
&----
*DATA POPULATION
&----
ws_langu = sy-langu. "Language variable
WA_EXT_H-ZZA = 12.
BAPIPAREX-STRUCTURE = 'BAPI_TE_PO_HEADER'.
BAPIPAREX-VALUEPART1+10 = '12222222222'.
APPEND BAPIPAREX TO T_EXTENSIONIN.
*POPULATE HEADER DATA FOR PO
HEADER-COMP_CODE = company .
HEADER-DOC_TYPE = doctyp .
HEADER-CREAT_DATE = cdate .
HEADER-VENDOR = vendor .
HEADER-LANGU = ws_langu .
HEADER-PURCH_ORG = pur_org .
HEADER-PUR_GROUP = pur_grp .
&----
*POPULATE ITEM DATA.
&----
ITEM-PO_ITEM = item_num.
ITEM-MATERIAL = material.
ITEM-PLANT = plant.
ITEM-QUANTITY = quantity.
item-NET_PRICE = net_pri.
APPEND ITEM.
&----
*BAPI CALL
&----
CALL FUNCTION 'BAPI_PO_CREATE'
EXPORTING
PO_HEADER = HEADER
TABLES
PO_ITEMS = ITEM
RETURN = RETURN
EXTENSIONIN = T_EXTENSIONIN
.
&----
*Confirm the document creation by calling database COMMIT
&----
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN =
.
end-of-selection.
&----
*Output the messages returned from BAPI call
&----
LOOP AT RETURN.
WRITE / RETURN-MESSAGE.
ENDLOOP.
Awaiting for your help..points will be rewarded
Regards
Ravi Ganji
2007 Jan 23 6:32 PM
Hi
The defination of header is wrong, it should be:
DATA: HEADER LIKE BAPIEKKOC.
U have to transfer the schedules in PO_ITEM_SCHEDULES
Max
2007 Jan 23 6:35 PM
Hi,
The PO_HEADER parameter is of type BAPIEKKOC. But you have BAPIMEPOHEADER..
Change it to
HEADER LIKE BAPIEKKOC.
Thanks,
Naren