BAPI zum ändern des Kopfes eines Beleges

Code: Alles auswählen.

  loop at gt_bseg_key into gs_bseg_key.

    select single * from  bkpf
           where  bukrs  = gs_bseg_key-bukrs
           and    belnr  = gs_bseg_key-belnr
           and    gjahr  = gs_bseg_key-gjahr.

    call function 'FI_BELNR_TO_AWREF'
      exporting
        bukrs = bkpf-bukrs
        gjahr = bkpf-gjahr
        belnr = bkpf-belnr
      importing
        awref = gv_awref
        aworg = gv_aworg.

    check gs_bseg_key-zfbdt <> bkpf-cpudt.

    refresh gt_accchg.
    gt_accchg-fdname = 'ZFBDT     '.
    write: gs_bseg_key-zfbdt to gt_accchg-oldval.
    gt_accchg-newval = bkpf-cpudt.
    append gt_accchg.

    if p_test =  abap_false.

      call function 'FI_DOCUMENT_CHANGE'
        exporting
          i_awtyp              = bkpf-awtyp
          i_awref              = gv_awref
          i_aworg              = gv_aworg
          i_awsys              = bkpf-awsys
          i_buzei              = gs_bseg_key-buzei
        tables
          t_accchg             = gt_accchg
        exceptions
          no_reference         = 1
          no_document          = 2
          many_documents       = 3
          wrong_input          = 4
          overwrite_creditcard = 5
          others               = 6.