REPORT z_fakturavorrat_report.

* Definition der Texte
TEXT-001 = 'Fakturavorrat Report'.

* Datenstrukturen für ALV und Fehlerhandling
TYPES: BEGIN OF ty_alv_data,
         object_id  TYPE crmd_orderadm_h-object_id,
         number_int TYPE crmd_orderadm_i-number_int,
         src_itemno TYPE /1bea/ipmi_dli-src_itemno,
         net_value  TYPE /1bea/ipmi_dli-net_value,
         bill_block TYPE /1bea/ipmi_dli-src_bill_block,
         headno_ext TYPE /1bea/ipmi_bdh-headno_ext,
         error_msg  TYPE char80,
       END OF ty_alv_data.

DATA: lt_alv_data TYPE TABLE OF ty_alv_data,
      lt_error_table TYPE TABLE OF bapiret2,
      lv_error_count TYPE i.

* Selektionsbildschirm
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.

PARAMETERS: p_object_id TYPE crmd_orderadm_h-object_id OPTIONAL,
            p_itm_type  TYPE crmd_orderadm_i-itm_type OPTIONAL,
            p_prod      TYPE crmd_orderadm_i-ordered_prod OPTIONAL.

SELECT-OPTIONS: so_date FOR scapptseg-tst_from OBLIGATORY.

PARAMETERS: p_test TYPE abap_bool DEFAULT abap_false.

SELECTION-SCREEN END OF BLOCK blk1.

START-OF-SELECTION.

* Daten aus der Tabelle /1BEA/IPMI_DLI selektieren
DATA: lt_dli_data TYPE TABLE OF /1bea/ipmi_dli.

SELECT *
  INTO TABLE lt_dli_data
  FROM /1bea/ipmi_dli
  WHERE bill_block IS INITIAL
    AND tst_from BETWEEN so_date-low AND so_date-high.

* Optionale Filter einbauen
IF p_object_id IS NOT INITIAL.
  DELETE lt_dli_data WHERE object_id <> p_object_id.
ENDIF.

IF p_itm_type IS NOT INITIAL.
  DELETE lt_dli_data WHERE itm_type <> p_itm_type.
ENDIF.

IF p_prod IS NOT INITIAL.
  DELETE lt_dli_data WHERE ordered_prod <> p_prod.
ENDIF.

* Daten aufbereiten
LOOP AT lt_dli_data INTO DATA(ls_dli).
  DATA(ls_alv) = VALUE ty_alv_data(
    object_id  = ls_dli-object_id
    number_int = ls_dli-number_int
    src_itemno = ls_dli-src_itemno
    net_value  = ls_dli-net_value
    bill_block = ls_dli-src_bill_block
    headno_ext = ls_dli-headno_ext
    error_msg  = '' " Hier könnten weitere Fehlerbehandlungen eingefügt werden
  ).

  " Fehlerprüfung (Beispiel)
  IF ls_alv.net_value IS INITIAL.
    ls_alv-error_msg = 'Netto-Wert fehlt'.
  ENDIF.

  APPEND ls_alv TO lt_alv_data.
ENDLOOP.

* Testmodus: Simulation ohne Änderungen
IF p_test = abap_true.
  WRITE: / 'Testmodus aktiviert: Daten werden nur simuliert.'.
  LOOP AT lt_alv_data INTO DATA(ls_test_alv).
    WRITE: / ls_test_alv-object_id, ls_test_alv-number_int, ls_test_alv-error_msg.
  ENDLOOP.
  RETURN.
ENDIF.

* Daten an den Funktionsbaustein übergeben
CALL FUNCTION '/1BEA/IPMI_BD_O_CREATE'
  EXPORTING
    it_data = lt_alv_data
  IMPORTING
    et_errors = lt_error_table.

* Fehleranalyse
LOOP AT lt_error_table INTO DATA(ls_error).
  IF ls_error-type = 'E' OR ls_error-type = 'A'.
    lv_error_count = lv_error_count + 1.
    WRITE: / 'Fehler:', ls_error-message.
  ENDIF.
ENDLOOP.

* Transaktionssteuerung
IF lv_error_count = 0.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = abap_true.
  WRITE: / 'Änderungen wurden erfolgreich gespeichert.'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  WRITE: / 'Änderungen wurden zurückgesetzt wegen Fehlern.'.
ENDIF.

* ALV-Ausgabe
DATA: gr_alv TYPE REF TO cl_salv_table.

TRY.
    cl_salv_table=>factory(
      IMPORTING r_salv_table = gr_alv
      CHANGING  t_table      = lt_alv_data ).

    gr_alv->get_columns( )->get_column( 'OBJECT_ID' )->set_short_text( 'Vertragsnummer' ).
    gr_alv->get_columns( )->get_column( 'NUMBER_INT' )->set_short_text( 'Vertragsposition' ).
    gr_alv->get_columns( )->get_column( 'SRC_ITEMNO' )->set_short_text( 'FAP ID/BRI ID' ).
    gr_alv->get_columns( )->get_column( 'NET_VALUE' )->set_short_text( 'Faktura Nettowert' ).
    gr_alv->get_columns( )->get_column( 'BILL_BLOCK' )->set_short_text( 'Fakturasperre' ).
    gr_alv->get_columns( )->get_column( 'HEADNO_EXT' )->set_short_text( 'Fakturanummer' ).
    gr_alv->get_columns( )->get_column( 'ERROR_MSG' )->set_short_text( 'Fehlermeldung' ).

    gr_alv->display( ).

  CATCH cx_salv_msg INTO DATA(lx_msg).
    WRITE: / 'Fehler bei der Anzeige des ALV:', lx_msg->get_text( ).
ENDTRY.

REPORT z_create_faktura_report.

* Daten-Deklaration
TABLES: crmd_orderadm_h,
        crmd_orderadm_i,
        /1bea/ipmi_dli,
        /1bea/ipmi_bdh.

TYPES: BEGIN OF ty_alv_data,
         object_id  TYPE crmd_orderadm_h-object_id,
         src_itemno TYPE /1bea/ipmi_dli-src_itemno,
         net_value  TYPE /1bea/ipmi_dli-net_value,
         bill_block TYPE /1bea/ipmi_dli-src_bill_block,
         headno_ext TYPE /1bea/ipmi_bdh-headno_ext,
         app_guid   TYPE scapptseg-appl_guid,
         error_msg  TYPE char80,
         factura_no TYPE /1bea/ipmi_bdh-headno_ext, " Faktura-Nummer
       END OF ty_alv_data.

