ZWL_GET_DATA_FROM_FILE

*&---------------------------------------------------------------------*
*& Report ZWL_GET_DATA_FROM_FILES
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zwl_get_data_from_file.

TYPES: tt_pc    TYPE TABLE OF zwl_hashed_pc WITH EMPTY KEY,
       tt_pz    TYPE TABLE OF zwl_hashed_pz WITH EMPTY KEY,
       tt_masks TYPE TABLE OF zwl_hashed_masks WITH EMPTY KEY.

CONSTANTS: c_file TYPE string VALUE '.json'.

DATA: go_cfg       TYPE REF TO zwl_cl_taxpayer_cfg_helper,
      gv_ok        TYPE c,
      gv_str_pc    TYPE string,
      gv_str_pz    TYPE string,
      gv_str_masks TYPE string.

SELECTION-SCREEN BEGIN OF BLOCK ss_block WITH FRAME TITLE TEXT-001.
PARAMETERS: p_path  TYPE txt50 OBLIGATORY,
            p_dats  TYPE dats DEFAULT sy-datum,
            p_batch TYPE zwl_batch_size OBLIGATORY.
SELECTION-SCREEN END OF BLOCK ss_block.

INITIALIZATION.
  PERFORM get_initialization_data.

  INCLUDE zwl_get_data_from_file_fm.

START-OF-SELECTION.

  "Sprawdzanie czy było przetwarzane
  CHECK go_cfg->get_last_update_date( ) < p_dats.

  CHECK gv_ok = 'X'.

  PERFORM check_files_exists CHANGING gv_ok. "Sprawdzanie czy są wszystkie pliki

  CHECK gv_ok = 'X'.

  PERFORM clear_db_tables.    "Czyszczenie tabel BD
  PERFORM convert_data.
  PERFORM set_update_date.    "Ustawienie daty ostatniej konfiguracji

  COMMIT WORK AND WAIT.