topic bapi-salesorder creation error in creating document in Application Development and Automation Discussions

bapi-salesorder creation error in creating document

Former Member — Thu, 19 Jun 2008 11:48:25 GMT

hai friends..

iam doing creation of sales order using bapi .-structures..

but error in creating doucment ....

can u send me some example .. abt sales order .creation ..

once u check my code ...

DATA: BEGIN OF HEADER OCCURS 0,

VBELN LIKE BAPIVBELN-VBELN,

AUART LIKE VBAK-AUART,

VKORG LIKE VBAK-VKORG,

VTWEG LIKE VBAK-VTWEG ,

SPART LIKE VBAK-SPART,

VKBUR LIKE VBAK-VKBUR,

KUNNR LIKE BAPIPARNR-PARTN_NUMB ,"vbak-kunnr,

END OF HEADER.

DATA: BEGIN OF ITEM OCCURS 0,

VBELN LIKE BAPIVBELN-VBELN,

POSNR LIKE BAPISDITM-ITM_NUMBER ,"vbap-posnr,

MATNR LIKE VBAP-MATNR,

NETWR LIKE VBAP-NETWR,

KWMENGE LIKE VBAP-KWMENG,

WERKS LIKE VBAP-WERKS,
NETPR LIKE VBAP-NETPR,

END OF ITEM.

DATA: ORDER_HEADER_IN LIKE BAPISDHD1,

ORDER_HEADER_INX LIKE BAPISDHD1X.

DATA: ITAB_HEAD likE order_header_in,

ITAB_HEADX likE ORDER_HEADER_INX.

DATA: ITAB_ITEM TYPE STANDARD TABLE OF BAPISDITM WITH HEADER LINE,

ITAB_ITEMX TYPE STANDARD TABLE OF BAPISDITMX WITH HEADER LINE.

DATA: KUST TYPE STANDARD TABLE OF BAPIPARNR WITH HEADER LINE,

RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.

DATA: VNO LIKE BAPIVBELN-VBELN,

VCNT LIKE VBAP-POSNR.

LOOP AT HEADER.

VCNT = 10.

CLEAR ITAB_HEAD.

ORDER_HEADER_IN-REFOBJTYPE = 'OR'.
ORDER_HEADER_IN-REFOBJKEY = 'OR'.
ORDER_HEADER_IN-REFDOCTYPE = 'OR'.

ORDER_HEADER_IN-DOC_TYPE = HEADER-AUART.

ITAB_HEAD-DOC_TYPE = HEADER-AUART.

ITAB_HEAD-SALES_ORG = HEADER-VKORG.

ITAB_HEAD-DISTR_CHAN = HEADER-VTWEG.

ITAB_HEAD-DIVISION = HEADER-SPART.

ITAB_HEAD-SALES_OFF = HEADER-VKBUR.

KUST-PARTN_NUMB = HEADER-KUNNR.

ITAB_HEADX-DOC_TYPE = 'X'.

ITAB_HEADX-SALES_ORG = 'X'.

ITAB_HEADX-DISTR_CHAN = 'X'.

ITAB_HEADX-DIVISION = 'X'.

ITAB_HEADX-SALES_OFF = 'X'.

LOOP AT ITEM WHERE VBELN = HEADER-VBELN.

REFRESH RETURN.

ITAB_ITEM-ITM_NUMBER = VCNT.

ITAB_ITEM-MATERIAL = ITEM-MATNR.

ITAB_ITEM-NET_WEIGHT = ITEM-KWMENGE.

APPEND ITAB_ITEM.

ITAB_ITEMX-ITM_NUMBER = VCNT.

ITAB_ITEMX-MATERIAL = 'X'.

ITAB_ITEMX-NET_WEIGHT = 'X'.

APPEND ITAB_ITEMX.

VCNT = VCNT + 10 .

ENDLOOP.

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

EXPORTING

SALESDOCUMENTIN = SALESORDER

ORDER_HEADER_IN = ITAB_HEAD

ORDER_HEADER_INX = ITAB_HEADX

SENDER =
BINARY_RELATIONSHIPTYPE =
INT_NUMBER_ASSIGNMENT =
BEHAVE_WHEN_ERROR =
LOGIC_SWITCH =
TESTRUN =
CONVERT = ' '

IMPORTING

SALESDOCUMENT = VNO

TABLES

RETURN = RETURN

ORDER_ITEMS_IN = ITAB_ITEM

ORDER_ITEMS_INX = ITAB_ITEMX

ORDER_PARTNERS = KUST.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING
WAIT = 'X'.

IMPORTING

RETURN = RETURN.

LOOP AT return WHERE type = 'E' OR type = 'A'.

EXIT.

ENDLOOP.

IF sy-subrc = 0.

WRITE: / 'Error in creating document'.

ELSE.

COMMIT WORK AND WAIT.

ENDIF.