DATA: lt_positions   TYPE TABLE OF /1bea/ipmi_dli,
      ls_position    TYPE /1bea/ipmi_dli,
      lt_alv_data    TYPE TABLE OF ty_alv_data,
      ls_alv_data    TYPE ty_alv_data,
      lt_error_table TYPE TABLE OF ty_alv_data,
      lv_error_msg   TYPE char80.

* Selektion
PARAMETERS: p_min_value TYPE /1bea/ipmi_dli-net_value DEFAULT '1000', " Mindestbetrag
            p_test_run  TYPE abap_bool DEFAULT abap_true. " Testlauf

START-OF-SELECTION.
  TRY.
      " Relevante Positionen filtern
      SELECT * FROM /1bea/ipmi_dli
        INTO TABLE lt_positions
        WHERE src_bill_block = ' '   " Nur Positionen ohne Faktura-Sperre
          AND net_value >= p_min_value. " Mindestwert prüfen

      LOOP AT lt_positions INTO ls_position.
        CLEAR ls_alv_data.

        " ALV-Datensatz aufbereiten
        ls_alv_data-src_itemno = ls_position-src_itemno.
        ls_alv_data-net_value  = ls_position-net_value.
        ls_alv_data-bill_block = ls_position-src_bill_block.
        ls_alv_data-app_guid   = ls_position-ref_guid.

        SELECT SINGLE object_id
          INTO ls_alv_data-object_id
          FROM crmd_orderadm_h
          WHERE guid = ls_position-ref_guid.

        SELECT SINGLE headno_ext
          INTO ls_alv_data-headno_ext
          FROM /1bea/ipmi_bdh
          WHERE appl_guid = ls_position-ref_guid.

        APPEND ls_alv_data TO lt_alv_data.
      ENDLOOP.

      " Nur fortfahren, wenn Daten vorhanden sind
      IF lt_alv_data IS INITIAL.
        MESSAGE 'Keine relevanten Positionen gefunden' TYPE 'I'.
        RETURN.
      ENDIF.

      " Verarbeitung: Faktura erstellen
      IF p_test_run = abap_true.
        LOOP AT lt_alv_data INTO ls_alv_data.
          ls_alv_data-error_msg = 'TEST: Keine Buchung durchgeführt'.
          APPEND ls_alv_data TO lt_error_table.
        ENDLOOP.
      ELSE.
        CALL FUNCTION '/1BEA/IPMI_BD_O_CREATE'
          EXPORTING
            it_data = lt_alv_data
          IMPORTING
            et_errors = lt_error_table
          EXCEPTIONS
            others = 1.

        IF sy-subrc <> 0.
          MESSAGE 'Fehler beim Aufruf der Fakturaerstellung' TYPE 'E'.
        ENDIF.

        " Aktualisierung der generierten headno_ext aus der Tabelle /1BEA/IPMI_BDH
        LOOP AT lt_alv_data INTO ls_alv_data WHERE app_guid IS NOT INITIAL.
          SELECT SINGLE headno_ext
            INTO ls_alv_data-factura_no
            FROM /1bea/ipmi_bdh
            WHERE appl_guid = ls_alv_data-app_guid.

          MODIFY lt_alv_data FROM ls_alv_data TRANSPORTING factura_no.
        ENDLOOP.
      ENDIF.

    CATCH cx_root INTO DATA(lx_root).
      lv_error_msg = lx_root->get_text( ).
      MESSAGE lv_error_msg TYPE 'E'.
  ENDTRY.

END-OF-SELECTION.

* ALV-Ausgabe
DATA: lt_display_table TYPE TABLE OF ty_alv_data.

IF p_test_run = abap_false.
  lt_display_table = lt_alv_data. " Tatsächliche Daten ausgeben
ELSE.
  lt_display_table = lt_error_table. " Testdaten ausgeben
ENDIF.

IF lt_display_table IS NOT INITIAL.
  DATA: lt_fieldcat TYPE lvc_t_fcat,
        ls_fieldcat TYPE lvc_s_fcat.

  " ALV-Feldkatalog erstellen
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname = 'OBJECT_ID'.
  ls_fieldcat-seltext_m = 'Objekt-ID'.
  APPEND ls_fieldcat TO lt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname = 'SRC_ITEMNO'.
  ls_fieldcat-seltext_m = 'Quellposition'.
  APPEND ls_fieldcat TO lt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname = 'NET_VALUE'.
  ls_fieldcat-seltext_m = 'Nettowert'.
  APPEND ls_fieldcat TO lt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname = 'BILL_BLOCK'.
  ls_fieldcat-seltext_m = 'Faktura-Sperre'.
  APPEND ls_fieldcat TO lt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname = 'HEADNO_EXT'.
  ls_fieldcat-seltext_m = 'Externe Kopfnummer'.
  APPEND ls_fieldcat TO lt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname = 'FACTURA_NO'.
  ls_fieldcat-seltext_m = 'Faktura-Nummer'.
  APPEND ls_fieldcat TO lt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname = 'ERROR_MSG'.
  ls_fieldcat-seltext_m = 'Fehlermeldung'.
  APPEND ls_fieldcat TO lt_fieldcat.

  " ALV anzeigen
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_fieldcat = lt_fieldcat
    TABLES
      t_outtab    = lt_display_table
    EXCEPTIONS
      program_error = 1
      others        = 2.

  IF sy-subrc <> 0.
    MESSAGE 'Fehler bei der ALV-Ausgabe' TYPE 'E'.
  ENDIF.
ENDIF.

*&---------------------------------------------------------------------*
*& Report Z_FAKTURAVORRAT_REPORT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
report z_fakturavorrat_report.

tables: crmd_orderadm_h, crmd_orderadm_i,  /1bea/ipmi_dli, scapptseg.
*--- Definition der benutzerdefinierten Struktur ---

constants:
  cv_f_ver(1) type c value 'V',  "Verbrauchfakturen,
  cv_f_geb(1) type c value 'G'.  "Gebührenfakturen.

types: begin of ty_vdata,
         header       type crmd_orderadm_h-guid,
         object_id    type crmd_orderadm_h-object_id,
         guid         type crmd_orderadm_i-guid,
         itm_type     type crmd_orderadm_i-itm_type,
         number_int   type crmd_orderadm_i-number_int,
         zcrf_lizref  type crmd_customer_i-zcrf_lizref,
         product_guid type comm_product-product_guid,
         product_id   type comm_product-product_id,
         tst_from     type scapptseg-tst_from,
         tst_to       type scapptseg-tst_to,
         objtype_hi   type crmd_link-objtype_hi,
         objtype_set  type crmd_link-objtype_set,
         stat         type crm_j_status,
       end of ty_vdata.

types: tt_vdata type table of ty_vdata with empty key.

data: lt_vdata  type  tt_vdata.
data: lt_vdata_all  type  tt_vdata.

