field-symbols: <lv_field> type any.
  field-symbols: <lt_worksheet> type table.

  if gt_files is not initial.
        lv_filename = |{ gt_files[ 1 ]-filename }|.
     else.
        lv_filename = p_file.
   endif.

    cl_gui_frontend_services=>gui_upload(
               exporting
                 filename = lv_filename
                 filetype = 'BIN'
                 importing
                 filelength = lv_filesize
                 changing
                 data_tab = lt_bin_data ).

   if lt_bin_data is not initial.
    "Umwandlung von solix -> xstring
    data(lv_bin_data) = cl_bcs_convert=>solix_to_xstring(
                        it_solix = lt_bin_data ).

    data(o_excel) = new cl_fdt_xl_spreadsheet(
              document_name = lv_filename
                               xdocument = lv_bin_data ).

    "Auslesen der Namen der Arbeitsblätter
    data: lt_worksheet_names type
    if_fdt_doc_spreadsheet=>t_worksheet_names.

    o_excel->if_fdt_doc_spreadsheet~get_worksheet_names(
                importing worksheet_names = lt_worksheet_names )."it_worksheet_names[ 1 ] )

    if lines( lt_worksheet_names ) > 0.

      data(o_worksheet_itab) =
        o_excel->if_fdt_doc_spreadsheet~get_itab_for_alv_update( ).

** Worksheet_ITAB zu einem generischen Field Symbol referenzieren
      assign o_worksheet_itab->* to field-symbol(<worksheet>).
      assign o_worksheet_itab->* to <lt_worksheet>.
      clear lv_datumbeginn.
      refresh lt_tab_excel.

      loop at <lt_worksheet> assigning field-symbol(<ls_worksheet>).
      do p_numco times.
        assign component sy-index of structure <ls_worksheet> to <lv_field>.
        case sy-index.
        when 1.
          ls_tab_excel-BUKRS = <lv_field>.
        when 2.
          ls_tab_excel-BLART = <lv_field>.
        when 3.
          ls_tab_excel-BLDAT = <lv_field>.
        when 4.
          ls_tab_excel-BUDAT = <lv_field>.
        when 5.
          ls_tab_excel-MONAT = <lv_field>.
        when 6.
          ls_tab_excel-BKTXT = <lv_field>.
        when 7.
         ls_tab_excel-BSCHL = <lv_field>.
        when 8.
         ls_tab_excel-KOART = <lv_field>.
        when 9.
         ls_tab_excel-HKONT = <lv_field>.
        when 10.
         ls_tab_excel-WRBTR = <lv_field>.
        when 11.
         ls_tab_excel-MWSKZ = <lv_field>.
        when 12.
         ls_tab_excel-KOSTL = <lv_field>.
        when 13.
         ls_tab_excel-AUFNR = <lv_field>.
        when 14.
         ls_tab_excel-SGTXT = <lv_field>.
        when 15.
         ls_tab_excel-VBUND = <lv_field>.
        when 16.
         ls_tab_excel-AUFTEIL = <lv_field>.
        when 17.
         ls_tab_excel-ERSTBUCH = <lv_field>.

        append ls_tab_excel
          to lt_tab_excel.
        ENDCASE.
       ENDDO.
      endloop.

      loop at lt_tab_excel into ls_tab_excel.
        move-corresponding ls_tab_excel  to ls_tab_dconv.
        perform date_convert using ls_tab_excel-bldat changing ls_tab_dconv-bldat.
        perform date_convert using ls_tab_excel-budat changing ls_tab_dconv-budat.
        perform date_convert using ls_tab_excel-ERSTBUCH changing ls_tab_dconv-ERSTBUCH.
        ls_tab_dconv-gjahr = ls_tab_dconv-budat(4).
        "ls_tab_dconv-nebtr = ls_tab_excel-nebtr.
        ls_tab_dconv-wrbtr = ls_tab_excel-wrbtr.
        append ls_tab_dconv
          to lt_tab_dconv.
      endloop.

    endif.

 TYPES: BEGIN OF ty_itabx,
   satzart(1) TYPE c,
   hex TYPE xstring,
 END OF ty_itabx.