WRITE: / ' Sales Order NO IS: ', VNO.

WRITE: / SPACE.

CLEAR VNO.

WRITE SY-ULINE.

ENDLOOP.

my HEader is 123 OR 1000 30 10 SATYA.

ITem 2 IS 123 10 HAI 15

once u check it ......

Re: bapi-salesorder creation error in creating document

Former Member — Thu, 19 Jun 2008 12:13:45 GMT

Hi Satya,

just check this

REPORT Z_STANDARD_SALES_ORDER no standard page heading.

************************************************************************

DATA DECLARATION

************************************************************************

CONSTANTS : C_X VALUE 'X'.

Structures to hold Sales order header data

DATA : HEADER LIKE BAPISDHD1," OCCURS 0 WITH HEADER LINE,

HEADERX LIKE BAPISDHD1X." OCCURS 0 WITH HEADER LINE.

Internal Tables to hold Sales order ITEM DATA

DATA : ITEM LIKE BAPISDITM OCCURS 0 WITH HEADER LINE,

ITEMX LIKE BAPISDITMX OCCURS 0 WITH HEADER LINE.

Internal Tables to hold Partners ITEM DATA

DATA : PART LIKE BAPIPARNR OCCURS 0 WITH HEADER LINE.

Internal Tables to hold Partners SCHEDULE DATA

DATA: SCHEDULE LIKE BAPISCHDL OCCURS 0 WITH HEADER LINE,

SCHEDULEX LIKE BAPISCHDLX OCCURS 0 WITH HEADER LINE.

Internal table to hold messages from BAPI call

DATA: RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.

DATA W_MSG(150).

*DATA: begin of wa_MESSAGE,

message(150),
end of wa_message.

*DATA: itab_msg like table of wa_message with header line.

Data: Begin of Record occurs 0,

Control type i,

DOC_TYPE like HEADER-DOC_TYPE,

SALES_ORG like HEADER-SALES_ORG,

DISTR_CHAN like HEADER-SALES_ORG,

DIVISION like HEADER-DIVISION,

PURCH_NO_C like HEADER-PURCH_NO_C,

PARTN_NUMB like PART-PARTN_NUMB ,

PARTN_ROLE like PART-PARTN_ROLE ,

ITM_NUMBER like ITEM-ITM_NUMBER,

MATERIAL like ITEM-MATERIAL,

TARGET_QTY like item-TARGET_QTY,

REQ_QTY LIKE BAPISCHDL-REQ_QTY,

TARGET_QU like item-TARGET_QU,

PLANT like ITEM-PLANT,

PMNTTRMS like header-PMNTTRMS,

End of record.

data: itab like ALSMEX_TABLINE occurs 0,

wa like ALSMEX_TABLINE.

data: SO like BAPIVBELN-VBELN.

************************************************************************

Selection Screen

************************************************************************

selection-screen begin of block b1 with frame title text-001.

PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY.

selection-screen end of block b1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

PERFORM GET_FILE USING P_FILE.

************************************************************************

Start of Selection

************************************************************************

start-of-selection.

DATA: xl type string.

xl = '*.xls'.

IF not P_FILE CP xl.

Message 'Wrong input file format' type 'E'.

ENDIF.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

FILENAME = P_FILE

I_BEGIN_COL = 1

I_BEGIN_ROW = 1

I_END_COL = 13

I_END_ROW = 3000

TABLES

INTERN = itab

EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

************************************************************************

DATA POPULATION

************************************************************************

loop at itab into wa.

if wa-col = '0001'.

record-Control = wa-value.

elseif wa-col = '0002'.

record-DOC_TYPE = wa-value.

elseif wa-col = '0003'.

record-SALES_ORG = wa-value.

elseif wa-col = '0004'.

record-DISTR_CHAN = wa-value.

elseif wa-col = '0005'.

record-DIVISION = wa-value.

elseif wa-col = '0006'.

record-PURCH_NO_C = wa-value.

elseif wa-col = '0007'.

record-PARTN_NUMB = wa-value.

elseif wa-col = '0008'.

record-PARTN_ROLE = wa-value.

elseif wa-col = '0009'.

record-PMNTTRMS = wa-value.

elseif wa-col = '0010'.

record-ITM_NUMBER = wa-value.

elseif wa-col = '0011'.

record-MATERIAL = wa-value.

elseif wa-col = '0012'.

record-REQ_QTY = wa-value.

elseif wa-col = '0013'.

record-TARGET_QU = wa-value.

elseif wa-col = '0014'.

record-PLANT = wa-value.

endif.

AT END OF row.

APPEND record.

CLEAR: wa, record.

ENDAT.

endloop.

DATA: tot_lines type i,

tot_po type i,

index type i.

describe table record lines tot_lines.

read table record index tot_lines.

tot_po = record-control.

DO tot_po times.

index = index + 1.

