Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
Question from rashmi on Jun 18 at 5:27 AM REPORT znewz.
tables vbak.
DATA: v_vbeln type BAPIVBELN-VBELN."SALESDOCUMENT-vbeln_va.
DATA: header LIKE bapisdhead1.
DATA: headerx LIKE bapisdhead1x.
DATA: item LIKE bapisditem OCCURS 0 WITH HEADER LINE.
DATA: itemx LIKE bapisditemx OCCURS 0 WITH HEADER LINE.
DATA: partner LIKE bapipartnr OCCURS 0 WITH HEADER LINE.
DATA: return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: lt_schedules_inx TYPE STANDARD TABLE OF bapischdlx
WITH HEADER LINE.
DATA: lt_schedules_in TYPE STANDARD TABLE OF bapischdl
WITH HEADER LINE.
select-options so_auart for vbak-auart obligatory NO-EXTENSION no intervals.
*PARAMETERS: p_auart TYPE auart OBLIGATORY ."MATCHCODE OBJECT VBAK.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
PARAMETERS p_vkorg TYPE vbak-vkorg.
PARAMETERS p_vtweg TYPE vbak-vtweg.
PARAMETERS p_spart TYPE vbak-spart.
PARAMETERS p_vkbur TYPE vbak-vkbur.
PARAMETERS p_vkgrp TYPE vbak-vkgrp.
SELECTION-SCREEN END OF BLOCK b1 .
INITIALIZATION.
t1 = 'Organizational Data'.
START-OF-SELECTION.
*HEADER DATA
header-doc_type = so_auart.
headerx-doc_type = 'X'.
header-sales_org = p_vkorg.
headerx-sales_org = 'X'.
header-distr_chan = p_vtweg.
headerx-distr_chan = 'X'.
header-division = p_spart.
headerx-division = 'X'.
headerx-updateflag = 'I'.
*PARTNER DATA
partner-partn_role = 'AG'.
partner-partn_numb = '2000007'.
APPEND partner.
partner-partn_role = 'WE'.
partner-partn_numb = '2000007'.
APPEND partner.
*ITEM DATA
itemx-updateflag = 'I'.
item-itm_number = '000010'.
itemx-itm_number = 'X'.
item-material = '011'.
itemx-material = 'X'.
item-plant = '01'.
itemx-plant = 'X'.
item-target_qty = '10'.
itemx-target_qty = 'X'.
item-target_qu = 'EA'.
itemx-target_qu = 'X'.
item-item_categ = 'TAN'.
itemx-item_categ = 'X'.
APPEND item.
APPEND itemx.
*Fill schedule lines
lt_schedules_in-itm_number = '000010'.
lt_schedules_in-sched_line = '0001'.
lt_schedules_in-req_qty = '1'.
APPEND lt_schedules_in.
*Fill schedule line flags
lt_schedules_inx-itm_number = '000010'.
lt_schedules_inx-sched_line = '0001'.
lt_schedules_inx-updateflag = 'X'.
lt_schedules_inx-req_qty = 'X'.
APPEND lt_schedules_inx.
*Call the BAPI
CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'
EXPORTING
* SALESDOCUMENT =
sales_header_in = header
sales_header_inx = headerx
* SENDER =
* BINARY_RELATIONSHIPTYPE = 'VORL'
* INT_NUMBER_ASSIGNMENT = ' '
IMPORTING
salesdocument_ex = v_vbeln
TABLES
return = return
sales_items_in = item
sales_items_inx = itemx
sales_partners = partner
sales_schedules_in = lt_schedules_in
sales_schedules_inx = lt_schedules_inx
* SALES_CONDITIONS_IN =
* SALES_CFGS_REF =
* SALES_CFGS_INST =
* SALES_CFGS_PART_OF =
* SALES_CFGS_VALUE =
* SALES_CFGS_BLOB =
* SALES_CCARD =
* KEY_TABLE =
.
loop at return where type = 'E' or type = 'A'.
write: / return-number.
write : / return-message,
return-id,
return-type.
exit.
endloop.
IF sy-subrc EQ 0.
*IF v_vbeln = space.
WRITE: / 'Error in creating document'.
ELSE.
COMMIT WORK AND WAIT.
WRITE: / 'Document ', v_vbeln, ' created'.
ENDIF.
this is my code i am getting a error like
312
sales document type IEQA is not defined
V1 E
Error in creating the document
please help me out.
my entries are: -
order type : AA
Sales organization :1100
distribution channel: 02
division: 02
Sales office :11
Sales Group : 1
| Reply to this email to post your response. __.____._ |   _.____.__ |