types: begin of ty_alv_data,
         object_id  type crmd_orderadm_h-object_id,    " Objekt ID aus CRM-Order Header
         number_int type crmd_orderadm_i-number_int,
         itm_type   type crmd_orderadm_i-itm_type,
         "         src_itemno type /1bea/ipmi_dli-src_itemno,    " Artikelnummer der Quellrechnung
         net_value  type /1bea/ipmi_dli-net_value,     " Nettowert der Position
         bill_block type /1bea/ipmi_dli-src_bill_block, " Blockierungsstatus der Rechnung
         headno_ext type /1bea/ipmi_bdh-headno_ext,    " Erweiterte Rechnungsnummer
         "         app_guid   type scapptseg-appl_guid,           " GUID des Vertrags (APPL_GUID statt APP_SEG_ID)
         error_msg  type char80,                        " Fehlernachricht
       end of ty_alv_data.

types: tt_alv_data type table of ty_alv_data.

data:    ls_dlis type  /1bea/ipmi_dli.
data:    gt_fieldcat type slis_t_fieldcat_alv.

types begin of ty_dli.
"include structure /1bea/ipmi_dli.
include structure ls_dlis.
types zcrf_lizref  type crmd_customer_i-zcrf_lizref.
types headno_ext   type bea_headno_ext.
types end of ty_dli.

types: tt_dli type table of ty_dli.

data: lt_dli     type tt_dli,
      lt_dli_all type  tt_dli,
      ls_dli     type ty_dli.

*--- Data Declarations ---
data: lt_header        type table of crmd_orderadm_h, " Header
      lt_positions     type table of crmd_orderadm_i, " Positionen
      lt_filtered_pos  type table of crmd_orderadm_i, " Gefilterte Positionen
      "     lt_dli           type table of /1bea/ipmi_dli,
      "      lt_dli_all       type table of /1bea/ipmi_dli,
      "      ls_dli           type  /1bea/ipmi_dli,
      ls_dli_cntr      type  /1bea/ipmi_dli,
      lt_billing_data  type table of /1bea/ipmi_bdh,   " Fakturadaten
      lt_contract_data type table of scapptseg,        " Vertragsdaten
      gt_output        type table of ty_alv_data,     " ALV-Datenstruktur
      lt_dli_wrk       type  /1bea/t_ipmi_dli_wrk,
      ls_dli_wrk       type  /1bea/s_ipmi_dli_wrk,
      lt_range2        type range of crmd_orderadm_i-itm_type,  " 1. Range-Tabelle
      lt_range14       type range of crmd_orderadm_i-itm_type,  " 2. Range-Tabelle
      lv_error         type string,
      lt_return        type  beat_return,            " Fehlernachricht
      gt_return        type  beat_return,            " Fehlernachricht
      ls_return        type  beas_return.
"data: lv_prod_mode      type c length 1.               " Modus: 'P' für Produktiv, 'T' für Test
data: lv_commit_status type string.

data: ls_alv type ty_alv_data.

data: lv_fakt_art(1) type c.

data: lv_tst_from type timestampl,
      lv_tst_to   type timestampl.

data: lv_base_from type timestampl,
      lv_base_to   type timestampl.
*--- Selection Screen ---

"PARAMETERS: obj_id TYPE  crmd_orderadm_h DEFAULT '0006000312'.

*
*parameters: p_vbeg type d,
*            p_vend type d . " Vertragsende

select-options: so_objid for crmd_orderadm_h-object_id default '0010000002',   " Header Object ID
                so_itmtp for crmd_orderadm_i-itm_type, " default 'ZVM2' no intervals,
                so_prod  for crmd_orderadm_i-ordered_prod." default 'TESTIP'. " Ordered Product

parameters: p_dt_vfr type d default '20000110', "OBLIGATORY,
            p_dt_vto type d default '20241130'. " OBLIGATORY.

parameters: p_minval type /1bea/ipmi_dli-net_value default 5.
parameters:  p_test   type abap_bool default abap_true.
*--- START-OF-SELECTION: Hauptlogik ---

initialization.

  append value #( sign = 'I' option = 'EQ' low = 'ZVM1' ) to so_itmtp.
  append value #( sign = 'I' option = 'EQ' low = 'ZVM2' ) to so_itmtp.
  append value #( sign = 'I' option = 'EQ' low = 'ZVM4' ) to so_itmtp.
  append value #( sign = 'I' option = 'EQ' low = 'ZVA1' ) to so_itmtp.

start-of-selection.

  clear lt_range2.
  clear lt_range14.

  loop at so_prod assigning field-symbol(<fs_prod>).
    <fs_prod>-low = |{ <fs_prod>-low alpha = in }|.
    <fs_prod>-high = |{ <fs_prod>-high alpha = in }|.
  endloop.

  loop at so_objid assigning field-symbol(<fs_objid>).
    <fs_objid>-low = |{ <fs_objid>-low alpha = in }|.
    <fs_objid>-high = |{ <fs_objid>-high alpha = in }|.
  endloop.

  loop at so_itmtp.
    case so_itmtp-sign.
      when 'I'.
        case so_itmtp-option.
          when 'EQ'.
            if so_itmtp-low = 'ZVM2'.
              " ZVM1 in die erste Range-Tabelle
              append value #( sign = 'I' option = 'EQ' low = so_itmtp-low ) to lt_range2.
            else.
              " Alle anderen in die zweite Range-Tabelle
              append value #( sign = 'I' option = 'EQ' low = so_itmtp-low ) to lt_range14.
            endif.
        endcase.
    endcase.
  endloop.

  " Modus festlegen
  "lv_prod_mode =  p_test.

* CONVERT DATE p_dat_fr TIME '000000' INTO TIME STAMP lv_tst_from TIME ZONE sy-zonlo.
* CONVERT DATE p_dat_to TIME '235959' INTO TIME STAMP lv_tst_to TIME ZONE sy-zonlo.

  convert date p_dt_vfr time '000000' into time stamp lv_base_from time zone sy-zonlo.
  convert date p_dt_vto time '235959' into time stamp lv_base_to time zone sy-zonlo.

  " Selektiere  ZVM2 Positionen mit Verknüpfung und zusätzlichen Select-Options
  if lt_range2 is not initial.
    lt_vdata = zcl_dli_util=>get_contr_positions(
                 it_objid = so_objid[]
                 it_itmtp = lt_range2
                 it_prod  = so_prod[] ).

    if lt_vdata is not initial.
      perform create_fakturen using lt_vdata cv_f_ver.
    endif.
  endif.

  refresh lt_vdata.

  " Selektiere  ZVM1,ZVM4 Positionen mit Verknüpfung und zusätzlichen Select-Options
  if lt_range14 is not initial.
    lt_vdata = zcl_dli_util=>get_contr_positions(
                 it_objid = so_objid[]
                 it_itmtp = lt_range14
                 it_prod  = so_prod[] ).

    if lt_vdata is not initial.
      perform create_fakturen using lt_vdata cv_f_geb.
    endif.
  endif.

  perform create_fieldcat.

  perform display_alv.

  free lt_dli_wrk.