DATA gt_itabx TYPE STANDARD TABLE OF ty_itabx.
DATA gs_itabx LIKE LINE OF gt_itabx.

    clear lv_buffer.
     DATA(o_viewA) = cl_abap_view_offlen=>create_legacy_view( wa_komfkgn ).
     o_conv->convert_struc( EXPORTING
                         data   = wa_komfkgn
                         view   = o_viewA
                       IMPORTING
                         buffer = lv_buffer ).

     gs_itabx-satzart = satzart.
     gs_itabx-HEX = lv_buffer.
     APPEND gs_itabx TO gt_itabx.

LOOP AT  gt_itabx INTO gs_itabx.
DATA(o_viewF) = cl_abap_view_offlen=>create_legacy_view( wa_komfkgn ).
   DATA(lv_bufferF) = gs_itabx-HEX.
      o_convo->convert_struc( EXPORTING
                         input = lv_bufferF
                         view  = o_viewF
                       IMPORTING
                         data  = wa_komfkgn ).
endloop.

 TYPES: BEGIN OF ty_itabx,
   satzart(1) TYPE c,
   hex TYPE xstring,
 END OF ty_itabx.

 DATA gt_itabx TYPE STANDARD TABLE OF ty_itabx.
 DATA gs_itabx LIKE LINE OF gt_itabx.

* ENCODING
form daten__anlegen USING gt_data type standard table CHANGING cnt TYPE i.

  data: ls_pos type ty_pos.
  data: lv_bp  type bu_partner.
  data: lv_bp_alt  type bu_partner.
  "data cnt type i.
  data cnt_str type string.

 data : lv_numberofcolumns   type i,
         lv_zeileart(1)       type c,
         lv_date_string       type string,
         lv_target_date_field type datum.

DATA: lv_buffer type xstring.

