Добрый день!
В материале стоит индикатор налога 2, к нему в MEK1 привязан код налога N1.
Мне нужно сделать следующее - при формировании закупочных заказов с помощью BAPIMEPOITEM подменить код налога на M1.
Индикатор налога менять нельзя, так как это независимые друг от друга операции в рамках одного завода.
Смотрел по отладчику - параметры
poitem-tax_code и
poitemx-tax_code проставляются как нужно, но заказ сохраняется по-прежнему с кодом налога N1.
Прошу помочь решить данную проблему.
Код:
Code:
LOOP AT itab2 WHERE NOT conf IS INITIAL
AND lifnr EQ <fs_tmp>-lifnr
AND lgort EQ <fs_tmp>-lgort
AND icon IS INITIAL.
tabix.
CLEAR: return, poitem, poitemx, poschedule, poschedulex, po_num.
IF poheader IS INITIAL.
poheader-comp_code = '3000'.
poheader-doc_type = 'ZTDS'.
poheader-purch_org = '3000'.
poheader-pur_group = '138'.
poheader-doc_date = itab2-edatu.
poheader-vendor = itab2-lifnr.
poheader-created_by = sy-uname.
poheader-pmnttrms = 'B001'.
APPEND poheader.
poheaderx-pmnttrms = 'X'.
poheaderx-comp_code = 'X'.
poheaderx-doc_type = 'X'.
poheaderx-item_intvl = 'X'.
poheaderx-purch_org = 'X'.
poheaderx-pur_group = 'X'.
poheaderx-doc_date = 'X'.
poheaderx-created_by = 'X'.
poheaderx-vendor = 'X'.
APPEND poheaderx.
ENDIF.
ADD 10 TO pos.
poitem-po_item = pos.
poitem-ematerial = itab2-matnr.
poitem-plant = '3000'.
poitem-stge_loc = itab2-lgort.
poitem-quantity = itab2-menge_o.
poitem-net_price = itab2-netpr.
poitem-val_type = itab2-bwtar.
* >>> Для экспорта заменяем код налога.
IF with_eks EQ 'X'.
poitem-tax_code = 'M1'.
ENDIF.
* <<< Для экспорта заменяем код налога.
APPEND poitem.
poschedule-po_item = pos.
poschedule-delivery_date = poheader-doc_date.
APPEND poschedule.
poschedulex-po_item = pos.
poschedulex-delivery_date = 'X'.
APPEND poschedulex.
poitemx-po_item = pos.
poitemx-po_itemx = 'X'.
poitemx-ematerial = 'X'.
poitemx-plant = 'X'.
poitemx-stge_loc = 'X'.
poitemx-quantity = 'X'.
poitemx-net_price = 'X'.
poitem-val_type = 'X'.
CLEAR poitem-info_rec.
poitemx-info_rec = 'X'.
* >>> Для экспорта заменяем код налога.
IF with_eks EQ 'X'.
poitemx-tax_code = 'X'.
ENDIF.
* <<< Для экспорта заменяем код налога.
APPEND poitemx.
do = 'X'.
ENDLOOP.
CHECK do EQ 'X'.
cl poitem_dbl.
poitem_dbl[] = poitem[].
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_PO_CREATE1'
EXPORTING
poheader = poheader
poheaderx = poheaderx
testrun = ''
IMPORTING
exppurchaseorder = po_num
TABLES
return = return
poitem = poitem
poitemx = poitemx
poschedule = poschedule
poschedulex = poschedulex.