end-of-selection.

*-----------------------------------------------------*
*&      Form  CREATE_FAKTUREN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LT_VDATA  text
*----------------------------------------------------------------------*
form create_fakturen  using  pt_vdata type tt_vdata pv_fkt_art.
  data: lv_headno_ext type bea_headno_ext.
  data: lv_src_headno    type bea_src_headno,
        lv_src_item_type type crmt_item_type,
        lv_zcrf_lizref   type crmd_customer_i-zcrf_lizref.
  check lt_vdata is not initial.
  sort lt_vdata by header guid. "tst_from tst_to.

  "delete adjacent duplicates from lt_vdata comparing  header guid. "tst_from tst_to.
  "  " Rechnungsdaten filtern nach Select-Options und src_bill_block IS NULL
  lt_dli = zcl_dli_util=>get_dli_positions(
             it_vdata      = lt_vdata
             iv_minval     = p_minval
             iv_bill_date_from = p_dt_vfr
             iv_bill_date_to =  p_dt_vto ).
  "             iv_base_from  = lv_base_from
  "             iv_base_to    = lv_base_to ).

  if  lt_dli is not initial.

    case  pv_fkt_art.
      when cv_f_ver.

        loop at lt_dli into ls_dli
            group by ( src_headno = ls_dli-src_headno zcrf_lizref = ls_dli-zcrf_lizref ) into data(cntrv).
          lv_src_headno = cntrv-src_headno.
          lv_zcrf_lizref = cntrv-zcrf_lizref.
          clear: lv_headno_ext.
          refresh: lt_dli_wrk.

          loop at group cntrv into ls_dli_cntr.
            move-corresponding ls_dli_cntr to ls_dli_wrk.
            append ls_dli_wrk to lt_dli_wrk.
          endloop.

          zcl_dli_util=>create_faktura(
         exporting
           iv_testlauf = p_test
           it_dli_wrk  = lt_dli_wrk
             importing
           ev_headno_ext = lv_headno_ext
        receiving
           rt_return   = lt_return ).

          if lv_headno_ext is not initial.
            loop at lt_dli assigning field-symbol(<fs_dli>) where src_headno = lv_src_headno and
                                                              zcrf_lizref = lv_zcrf_lizref.
              if sy-subrc = 0.
                <fs_dli>-headno_ext = lv_headno_ext.
                "      exit.
              endif.
            endloop.

          endif.
          append lines of lt_return to gt_return.
          clear: lv_src_headno, lv_zcrf_lizref.
        endloop.

        append lines of lt_dli to lt_dli_all.
      when cv_f_geb.

        loop at lt_dli into ls_dli
            group by ( src_headno = ls_dli-src_headno src_item_type = ls_dli-src_item_type ) into data(cntrg).
          lv_src_headno = cntrg-src_headno.
          lv_src_item_type = cntrg-src_item_type.
          clear: lv_headno_ext.
          refresh: lt_dli_wrk.
          loop at group cntrg into ls_dli_cntr.
            move-corresponding ls_dli_cntr to ls_dli_wrk.
            append ls_dli_wrk to lt_dli_wrk.
          endloop.

          zcl_dli_util=>create_faktura(
         exporting
           iv_testlauf = p_test
           it_dli_wrk  = lt_dli_wrk
           importing
           ev_headno_ext = lv_headno_ext
        receiving
           rt_return   = lt_return ).

          if lv_headno_ext is not initial.
            loop at lt_dli assigning field-symbol(<fs_dli1>) where src_headno = lv_src_headno and
                                                              src_item_type = lv_src_item_type.
              if sy-subrc = 0.
                <fs_dli1>-headno_ext = lv_headno_ext.

              endif.
                " exit.
            endloop.

          endif.
          append lines of lt_return to gt_return.
          clear: lv_src_headno, lv_src_item_type.

        endloop.
        append lines of lt_dli to lt_dli_all.
      when others.
    endcase.

    "BREAK-POINT.
    "  rollback work.

    loop at lt_dli_all into  ls_dli.
      "loop at lt_dli into  ls_dli.
      move-corresponding ls_dli to ls_alv.
      "    " ALV-Daten aufbereiten
      data(ls_output) = value ty_alv_data(
  "        object_id   = ls_alv-object_id
  "      src_itemno  = ls_alv-src_itemno
        net_value   = ls_dli-net_value
        bill_block  = ls_alv-bill_block
        headno_ext  = ls_dli-headno_ext
      "  app_guid    = ls_alv-appl_guid
        error_msg   = ls_alv-error_msg ).

      read table lt_vdata into data(ls_data) with key
                          guid = ls_dli-src_guid
                          product_guid = ls_dli-product.
      ls_output-object_id =  ls_data-object_id.
      ls_output-number_int = ls_data-number_int.
      ls_output-itm_type   = ls_data-itm_type.
      read table gt_return into ls_return with key
                           src_itemno = ls_data-number_int
                           src_headno = ls_data-object_id.
      if sy-subrc = 0.
        ls_output-error_msg = ls_return-message.
      endif.
      append ls_output to gt_output.
    endloop.

  endif.
endform.
*&---------------------------------------------------------------------*
*&      Form  CREATE_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form create_fieldcat .

  data: ls_fieldcat type slis_fieldcat_alv.
  if gt_fieldcat is initial.
    " ALV-Feldkatalog erstellen
    clear ls_fieldcat.
    ls_fieldcat-outputlen = 20.
    ls_fieldcat-fieldname = 'OBJECT_ID'.
    ls_fieldcat-seltext_m  = 'Objekt-ID'.
    append ls_fieldcat to gt_fieldcat.

    clear ls_fieldcat.
    ls_fieldcat-outputlen = 20.
    ls_fieldcat-fieldname = 'NUMBER_INT'.
    ls_fieldcat-seltext_m = 'Vertragsposition'.
    append ls_fieldcat to gt_fieldcat.

    clear ls_fieldcat.
    ls_fieldcat-outputlen = 20.
    ls_fieldcat-fieldname = 'ITM_TYPE'.
    ls_fieldcat-seltext_m = 'Item-Type'.
    append ls_fieldcat to gt_fieldcat.

    clear ls_fieldcat.
    ls_fieldcat-outputlen = 20.
    ls_fieldcat-fieldname = 'NET_VALUE'.
    ls_fieldcat-seltext_m = 'Nettowert'.
    append ls_fieldcat to gt_fieldcat.

    clear ls_fieldcat.
    ls_fieldcat-outputlen = 20.
    ls_fieldcat-fieldname = 'BILL_BLOCK'.
    ls_fieldcat-seltext_m = 'Faktura-Sperre'.
    append ls_fieldcat to gt_fieldcat.

    clear ls_fieldcat.
    ls_fieldcat-outputlen = 20.
    ls_fieldcat-fieldname = 'HEADNO_EXT'.
    ls_fieldcat-seltext_m = 'Faktura-Nummer'.
    append ls_fieldcat to gt_fieldcat.

    clear ls_fieldcat.
    ls_fieldcat-fieldname = 'ERROR_MSG'.
    ls_fieldcat-outputlen = 20.
    ls_fieldcat-seltext_m = 'Fehlermeldung'.
    append ls_fieldcat to gt_fieldcat.

  endif.