DATA(o_conv) = cl_abap_conv_out_ce=>create( encoding = 'UTF-8' endian = 'L' ).
DATA(o_convo) = cl_abap_conv_in_ce=>create( encoding = 'UTF-8' endian = 'L' ).

  field-symbols : <ls_data>  type any,
                  <ls_datak> type any,
                  <lv_field> type any.

  lv_numberofcolumns = p_ncol.

 LOOP at gt_data ASSIGNING <ls_data> from 2.
         clear:  ls_pos.

    ls_pos-auart   =  'TA'.
    ls_pos-spart   =  '01'.
    ls_pos-pstyv   =   'DLN'.        " 'TAD'.         "Positionstyp Vertr.beleg
    ls_pos-fkara   =  inv_type. "'FX'.                 "Vorschlag Fakturaart
    ls_pos-taxm1   =  '1'.
    ls_pos-taxk1   =  '1'.
    ls_pos-versg   =  '2'.

   do lv_numberofcolumns times.
      assign component sy-index of structure <ls_data> to <lv_field>.
      case sy-index.
        when 1.
            ls_pos-zlart =  <lv_field>.
          if ls_pos-zlart = 'N'.
            cnt = cnt + 1.
            cnt_str = cnt.
            clear a1_vgbel.
            move cnt_str to a1_vgbel.
            move sy-uzeit to a1_vgbel+1.
          endif.
          ls_pos-vgbel = a1_vgbel.

        when 2.
          ls_pos-VKORG = <lv_field>.
        when 3.
          ls_pos-VTWEG = <lv_field>.
        when 4.
         ls_pos-WERKS =  <lv_field>.
        when 5.
          ls_pos-vgpos  = <lv_field>.

        when 6.
          lv_date_string = <lv_field> .
          perform date_convert using lv_date_string changing lv_target_date_field .
          ls_pos-fkdat =  lv_target_date_field.
        when 7.

          call function 'CONVERSION_EXIT_ALPHA_INPUT'
            exporting
              input  = <lv_field>
            importing
              output = lv_bp.

          ls_pos-kunag   =  lv_bp.
          ls_pos-kunrg   =  lv_bp.
          ls_pos-kunre   =  lv_bp.
          ls_pos-kunwe   =  lv_bp.
        when 8.
          ls_pos-kbetr   =  <lv_field>.
        when 9.
           ls_pos-matnr =  <lv_field>.
          select single maktx from makt into wa_komfkgn-arktx where matnr = <lv_field>.

        when 10.
          ls_pos-kwmeng  =  <lv_field>.               "Auftragsmenge
      endcase.
    enddo.

    if ls_pos is not initial.
      satzart = 'A'.
      wa_komfkgn-mandt   =  sy-mandt.
      wa_komfkgn-auart   = ls_pos-auart.
      wa_komfkgn-vkorg   = ls_pos-vkorg.
      wa_komfkgn-vtweg   =  ls_pos-vtweg.
      wa_komfkgn-spart   =  ls_pos-spart.
      wa_komfkgn-fkdat =   ls_pos-fkdat.
      wa_komfkgn-prctr  = 'PC9999'.
      wa_komfkgn-VKBUR   =  '1000'.
      wa_komfkgn-kunag   =  ls_pos-kunag.
      wa_komfkgn-kunrg   =  ls_pos-kunrg.
      wa_komfkgn-kunre   =  ls_pos-kunre.
      wa_komfkgn-kunwe   =  ls_pos-kunwe.
      wa_komfkgn-kwmeng  =  ls_pos-kwmeng.
      wa_komfkgn-matnr   =  ls_pos-matnr.
      wa_komfkgn-vrkme   =  'ST'.
      wa_komfkgn-pstyv   =  ls_pos-pstyv.
      wa_komfkgn-kwmeng  =  ls_pos-kwmeng.
      wa_komfkgn-werks   =  ls_pos-werks.
      wa_komfkgn-vgbel   = ls_pos-vgbel.
      wa_komfkgn-vgpos   =  ls_pos-vgpos.
      wa_komfkgn-fkara   =  ls_pos-fkara.
      wa_komfkgn-taxm1   =  ls_pos-taxm1.
      wa_komfkgn-taxk1   =  ls_pos-taxk1.
      wa_komfkgn-versg   =  ls_pos-versg.

    clear lv_buffer.
     DATA(o_viewA) = cl_abap_view_offlen=>create_legacy_view( wa_komfkgn ).
     o_conv->convert_struc( EXPORTING
                         data   = wa_komfkgn
                         view   = o_viewA
                       IMPORTING
                         buffer = lv_buffer ).

     gs_itabx-satzart = satzart.
     gs_itabx-HEX = lv_buffer.
     APPEND gs_itabx TO gt_itabx.

      "transfer satzart to ds_name.
      "transfer wa_komfkgn to ds_name.
*           Preisteile
      clear wa_komfkko.
      satzart = 'B'.
      wa_komfkko-mandt   =  sy-mandt.
      wa_komfkko-knumv   =  wa_komfkgn-vgbel.
      wa_komfkko-kposn   =  wa_komfkgn-vgpos.
      wa_komfkko-kschl   =  'PR00'.
      wa_komfkko-kbetr   =   ls_pos-kbetr.

     clear lv_buffer.
     DATA(o_viewB1) = cl_abap_view_offlen=>create_legacy_view( wa_komfkko ).
     o_conv->convert_struc( EXPORTING
                         data   = wa_komfkko
                         view   = o_viewB1
                       IMPORTING
                         buffer = lv_buffer ).

     gs_itabx-satzart = satzart.
     gs_itabx-HEX = lv_buffer.
     APPEND gs_itabx TO gt_itabx.

      "transfer satzart to ds_name.
      "transfer wa_komfkko to ds_name.

