Einfache Frage: RFBIBL00 vs. CT vs. ???

Code: Alles auswählen.

** Belegkopf

      gs_dochead-obj_type = 'ZVBRK'.  "angeblich ein Mussfeld
      gs_dochead-obj_key = gs_alvtab-vbeln. "angeblich ein Mussfeld (gefüllt mit Nummer der SD-Faktura als Vorgängerbeleg)

      gs_dochead-bus_act = 'RFBU'.
      gs_dochead-username = sy-uname.
      SELECT SINGLE bukrs INTO gs_dochead-comp_code
      FROM vbrk
      WHERE vbeln = gs_alvtab-vbeln.
      SELECT SINGLE *
       FROM z99f_provi_buch
       INTO gs_provi_buch
       WHERE bukrs EQ gs_dochead-comp_code
        AND  parvw EQ 'DI'
        AND  vtweg EQ gs_alvtab-vtweg.
      gs_dochead-doc_date = gs_alvtab-fkdat.
      gs_dochead-pstng_date = sy-datum.
      gs_dochead-doc_type = 'YV'.
      gs_dochead-ref_doc_no = gs_alvtab-vbeln.
      CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
        IMPORTING
          own_logical_system = gs_dochead-obj_sys.
      APPEND gs_dochead TO gt_dochead.

** Personenkontenzeile
      gs_accpay-itemno_acc = '1'.
      SELECT SINGLE lifnr INTO gs_accpay-vendor_no
      FROM vbpa
      WHERE vbeln = gs_alvtab-vbeln
       AND  parvw = 'DI'.
      gs_accgl-gl_account  = gs_provi_buch-saknr.
      gs_accpay-pmnt_block = 'X'.
      SELECT SINGLE extwg FROM mara
      INTO gs_accpay-alloc_nmbr
      WHERE matnr = gs_alvtab-matnr.
      gs_accgl-item_text = gs_alvtab-kunag.
      gs_accgl-tax_code = gs_provi_buch-mwskz.
      APPEND gs_accpay TO gt_accpay.

** Betragszeilen
      gs_camount-itemno_acc = '1'.
      gs_camount-currency_iso = gs_alvtab-waerk.
      gs_camount-amt_doccur = gs_alvtab-prwge.
      APPEND gs_camount TO gt_camount.
      gs_camount-itemno_acc = '2'.
      gs_camount-amt_doccur = gs_camount-amt_doccur * ( -1 ).
      APPEND gs_camount TO gt_camount.

** Sachkontenzeile

* Erstaunt war ich hier, dass ich keinen Buchungsschlüssel übergeben kann ;)
      gs_accgl-itemno_acc = '2'.
      gs_accgl-gl_account = gs_provi_buch-saknr.
      gs_accgl-item_text = gs_alvtab-kunag.
      SELECT SINGLE lifnr INTO gs_accgl-vendor_no
      FROM vbpa
      WHERE vbeln = gs_alvtab-vbeln
       AND  posnr = gs_alvtab-posnr
       AND  parvw = 'DI'.
      SELECT SINGLE extwg FROM mara
      INTO gs_accgl-alloc_nmbr
      WHERE matnr = gs_alvtab-matnr.
      SELECT SINGLE PRCTR INTO gs_accgl-profit_ctr
      FROM marc
      WHERE matnr = gs_alvtab-matnr
       AND  werks = gs_alvtab-werks.
      gs_accgl-tax_code = gs_provi_buch-mwskz.
      gs_accgl-material = gs_alvtab-matnr.
      gs_accgl-plant    = gs_alvtab-werks.
      APPEND gs_accgl TO gt_accgl.

      CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
        EXPORTING
          documentheader = gs_dochead
        IMPORTING
          obj_key        = gs_dochead-obj_key
        TABLES
          accountgl      = gt_accgl
          accountpayable = gt_accpay
          currencyamount = gt_camount
          return         = gt_bapi_ret.

      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.

* Belegnummer entgegennehmen <- HIER steht wieder die SD-Faktura drin
*       ich will hier aber die Nummer des gebuchten FI-Beleges sehen
      gr_belnr_l-sign   = 'I'.
      gr_belnr_l-option = 'EQ'.
      gr_belnr_l-low    = gs_dochead-obj_key.
      APPEND gr_belnr_l TO gr_belnr.