endform.

*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GT_OUTPUT  text
*----------------------------------------------------------------------*
form display_alv.

  sort gt_output by object_id itm_type number_int.

  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      it_fieldcat   = gt_fieldcat
    tables
      t_outtab      = gt_output
    exceptions
      program_error = 1
      others        = 2.

endform.

*  delete adjacent duplicates from lt_dli comparing all fields.
*  loop at lt_dli into ls_dli
*        group by ls_dli-src_headno  into data(cntr).
*
*    loop at group cntr into ls_dli_cntr.
*      move-corresponding ls_dli_cntr to ls_dli_wrk.
*      append ls_dli_wrk to lt_dli_wrk.
*    endloop.
*  endloop.
*&----------------

*  loop at gt_return into data(ls_return).
*    if ls_return-type = 'S'.
*      find 'Fakturanummer' in ls_return-message.
*      if sy-subrc = 0.
*        "WRITE: / 'Erstellte Fakturanummer:', ls_return-message.
*
*
*      endif.
*    endif.
*  endloop.

REPORT z_generate_xrechnung.

*--- Datenstrukturen ---*
TYPES: BEGIN OF ty_tax_item,
         tax_category TYPE string,
         tax_rate     TYPE p DECIMALS 2,
         tax_amount   TYPE p DECIMALS 2,
       END OF ty_tax_item.

TYPES: BEGIN OF ty_line_item,
         item_number      TYPE string,
         item_description TYPE string,
         item_quantity    TYPE p DECIMALS 2,
         item_unit_price  TYPE p DECIMALS 2,
         item_total_amount TYPE p DECIMALS 2,
       END OF ty_line_item.

TYPES: BEGIN OF ty_invoice,
         belnr         TYPE string,
         budat         TYPE d,
         waers         TYPE string,
         wrbtr         TYPE p DECIMALS 2,
         supplier_name TYPE string,
         supplier_street TYPE string,
         supplier_city TYPE string,
         supplier_postcode TYPE string,
         supplier_country TYPE string,
         customer_name  TYPE string,
         iban           TYPE string,
         bic            TYPE string,
         payment_due_date TYPE d,
         payment_terms  TYPE string,
       END OF ty_invoice.

DATA: lt_invoices    TYPE TABLE OF ty_invoice,
      lt_tax_items   TYPE TABLE OF ty_tax_item,
      lt_line_items  TYPE TABLE OF ty_line_item,
      lv_xml_output  TYPE string,
      lv_file_path   TYPE string.

*--- Datenaufbereitung ---*
PERFORM prepare_data USING lt_invoices lt_tax_items lt_line_items.

*--- XML-Transformation ausführen ---*
CALL TRANSFORMATION z_xrechnung
  SOURCE invoices = lt_invoices
         tax_items = lt_tax_items
         line_items = lt_line_items
  RESULT XML lv_xml_output.

*--- XML-Datei speichern ---*
CONCATENATE '/tmp/XRechnung_' sy-datum '.xml' INTO lv_file_path.
OPEN DATASET lv_file_path FOR OUTPUT IN TEXT MODE ENCODING UTF-8.
IF sy-subrc = 0.
  TRANSFER lv_xml_output TO lv_file_path.
  CLOSE DATASET lv_file_path.
  WRITE: / 'XML-Datei erfolgreich erstellt:', lv_file_path.
ELSE.
  WRITE: / 'Fehler beim Speichern der XML-Datei.'.
ENDIF.

*---------------------------------------------------------------------*
* Form-Routinen
*---------------------------------------------------------------------*
FORM prepare_data USING pt_invoices TYPE TABLE OF ty_invoice
                          pt_tax_items TYPE TABLE OF ty_tax_item
                          pt_line_items TYPE TABLE OF ty_line_item.

  DATA: ls_invoice    TYPE ty_invoice,
        ls_tax_item   TYPE ty_tax_item,
        ls_line_item  TYPE ty_line_item.

  " Beispiel-Daten für Rechnung
  ls_invoice-belnr = '123456'.
  ls_invoice-budat = sy-datum.
  ls_invoice-waers = 'EUR'.
  ls_invoice-wrbtr = '1500.00'.
  ls_invoice-supplier_name = 'Lieferant GmbH'.
  ls_invoice-supplier_street = 'Hauptstraße 1'.
  ls_invoice-supplier_city = 'München'.
  ls_invoice-supplier_postcode = '80331'.
  ls_invoice-supplier_country = 'DE'.
  ls_invoice-customer_name = 'Kunde AG'.
  ls_invoice-iban = 'DE89370400440532013000'.
  ls_invoice-bic = 'COBADEFFXXX'.
  ls_invoice-payment_due_date = sy-datum + 30.
  ls_invoice-payment_terms = 'Zahlbar innerhalb von 30 Tagen'.
  APPEND ls_invoice TO pt_invoices.

  " Beispiel-Daten für Steuern
  ls_tax_item-tax_category = 'VAT'.
  ls_tax_item-tax_rate = '19'.
  ls_tax_item-tax_amount = '285.00'.
  APPEND ls_tax_item TO pt_tax_items.

  CLEAR ls_tax_item.
  ls_tax_item-tax_category = 'Reduced'.
  ls_tax_item-tax_rate = '7'.
  ls_tax_item-tax_amount = '105.00'.
  APPEND ls_tax_item TO pt_tax_items.

  " Beispiel-Daten für Rechnungspositionen
  ls_line_item-item_number = '10'.
  ls_line_item-item_description = 'Produkt A'.
  ls_line_item-item_quantity = '5'.
  ls_line_item-item_unit_price = '100.00'.
  ls_line_item-item_total_amount = '500.00'.
  APPEND ls_line_item TO pt_line_items.

  CLEAR ls_line_item.
  ls_line_item-item_number = '20'.
  ls_line_item-item_description = 'Produkt B'.
  ls_line_item-item_quantity = '10'.
  ls_line_item-item_unit_price = '100.00'.
  ls_line_item-item_total_amount = '1000.00'.
  APPEND ls_line_item TO pt_line_items.