clear: HEADER,HEADERX,ITEM[],ITEMX[],RETURN,RETURN[],SCHEDULE[],SCHEDULEX[], PART[],PART.

refresh: ITEM[],ITEMX[],RETURN[],SCHEDULE[],SCHEDULEX[],PART[] .

************************************************************************

POPULATE HEADER FLAG.

************************************************************************

HEADERX-UPDATEFLAG = c_x.

HEADERX-doc_type = c_x.

HEADERX-SALES_ORG = c_x.

HEADERX-DISTR_CHAN = c_x.

HEADERX-DIVISION = c_x.

HEADERX-PURCH_NO_C = c_X.

HEADERX-PMNTTRMS = c_X.

loop at record where control = index.

************************************************************************

POPULATE HEADER DATA FOR PO

************************************************************************

HEADER-DOC_TYPE = record-DOC_TYPE.

HEADER-SALES_ORG = record-SALES_ORG.

HEADER-DISTR_CHAN = record-DISTR_CHAN.

HEADER-DIVISION = record-DIVISION.

HEADER-PURCH_NO_C = record-PURCH_NO_C.

HEADER-PMNTTRMS = record-PMNTTRMS.

************************************************************************

*POPULATE ITEM DATA.

************************************************************************

ITEM-ITM_NUMBER = record-ITM_NUMBER.

ITEM-MATERIAL = record-material.

ITEM-TARGET_QTY = record-TARGET_QTY.

ITEM-TARGET_QU = record-TARGET_QU.

ITEM-PLANT = record-PLANT .

APPEND ITEM.

************************************************************************

*POPULATE ITEM FLAG TABLE

************************************************************************

ITEMX-ITM_NUMBER = record-ITM_NUMBER.

ITEMX-UPDATEFLAG = C_X.

ITEMX-TARGET_QTY = C_X.

ITEMX-PLANT = C_X .

ITEMX-MATERIAL = C_X .

ITEMX-TARGET_QU = C_X .

APPEND ITEMX.

************************************************************************

*POPULATE SCHEDULE TABLE

************************************************************************

SCHEDULE-ITM_NUMBER = RECORD-ITM_NUMBER.

SCHEDULE-REQ_QTY = RECORD-REQ_QTY.

APPEND SCHEDULE.

************************************************************************

*POPULATE SCHEDULE TABLE

************************************************************************

SCHEDULEX-ITM_NUMBER = RECORD-ITM_NUMBER.

SCHEDULEX-REQ_QTY = C_X.

APPEND SCHEDULEX.

endloop.

************************************************************************

*POPULATE PARTNER TABLE

************************************************************************

PART-PARTN_NUMB = record-PARTN_NUMB.

PART-PARTN_ROLE = record-PARTN_ROLE.

APPEND PART.

************************************************************************

*BAPI CALL

************************************************************************

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

EXPORTING

ORDER_HEADER_IN = HEADER

ORDER_HEADER_INX = HEADERX

SENDER =
BINARY_RELATIONSHIPTYPE =
INT_NUMBER_ASSIGNMENT =
BEHAVE_WHEN_ERROR =
LOGIC_SWITCH =
TESTRUN =
CONVERT = ' '

IMPORTING

SALESDOCUMENT = SO

TABLES

RETURN = RETURN

ORDER_ITEMS_IN = ITEM

ORDER_ITEMS_INX = ITEMX

ORDER_PARTNERS = PART

ORDER_SCHEDULES_IN = SCHEDULE

ORDER_SCHEDULES_INX = SCHEDULEX

ORDER_CONDITIONS_IN =
ORDER_CONDITIONS_INX =
ORDER_CFGS_REF =
ORDER_CFGS_INST =
ORDER_CFGS_PART_OF =
ORDER_CFGS_VALUE =
ORDER_CFGS_BLOB =
ORDER_CFGS_VK =
ORDER_CFGS_REFINST =
ORDER_CCARD =
ORDER_TEXT =
ORDER_KEYS =
EXTENSIONIN =
PARTNERADDRESSES =

loop at return where type = 'E' and ID NE 'MEPO' and ID NE 'BAPI'.

WRITE:/ Return-message.

endloop.

************************************************************************

*Confirm the document creation by calling database COMMIT

************************************************************************

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'.

*********************************************************************

*Messages

*********************************************************************

loop at return where type = 'S' and number ne '233'.

WRITE:/ Return-message.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = return-ID

LANG = SY-LANGU

NO = return-NUMBER

IMPORTING

MSG = W_MSG

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

WRITE W_MSG.

itab_msg-message = w_msg.

append itab_msg.

clear: W_MSG.

ENDLOOP.

enddo.

************************************************************************

-->P_W_FILE text

************************************************************************

FORM GET_FILE USING P_W_FILE.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

CHANGING

FILE_NAME = P_W_FILE

EXCEPTIONS

MASK_TOO_LONG = 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_FILE

Regards,

Sachin