Materialbelege mit eigner Materialbelegnummer (BADI)

Code: Alles auswählen.

  DATA xmblnr TYPE mkpf-zzmblnr.
  DATA var1(20) VALUE 'SAPMM07M(xmkpf[])'.
  FIELD-SYMBOLS: <f1> TYPE ANY table,
                 <f2> TYPE mkpf.

  ASSIGN (var1) TO <f1>.

      CALL FUNCTION 'NUMBER_GET_NEXT'
        EXPORTING
          nr_range_nr             = '01'
          object                  = 'Z_MBELG'
        IMPORTING
          number                  = xmblnr
        EXCEPTIONS
          interval_not_found      = 1
          number_range_not_intern = 2
          object_not_found        = 3
          quantity_is_0           = 4
          quantity_is_not_1       = 5
          interval_overflow       = 6
          buffer_overflow         = 7
          OTHERS                  = 8.

      LOOP AT <f1> ASSIGNING <f2>.
        <f2>-zzmblnr = xmblnr.
      ENDLOOP.