ENDFORM.

<?sap.transform simple?>
<tt:transform xmlns:tt="http://www.sap.com/transformation-templates">
  <tt:root name="invoices"/>

  <tt:template>
    <Invoice>
      <!-- Rechnungsheader -->
      <Header>
        <InvoiceNumber><tt:value ref="belnr"/></InvoiceNumber>
        <InvoiceDate><tt:value ref="budat"/></InvoiceDate>
        <Currency><tt:value ref="waers"/></Currency>
        <TotalAmount><tt:value ref="wrbtr"/></TotalAmount>
      </Header>

      <!-- Rechnungssteller -->
      <Party>
        <Supplier>
          <Name><tt:value ref="supplier_name"/></Name>
          <Address>
            <Street><tt:value ref="supplier_street"/></Street>
            <City><tt:value ref="supplier_city"/></City>
            <PostalCode><tt:value ref="supplier_postcode"/></PostalCode>
            <Country><tt:value ref="supplier_country"/></Country>
          </Address>
        </Supplier>
        <Customer>
          <Name><tt:value ref="customer_name"/></Name>
        </Customer>
      </Party>

      <!-- Steuerinformationen -->
      <TaxDetails>
        <tt:loop name="taxes" ref="tax_items">
          <Tax>
            <TaxCategory><tt:value ref="tax_category"/></TaxCategory>
            <TaxRate><tt:value ref="tax_rate"/></TaxRate>
            <TaxAmount><tt:value ref="tax_amount"/></TaxAmount>
          </Tax>
        </tt:loop>
      </TaxDetails>

      <!-- Zahlungsdetails -->
      <PaymentDetails>
        <IBAN><tt:value ref="iban"/></IBAN>
        <BIC><tt:value ref="bic"/></BIC>
        <PaymentDueDate><tt:value ref="payment_due_date"/></PaymentDueDate>
        <PaymentTerms><tt:value ref="payment_terms"/></PaymentTerms>
      </PaymentDetails>

      <!-- Rechnungspositionen -->
      <LineItems>
        <tt:loop name="items" ref="line_items">
          <Item>
            <ItemNumber><tt:value ref="item_number"/></ItemNumber>
            <Description><tt:value ref="item_description"/></Description>
            <Quantity><tt:value ref="item_quantity"/></Quantity>
            <UnitPrice><tt:value ref="item_unit_price"/></UnitPrice>
            <TotalAmount><tt:value ref="item_total_amount"/></TotalAmount>
          </Item>
        </tt:loop>
      </LineItems>
    </Invoice>
  </tt:template>
</tt:transform>

[code=xml][spoiler][spoiler][code=java]DATA: lt_display_xml TYPE TABLE OF string,
      lv_line        TYPE string.

* XML-Ausgabe in Zeilen aufteilen
SPLIT lv_xml_output AT cl_abap_char_utilities=>newline INTO TABLE lt_display_xml.

* Ausgabe in einem Dialogfenster
CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
  EXPORTING
    endpos_col         = 120
    endpos_row         = 20
    startpos_col       = 5
    startpos_row       = 5
    titletext          = 'Generierte XRechnung XML-Daten'
  TABLES
    valuetab           = lt_display_xml
  EXCEPTIONS
    OTHERS             = 1.

IF sy-subrc <> 0.
  WRITE: / 'Fehler beim Anzeigen des Pop-ups mit XML-Daten.'.
ENDIF.

<Invoice>
  <Header>
    <InvoiceNumber>123456</InvoiceNumber>
    <InvoiceDate>2024-12-14</InvoiceDate>
    <Currency>EUR</Currency>
    <TotalAmount>1500.00</TotalAmount>
  </Header>
  <Party>
    <Supplier>
      <Name>Lieferant GmbH</Name>
      <Address>
        <Street>Hauptstraße 1</Street>
        <City>München</City>
        <PostalCode>80331</PostalCode>
        <Country>DE</Country>
      </Address>
    </Supplier>
    <Customer>
      <Name>Kunde AG</Name>
    </Customer>
  </Party>
  <TaxDetails>
    <Tax>
      <TaxCategory>VAT</TaxCategory>
      <TaxRate>19</TaxRate>
      <TaxAmount>285.00</TaxAmount>
    </Tax>
    <Tax>
      <TaxCategory>Reduced</TaxCategory>
      <TaxRate>7</TaxRate>
      <TaxAmount>105.00</TaxAmount>
    </Tax>
  </TaxDetails>
  <PaymentDetails>
    <IBAN>DE89370400440532013000</IBAN>
    <BIC>COBADEFFXXX</BIC>
    <PaymentDueDate>2024-12-31</PaymentDueDate>
    <PaymentTerms>Zahlbar innerhalb von 30 Tagen</PaymentTerms>
  </PaymentDetails>
  <LineItems>
    <Item>
      <ItemNumber>10</ItemNumber>
      <Description>Produkt A</Description>
      <Quantity>5</Quantity>
      <UnitPrice>100.00</UnitPrice>
      <TotalAmount>500.00</TotalAmount>
    </Item>
    <Item>
      <ItemNumber>20</ItemNumber>
      <Description>Produkt B</Description>
      <Quantity>10</Quantity>
      <UnitPrice>100.00</UnitPrice>
      <TotalAmount>1000.00</TotalAmount>
    </Item>
  </LineItems>
</Invoice>

LOOP AT lt_invoice_data INTO ls_invoice.
  " Rechnungsnummer (BT-02)
  IF ls_invoice.belnr IS INITIAL.
    APPEND |Rechnung { ls_invoice.belnr }: Rechnungsnummer fehlt.| TO lt_error_log.
  ENDIF.

  " Rechnungsdatum (BT-03)
  IF ls_invoice.budat IS INITIAL.
    APPEND |Rechnung { ls_invoice.belnr }: Rechnungsdatum fehlt.| TO lt_error_log.
  ENDIF.

  " Währungscode (BT-10)
  IF ls_invoice.waers IS INITIAL OR ls_invoice.waers <> 'EUR'.
    APPEND |Rechnung { ls_invoice.belnr }: Ungültige Währung (erwartet: EUR).| TO lt_error_log.
  ENDIF.

  " Gesamtbetrag ohne Steuern (BT-20)
  IF lv_total IS INITIAL OR lv_total <= 0.
    APPEND |Rechnung { ls_invoice.belnr }: Gesamtbetrag ungültig.| TO lt_error_log.
  ENDIF.

  " Steuerbetrag (BT-29)
  SELECT SUM( mwsts )
    INTO DATA(lv_tax_total)
    FROM bset
    WHERE bukrs = ls_invoice.bukrs
      AND gjahr = ls_invoice.gjahr
      AND belnr = ls_invoice.belnr.

  IF lv_tax_total IS INITIAL OR lv_tax_total <= 0.
    APPEND |Rechnung { ls_invoice.belnr }: Steuerbetrag fehlt.| TO lt_error_log.
  ENDIF.

