GN_DELIVERY_CREATE 去创建内向交货单的时候。
报错 VL 561 Essential transfer parameters are missing in record
表示一些必输字段没输入
诸如一些,物料号。单位。等一些字段
输入之后即可
DATA: ls_return TYPE bapireturn.DATA: lt_return TYPE STANDARD TABLE OF bapireturn.DATA: lt_item TYPE STANDARD TABLE OF bbp_inbd_d.DATA: lv_message TYPE string.DATA: lv_message_all TYPE string.DATA: ls_vbsk LIKE vbsk,es_vbsk LIKE vbsk,lt_spe_vbfs TYPE TABLE OF /spe/vbfs,ls_spe_vbfs TYPE /spe/vbfs,lt_komdlgn TYPE TABLE OF komdlgn,ls_komdlgn TYPE komdlgn,lt_vbfs TYPE TABLE OF vbfs,ls_vbfs TYPE vbfs,lt_vbls TYPE TABLE OF vbls,ls_vbls TYPE vbls.DATA: l_nrnr TYPE inri-nrrangenr.DATA: ls_tvsa TYPE tvsa.*head ls_vbsk-mandt = sy-mandt.ls_vbsk-ernam = sy-uname.ls_vbsk-erdat = sy-datum.ls_vbsk-uzeit = sy-uzeit.ls_vbsk-smart = 'L'.SELECT SINGLE * INTO ls_tvsaFROM tvsa WHERE smart = ls_vbsk-smart.CALL FUNCTION 'NUMBER_GET_NEXT'EXPORTINGnr_range_nr = l_nrnrobject = 'RV_SAMMG'IMPORTINGnumber = ls_vbsk-sammgEXCEPTIONSOTHERS = 1.l_nrnr = ls_tvsa-numki.*清空变量CLEAR:lt_komdlgn,lt_spe_vbfs,lt_vbfs,ls_vbfs,lt_vbls,ls_vbls.*itemCLEAR:ls_komdlgn,l_nrnr,ls_tvsa.ls_komdlgn-lfart = 'ZEL'.ls_komdlgn-vgtyp = 'V'.ls_komdlgn-kzazu = 'X'.ls_komdlgn-lfdat = gs_inbound-lfdat.ls_komdlgn-wadat = gs_inbound-wadat_ist.ls_komdlgn-vstel = 'NL10'.ls_komdlgn-vgbel = gs_inbound-ebeln.ls_komdlgn-vgpos = gs_inbound-ebelp.ls_komdlgn-lifnr = gs_inbound-lifnr.ls_komdlgn-lfimg = gs_inbound-lfimg."ls_komdlgn-vgpos = 10.ls_komdlgn-matnr = gs_inbound-matnr.ls_komdlgn-matwa = gs_inbound-matnr.ls_komdlgn-werks = gs_inbound-werks.ls_komdlgn-lgort = gs_inbound-lgort.ls_komdlgn-vrkme = gs_inbound-meins.ls_komdlgn-meins = gs_inbound-meins.ls_komdlgn-lifex = gs_inbound-verur.ls_komdlgn-verur = gs_inbound-verur."ls_komdlgn-lifexpos = gs_inbound-ebelp.ls_komdlgn-bolnr = gs_inbound-bolnr.ls_komdlgn-vornu = gs_inbound-vornu.ls_komdlgn-zz_etoporto = gs_inbound-zz_etoporto.ls_komdlgn-zz_etdport = gs_inbound-zz_etdport.ls_komdlgn-zz_atdport = gs_inbound-zz_atdport.ls_komdlgn-zz_etaport = gs_inbound-zz_etaport.ls_komdlgn-zz_ataport = gs_inbound-zz_ataport.ls_komdlgn-zz_disport = gs_inbound-zz_disport.ls_komdlgn-zz_empret = gs_inbound-zz_empret.SELECT SINGLE inco1, inco2INTO ( @ls_komdlgn-inco1,@ls_komdlgn-inco2 ) FROM lfm1WHERE lifnr = @gs_inbound-lifnrAND ekorg = 'P001'.APPEND ls_komdlgn TO lt_komdlgn.CALL FUNCTION 'GN_DELIVERY_CREATE'EXPORTINGvbsk_i = ls_vbskIMPORTINGvbsk_e = ls_vbsk
* ET_SPLITPROT =
* ET_VBADR =
* ET_VBPA =TABLESxkomdlgn = lt_komdlgnxvbfs = lt_vbfsxvbls = lt_vblset_spe_vbfs = lt_spe_vbfsEXCEPTIONSOTHERS = 1.LOOP AT lt_spe_vbfs INTO ls_spe_vbfs WHERE msgty CA 'EAX'.MESSAGE ID ls_spe_vbfs-msgid TYPE ls_spe_vbfs-msgtyNUMBER ls_spe_vbfs-msgnoINTO lv_messageWITH ls_spe_vbfs-msgv1 ls_spe_vbfs-msgv2ls_spe_vbfs-msgv3 ls_spe_vbfs-msgv4.IF lv_message_all IS INITIAL.lv_message_all = lv_message.ELSE.CONCATENATE lv_message_all lv_message INTO lv_message_all SEPARATED BY ';'.ENDIF.ENDLOOP.IF lv_message_all IS INITIAL .CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.READ TABLE lt_vbls INTO ls_vbls INDEX 1.ELSE.ENDIF.