P_QUANTILIKE BAPIMEPOITEM-QUANTITY , P_NETPRILIKE BAPIMEPOITEM-NET_PRICE, P_PRICEULIKE BAPIMEPOITEM-PRICE_UNIT, P_RENAMELIKE BAPIMEPOITEM-PREQ_NAME DEFAULT SY-UNAME, P_PRDATELIKE BAPIMEPOITEM-PERIOD_IND_EXPIRATION_DATE DEFAULT 'D'. *herader data wa_poheader-po_number= P_NUMBER . wa_po...
lt_poitemx-OVER_DLV_TOL = 'X'. lt_poitemx-PRICE_UNIT = 'X'. * ENDIF. APPEND lt_poitemx. "增强字段 HEAD CLEAR lt_extensionin. SELECT SINGLE ZZNF ZSAISO INTO (L_ZZNF , L_ZSAISO) FROM ZZT_MARA_EXT WHERE MATNR EQ <FW_LS_OUTPUT>-MATNR. BAPI_TE_MEPOHEADER-ZHTBM = <FW_LS_...
lt_poitemx-OVER_DLV_TOL = 'X'. lt_poitemx-PRICE_UNIT = 'X'. * ENDIF. APPEND lt_poitemx. "增强字段 HEAD CLEAR lt_extensionin. SELECT SINGLE ZZNF ZSAISO INTO (L_ZZNF , L_ZSAISO) FROM ZZT_MARA_EXT WHERE MATNR EQ <FW_LS_OUTPUT>-MATNR. BAPI_TE_MEPOHEADER-ZHTBM = <FW_LS_...
wa_poitemx-NET_PRICE = 'X'. wa_poitemx-PRICE_UNIT = 'X'. wa_poitemx-PREQ_NAME = 'X'. wa_poitemx-PERIOD_IND_EXPIRATION_DATE = 'X'. append wa_poitemx to itab_poitemx. *call bapi CALL FUNCTION 'BAPI_PO_CREATE1' EXPORTING POHEADER = wa_poheader POHEADERX = wa_poheader...
poitemx-po_unit = con . "采购订单的计量单位 poitemx-net_price = con. "净价 poitemx-matl_group = con. "物料组 poitemx-plant = con. "工厂 poitemx-trackingno = con. "需求跟踪号 poitemx-preq_name = con. "需求者/请求者姓名 ...
poitemx-po_unit = con ."采购订单的计量单位 poitemx-net_price = con."净价 poitemx-matl_group = con."物料组 poitemx-plant = con."工厂 poitemx-trackingno = con."需求跟踪号 poitemx-preq_name = con."需求者/请求者姓名 poitemx-tax_code = con."销售税代码 poitemx-conf_ctrl = ...
SERVICES-PRICE_UNIT = '1' . SERVICES-OVF_TOL = '0' . *SERVICES-FROM_LINE = '1' . SERVICES-SHORT_TEXT = 'prueba creacion BAPI'. SERVICES-PERS_NO = '00000000' . SERVICES-PLN_PCKG = '0000001980' . SERVICES-PLN_LINE = '0000000002' . SERVICES-CON_PCKG = '0000001980' . SERVICES-CON...
poitemx-po_unit='X'. poitemx-net_price='X'. poitemx-preq_name='X'. APPENDpoitemx. CLEARpoitemx. "排程资料 poschedule-po_item='00010'."采购凭证的项目编号 poschedule-sched_line='0001'."采购凭证的项次 poschedule-del_datcat_ext='D'."交货日期的类别 ...
IF POITEM-PRICE_UNIT NE 0. POITEM-IR_IND = 'X'. ENDIF. * POITEM-UNLIMITED_DLV = 'X'. POITEM-UNDER_DLV_TOL = 0. clear: poitem-ARIBACRTTIMESTMP, poitem-ARIBAUPDTIMESTMP. * MODIFY POITEM TRANSPORTING UNLIMITED_DLV UNDER_DLV_TOL PLANT IR_IND ARIBACRTTIMESTMP ARIBAUPDTIMESTMP. ...
WA_POSERVICES-PRICE_UNIT = u20181u2019. WA_POSERVICES-GR_PRICE = u2018100.000u2019. WA_POSERVICES-SHORT_TEXT = u2018SERVICE TESTu2019. APPEND WA_POSERVICES TO IT_POSERVICES. WA_POSERVICES- PCKG_NO = u20180000000003u2019. WA_POSERVICES- LINE_NO = u20180000000002u2019. WA_POSERVICES-...