ENDLOOP.

DATA: lv_log_file TYPE string,
      lv_error_msg TYPE string.

CONCATENATE '/tmp/XRechnung_ErrorLog_' sy-datum '.txt' INTO lv_log_file.

OPEN DATASET lv_log_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 0.
  LOOP AT lt_error_log INTO lv_error_msg.
    TRANSFER lv_error_msg TO lv_log_file.
  ENDLOOP.
  CLOSE DATASET lv_log_file.
  WRITE: / 'Fehlerprotokoll gespeichert:', lv_log_file.
ELSE.
  WRITE: / 'Fehler beim Speichern des Fehlerprotokolls.'.
ENDIF.

DATA: lt_alv TYPE TABLE OF string.

LOOP AT lt_error_log INTO lv_error_msg.
  APPEND lv_error_msg TO lt_alv.
ENDLOOP.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_structure_name = 'STRING'
  TABLES
    t_outtab         = lt_alv.

ChatGPT:
REPORT z_example.

DATA lv_text TYPE string.
lv_text = 'Hallo Welt'.
WRITE lv_text.

REPORT z_test.

DATA lv_sum TYPE i.
DATA lv_a TYPE i VALUE 5.
DATA lv_b TYPE i VALUE 7.

lv_sum = lv_a + lv_b.

WRITE lv_sum.

DATA: rt_guid TYPE RANGE OF crmt_object_guid,
      rs_guid LIKE LINE OF rt_guid.

      refresh rt_guid.
      rs_guid-sign = 'I'.
      rs_guid-option = 'EQ'.

LOOP AT lt_ek_sum INTO ls_ek_sum.
  rs_guid-low =  ls_ek_sum-guidek.
  append rs_guid to rt_guid.
endloop.
ChatGPT:
DATA: rt_guid TYPE RANGE OF crmt_object_guid,
      rs_guid LIKE LINE OF rt_guid.

REFRESH rt_guid.
rs_guid-sign = 'I'.
rs_guid-option = 'EQ'.

LOOP AT lt_ek_sum INTO ls_ek_sum.
  rs_guid-low = ls_ek_sum-guidek.
  APPEND rs_guid TO rt_guid.
ENDLOOP.

call function 'CRM_ORDER_READ_OW'
      exporting
        it_header_guid       = lt_header_guid
        it_requested_objects = lt_object_name
      importing
        et_partner           = lt_partner
        et_pridoc            = lt_pridoc
        et_billplan          = lt_billplan
      changing
        cv_log_handle        = lv_log_handle
      exceptions

DATA: lt_header_guid     TYPE crmt_object_guid_tab,
      lt_object_name     TYPE crmt_object_name_tab,
      lt_partner         TYPE crmt_partner_external_t,
      lt_pridoc          TYPE crmt_pridoc_t,
      lt_billplan        TYPE crmt_billplan_t,
      lv_log_handle      TYPE balloghndl.

lt_header_guid = rt_guid.

CALL FUNCTION 'CRM_ORDER_READ_OW'
  EXPORTING
    it_header_guid       = lt_header_guid
    it_requested_objects = lt_object_name
  IMPORTING
    et_partner           = lt_partner
    et_pridoc            = lt_pridoc
    et_billplan          = lt_billplan
  CHANGING
    cv_log_handle        = lv_log_handle
  EXCEPTIONS
    OTHERS               = 1.

DATA: lt_header_guid     TYPE crmt_object_guid_tab,
      lt_object_name     TYPE crmt_object_name_tab,
      lt_partner         TYPE crmt_partner_external_t,
      lt_pridoc          TYPE crmt_pridoc_t,
      lt_billplan        TYPE crmt_billplan_t,
      lv_log_handle      TYPE balloghndl,
      ls_object_name     TYPE crmt_object_name.

lt_header_guid = rt_guid.

CLEAR ls_object_name.
ls_object_name-objectname = 'ORDERADM_H'.
APPEND ls_object_name TO lt_object_name.

CALL FUNCTION 'CRM_ORDER_READ_OW'
  EXPORTING
    it_header_guid       = lt_header_guid
    it_requested_objects = lt_object_name
  IMPORTING
    et_partner           = lt_partner
    et_pridoc            = lt_pridoc
    et_billplan          = lt_billplan
  CHANGING
    cv_log_handle        = lv_log_handle
  EXCEPTIONS
    OTHERS               = 1.
[/spoiler]

DATA: lt_header_guid     TYPE crmt_object_guid_tab,
      lt_object_name     TYPE crmt_object_name_tab,
      lt_partner         TYPE crmt_partner_external_wrkt,
      ls_partner         TYPE crmt_partner_external_wrk,
      lt_pridoc          TYPE crmt_pridoc_t,
      lt_billplan        TYPE crmt_billplan_t,
      lv_log_handle      TYPE balloghndl,
      ls_object_name     TYPE crmt_object_name.

lt_header_guid = rt_guid.

CLEAR ls_object_name.
ls_object_name-objectname = 'ORDERADM_H'.
APPEND ls_object_name TO lt_object_name.

CALL FUNCTION 'CRM_ORDER_READ_OW'
  EXPORTING
    it_header_guid       = lt_header_guid
    it_requested_objects = lt_object_name
  IMPORTING
    et_partner           = lt_partner
    et_pridoc            = lt_pridoc
    et_billplan          = lt_billplan
  CHANGING
    cv_log_handle        = lv_log_handle
  EXCEPTIONS
    OTHERS               = 1.
Du:
 lt_pridoc               type  crmt_pric_cond_t,
      ls_pridoc               type  crmt_pric_cond,
ChatGPT:
DATA: lt_header_guid     TYPE crmt_object_guid_tab,
      lt_object_name     TYPE crmt_object_name_tab,
      lt_partner         TYPE crmt_partner_external_wrkt,
      ls_partner         TYPE crmt_partner_external_wrk,
      lt_pridoc          TYPE crmt_pric_cond_t,
      ls_pridoc          TYPE crmt_pric_cond,
      lt_billplan        TYPE crmt_billplan_t,
      lv_log_handle      TYPE balloghndl,
      ls_object_name     TYPE crmt_object_name.