* Positionstexte
      clear wa_komfktx.
      satzart               =  'C'.
      wa_komfktx-mandt      =  sy-mandt.
      wa_komfktx-vgbel      =  wa_komfkgn-vgbel.
      wa_komfktx-vgpos      =  wa_komfkgn-vgpos.
      wa_komfktx-tdobject   =  'VBBP'.
      wa_komfktx-tdid       =  '0002'.
      wa_komfktx-tdspras    =  'DE'.
      wa_komfktx-tdformat   =   '*'. " 'U1', 'AS'
      wa_komfktx-tdline     =  'Das ist ein Text'.

     clear lv_buffer.
     DATA(o_viewC) = cl_abap_view_offlen=>create_legacy_view( wa_komfktx ).
     o_conv->convert_struc( EXPORTING
                         data   = wa_komfktx
                         view   = o_viewC
                       IMPORTING
                         buffer = lv_buffer ).

     gs_itabx-satzart = satzart.
     gs_itabx-HEX = lv_buffer.
     APPEND gs_itabx TO gt_itabx.

    endif.

  endloop.

endform.

*DECODING

form externer_faktura_sammellauf_x
    using "ds_name
          ds_check
          fakliste.
*---------------------------------------------------------------------*
*       Ermitteln Sammelgangsnummer                                   *
*---------------------------------------------------------------------*
  check rv50s-sammg is initial.

  select single * from tvsa where smart = 'F'.
  if sy-subrc = 0.
    call function 'NUMBER_GET_NEXT'
      exporting
        nr_range_nr = tvsa-numki
        object      = 'RV_SAMMG'
      importing
        number      = rv50s-sammg.
  else.
    perform add_msg_to_appl_log1 using sammelgangsart gc_msgty_e.
  endif.
*---------------------------------------------------------------------*
*        Füllen Sammelgangsverwaltungssatz
*---------------------------------------------------------------------*
  clear vbsk.
  vbsk-mandt = sy-mandt.               "Mandant
  vbsk-ernam = sy-uname.               "Name des Sachbearbeiters
  vbsk-erdat = sy-datum.               "Datum des Hinzufügens
  vbsk-uzeit = sy-uzeit.               "Uhrzeit -"-
  vbsk-smart = 'F'.                    "Gruppenart
  vbsk-sammg = rv50s-sammg.            "Gruppennummer

*-------- Mappendaten: Dynpro RVAFS900 900
  clear bdc_tab.
"  move: 'ZRVAFSS00'    to bdc_tab-program,
   move: 'Z_REP_SD_FAKTURA_IMP' to bdc_tab-program,
        '0900'        to bdc_tab-dynpro,
        'X'           to bdc_tab-dynbegin.
  append bdc_tab.
  clear bdc_tab.
  write: 'bdc_okcode' to bdc_tab-fnam,
         '   '        to bdc_tab-fval.
  append bdc_tab.

*------- validate filename -------------------------------------------
*  call function 'FILE_VALIDATE_NAME'
*    exporting
*      logical_filename  = gc_filename
*    changing
*      physical_filename = ds_name
*    exceptions
*      others            = 1.
*  if sy-subrc <> 0.
*    message id sy-msgid type sy-msgty number sy-msgno
*      with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*  endif.

*------- File öffnen / lesen -----------------------------------------

*  open dataset ds_name for input in binary mode.
*
*  if sy-subrc ne 0.
*    perform add_msg_to_appl_log
*      using ds_name gc_msgty_i '511' 'VF' space space.
*    exit.
*  endif.

  clear i.

"-------------------
"DATA lv_vgbel_alt TYPE vgbel.
DATA lv_fill_head TYPE abap_bool.
 clear lv_fill_head.

