GN_DELIVERY_CREATE

[Former Member]

hello experts,

how does this FM GN_DELIVERY_CREATE work?

please help me on this.

if you have sample code, please include also.

thank you very much...

---march ---

[Former Member]

See FM

IDOC_INPUT_DESADV1

for sample coding.

  DATA: NRNR LIKE INRI-NRRANGENR.
  DATA: LI_BADI_IDOC_EVAL_RESULT
          TYPE REF TO IF_EX_LE_SHP_EVAL_RESULT.               "n_906672

  CHECK F_STAT <> 2.

* Sammelgangsnummer vergeben
  S_VBSK-MANDT = SY-MANDT.
  S_VBSK-ERNAM = SY-UNAME.
  S_VBSK-ERDAT = SY-DATUM.
  S_VBSK-UZEIT = SY-UZEIT.
  S_VBSK-SMART = 'L'.
  SELECT SINGLE * FROM TVSA WHERE SMART = S_VBSK-SMART.
  IF SY-SUBRC <> 0.
    F_STAT = 2.
*   Meldung ins Protokoll
  ENDIF.

  CHECK F_STAT <> 2.

  NRNR = TVSA-NUMKI.
  CALL FUNCTION 'NUMBER_GET_NEXT'
       EXPORTING
            NR_RANGE_NR = NRNR
            OBJECT      = 'RV_SAMMG'
       IMPORTING
            NUMBER      = S_VBSK-SAMMG
       EXCEPTIONS
            OTHERS      = 1.
  IF SY-SUBRC <> 0.
    F_STAT = 2.
*   Meldung ins Protokoll
  ENDIF.

  CHECK F_STAT <> 2.

  IF NOT T_VLBLDLGN[] IS INITIAL.
    CALL FUNCTION 'XSI_SET_VLBLDLGN'
         TABLES
              XVLBLDLGN = T_VLBLDLGN.
  ENDIF.

  SET UPDATE TASK LOCAL.

  SORT T_SERN.                                                 "n_920706

  CALL FUNCTION 'GN_DELIVERY_CREATE'
       EXPORTING
            VBSK_I        = S_VBSK
            NO_COMMIT     = TRUE
            IF_SYNCHRON   = ' '             "INS_HP_338221
            IF_NO_DEQUE   = 'X'             "n_632020
            IF_CHECK_UOM  = 'B'             "n_914421
       IMPORTING
            VBSK_E        = S_VBSK
       TABLES
            XKOMDLGN      = T_DLGN
            XVBFS         = T_VBFS
            XVBLS         = T_VBLS
            XVERKO        = T_VSEK
            XVERPO        = T_VSEP
            IT_GN_HUSERNR = T_HUSN
            IT_GN_SERNR   = T_SERN
       EXCEPTIONS
            ERROR_MESSAGE = 1
            OTHERS        = 2.

  IF SY-SUBRC <> 0.
*   Für nicht abgefangene Fehler, z.B. durch Aufruf von Dialogroutinen
*   in Userexits (wie externe Nummervergabe).
    F_STAT = 2.
    T_PROT-MSGID = SY-MSGID.
    T_PROT-MSGNO = SY-MSGNO.
    T_PROT-MSGTY = SY-MSGTY.
    T_PROT-MSGV1 = SY-MSGV1.
    T_PROT-MSGV2 = SY-MSGV2.
    T_PROT-MSGV3 = SY-MSGV3.
    T_PROT-MSGV4 = SY-MSGV4.
    APPEND T_PROT.
  ENDIF.

Regards

Aneesh.