lt_header_guid = rt_guid.

CLEAR ls_object_name.
ls_object_name-objectname = 'ORDERADM_H'.
APPEND ls_object_name TO lt_object_name.

CALL FUNCTION 'CRM_ORDER_READ_OW'
  EXPORTING
    it_header_guid       = lt_header_guid
    it_requested_objects = lt_object_name
  IMPORTING
    et_partner           = lt_partner
    et_pridoc            = lt_pridoc
    et_billplan          = lt_billplan
  CHANGING
    cv_log_handle        = lv_log_handle
  EXCEPTIONS
    OTHERS               = 1.

DATA: lt_data TYPE TABLE OF z_beleg,
      lt_notfound TYPE TABLE OF z_beleg,
      ls_row TYPE z_beleg.

SELECT belnr bukrs
  FROM z_beleg
  INTO TABLE lt_data
  WHERE bukrs IN s_bukrs
    AND belnr IN s_belnr.

LOOP AT s_bukrs ASSIGNING FIELD-SYMBOL(<fs_bukrs>).
  LOOP AT s_belnr ASSIGNING FIELD-SYMBOL(<fs_belnr>).
    READ TABLE lt_data INTO ls_row
         WITH KEY bukrs = <fs_bukrs>-low
                  belnr = <fs_belnr>-low.
    IF sy-subrc <> 0.
      ls_row-bukrs = <fs_bukrs>-low.
      ls_row-belnr = <fs_belnr>-low.
      APPEND ls_row TO lt_notfound.
    ENDIF.
  ENDLOOP.
ENDLOOP.

TYPES: BEGIN OF ty_notfound,
         bukrs TYPE bukrs,
         belnr TYPE belnr_d,
       END OF ty_notfound.

DATA: lt_data     TYPE TABLE OF z_beleg,
      lt_notfound TYPE TABLE OF ty_notfound,
      ls_row      TYPE ty_notfound.

SELECT belnr bukrs
  FROM z_beleg
  INTO TABLE lt_data
  WHERE bukrs IN s_bukrs
    AND belnr IN s_belnr.

LOOP AT s_bukrs ASSIGNING FIELD-SYMBOL(<fs_bukrs>).
  LOOP AT s_belnr ASSIGNING FIELD-SYMBOL(<fs_belnr>).
    READ TABLE lt_data WITH KEY bukrs = <fs_bukrs>-low belnr = <fs_belnr>-low TRANSPORTING NO FIELDS.
    IF sy-subrc <> 0.
      ls_row-bukrs = <fs_bukrs>-low.
      ls_row-belnr = <fs_belnr>-low.
      APPEND ls_row TO lt_notfound.
    ENDIF.
  ENDLOOP.
ENDLOOP.

DATA: lt_bkpf      TYPE TABLE OF bkpf,
      lt_stillmiss TYPE TABLE OF ty_notfound,
      ls_row       TYPE ty_notfound.

IF lt_notfound IS NOT INITIAL.
  SELECT bukrs belnr
    FROM bkpf
    INTO TABLE lt_bkpf
    FOR ALL ENTRIES IN lt_notfound
    WHERE bukrs = lt_notfound-bukrs
      AND belnr = lt_notfound-belnr.

  LOOP AT lt_notfound INTO ls_row.
    READ TABLE lt_bkpf WITH KEY bukrs = ls_row-bukrs belnr = ls_row-belnr TRANSPORTING NO FIELDS.
    IF sy-subrc <> 0.
      APPEND ls_row TO lt_stillmiss.
    ENDIF.
  ENDLOOP.
ENDIF.

DATA: lr_blart TYPE RANGE OF blart.

lr_blart = VALUE #( FOR wa IN gt_documenttypes ( sign = 'I' option = 'EQ' low = wa-blart ) ).

DATA: lr_blart TYPE RANGE OF blart,
      ls_blart LIKE LINE OF lr_blart.

LOOP AT gt_documenttypes ASSIGNING FIELD-SYMBOL(<fs_doc>).
  CLEAR ls_blart.
  ls_blart-sign = 'I'.
  ls_blart-option = 'EQ'.
  ls_blart-low = <fs_doc>-blart.
  APPEND ls_blart TO lr_blart.
ENDLOOP.

ChatGPT:
TYPES: BEGIN OF ty_notfound,
         bukrs TYPE bukrs,
         belnr TYPE belnr_d,
       END OF ty_notfound.

DATA: lt_data       TYPE TABLE OF z_beleg,
      lt_notfound   TYPE TABLE OF ty_notfound,
      lt_bkpf       TYPE TABLE OF bkpf,
      lt_stillmiss  TYPE TABLE OF ty_notfound,
      ls_row        TYPE ty_notfound,
      lr_blart      TYPE RANGE OF blart,
      ls_blart      LIKE LINE OF lr_blart.

SELECT belnr bukrs
  FROM z_beleg
  INTO TABLE lt_data
  WHERE bukrs IN s_bukrs
    AND belnr IN s_belnr.

LOOP AT s_bukrs ASSIGNING FIELD-SYMBOL(<fs_bukrs>).
  LOOP AT s_belnr ASSIGNING FIELD-SYMBOL(<fs_belnr>).
    READ TABLE lt_data WITH KEY bukrs = <fs_bukrs>-low belnr = <fs_belnr>-low TRANSPORTING NO FIELDS.
    IF sy-subrc <> 0.
      ls_row-bukrs = <fs_bukrs>-low.
      ls_row-belnr = <fs_belnr>-low.
      APPEND ls_row TO lt_notfound.
    ENDIF.
  ENDLOOP.
ENDLOOP.

IF lt_notfound IS NOT INITIAL.
  SELECT bukrs belnr blart
    FROM bkpf
    INTO TABLE lt_bkpf
    FOR ALL ENTRIES IN lt_notfound
    WHERE bukrs = lt_notfound-bukrs
      AND belnr = lt_notfound-belnr.

  LOOP AT zcl_apt_revenue_api=>document_types( ) ASSIGNING FIELD-SYMBOL(<fs_doc>).
    CLEAR ls_blart.
    ls_blart-sign = 'I'.
    ls_blart-option = 'EQ'.
    ls_blart-low = <fs_doc>-blart.
    APPEND ls_blart TO lr_blart.
  ENDLOOP.

  LOOP AT lt_bkpf ASSIGNING FIELD-SYMBOL(<fs_bkpf>).
    IF <fs_bkpf>-blart NOT IN lr_blart.
      MOVE-CORRESPONDING <fs_bkpf> TO ls_row.
      APPEND ls_row TO lt_stillmiss.
    ENDIF.
  ENDLOOP.
ENDIF.