LOOP AT  gt_itabx INTO gs_itabx.
* read first record
*READ TABLE  gt_itabx INTO  gs_itabx INDEX 1.
*    if gs_itabx-satzart <> 'A' and gs_itabx-satzart <>  'B' and gs_itabx-satzart <>  'C' and gs_itabx-satzart <> 'X' .
*      exit.
*    endif.
   satzart = gs_itabx-satzart.

    if satzart <> 'A' and satzart <>  'B' and satzart <>  'C' and satzart <> 'X' .
      exit.
    endif.

    if satzart = fakturasatz.
      DATA(o_viewF) = cl_abap_view_offlen=>create_legacy_view( wa_komfkgn ).
      "DATA(lv_buffer) = CONV xstring( gs_itabx-HEX ).
      DATA(lv_bufferF) = gs_itabx-HEX.
      o_convo->convert_struc( EXPORTING
                         input = lv_bufferF
                         view  = o_viewF
                       IMPORTING
                         data  = wa_komfkgn ).

"    read dataset ds_name into wa_komfkgn.
  elseif satzart = preisteilsatz.
      DATA(o_viewP) = cl_abap_view_offlen=>create_legacy_view( wa_komfkko ).
      DATA(lv_bufferP) = gs_itabx-HEX.
      o_convo->convert_struc( EXPORTING
                         input = lv_bufferP
                         view  = o_viewP
                       IMPORTING
                         data  = wa_komfkko ).
"    read dataset ds_name into wa_komfkko.
  elseif satzart = textteilsatz.
      DATA(o_viewT) = cl_abap_view_offlen=>create_legacy_view( wa_komfktx ).
      DATA(lv_bufferT) = gs_itabx-HEX.
      o_convo->convert_struc( EXPORTING
                         input = lv_bufferP
                         view  = o_viewP
                       IMPORTING
                         data  = wa_komfktx ).
    "read dataset ds_name into wa_komfktx.
  elseif satzart = eof_satz.
    xeof = x.
  else.
*   MESSAGE A512 WITH DS_NAME.
    "perform add_msg_to_appl_log1 using ds_name gc_msgty_e.
  endif.
  if sy-subrc eq 4.
*------- End of File erreicht   --> Exit ------------------------------
    xeof = x.
  endif.
  if sy-subrc eq 8.
*------- Datei kann nicht geöffnet werden -----------------------------
*   MESSAGE A512 WITH DS_NAME.
   " perform add_msg_to_appl_log1 using ds_name gc_msgty_e.
    exit.
  endif.
    check satzart is not initial.

if xeof = 'X'.
    exit.
endif.
"-------------------------

  "LOOP AT  gt_itabx INTO gs_itabx FROM 2.

"  while xeof ne x.
    "check satzart is not initial.
    if satzart eq fakturasatz.
      "perform xkomfkgn_fuellen.
*      on change of wa_komfkgn-vkorg or
*                   wa_komfkgn-vtweg or
*                   wa_komfkgn-kunag or
*                   wa_komfkgn-fkdat.

        on change of wa_komfkgn-vgbel.

        if i > 0 and xkomfkgn is not INITIAL.
          perform gn_invoice_create
                  using "ds_name
                        ds_check
                        fakliste.
          clear i.
          clear lv_fill_head.
          refresh xkomfkgn.
          refresh xkomfkko.
          refresh xkomfktx.
        endif.
      endon.

     ELSEif satzart <> fakturasatz.
      perform fakturasatz_bearbeiten_x USING gs_itabx
                                              "ds_name
                                              ds_check
                                              fakliste
                                       CHANGING lv_fill_head.
      i = i + 1.
    endif.
    "endif.
*    if i > max_zahl.
** ----------  maximale Anzahl Sätze erreicht --------------------------
    "  perform gn_invoice_create
    "          using ds_name
    "                ds_check
    "                fakliste.
    "  clear i.
    "  refresh xkomfkgn.
    "  refresh xkomfkko.
    "  refresh xkomfktx.
*    endif.

  ENDLOOP.

  if i <> 0.
    perform gn_invoice_create
            using "ds_name
                  ds_check
                  fakliste.
    clear i.
    refresh xkomfkgn.
    refresh xkomfkko.
    refresh xkomfktx.
  endif.

endform.                               "externer_faktura_sammellauf