Redondeo Bancario Sap

-------------------------------------------------
PPAL
-------------------------------------------------
*&---------------------------------------------------------------------*
*& Report  ZRPFI_REDONDEDOEXTRACTO
*&
*&---------------------------------------------------------------------*
*&
*&*&---------------------------------------------------------------------*

REPORT  zrpfi_redondedoextracto.

INCLUDE zrpfi_redondedoextracto_top.
INCLUDE zrpfi_redondedoextracto_f01.

************************************************************************
*- AT SELECTION-SCREEN ------------------------------------------------*
************************************************************************AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ent_ca. "entrada cabecera
  PERFORM value_req_file_out USING p_ent_ca.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ent_de. "entrada cuerpo
  PERFORM value_req_file_out USING p_ent_de.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_sal_de. "salida cuerpo
  PERFORM value_req_file_outex USING p_sal_de.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_sal_ca. "salida cabecera  PERFORM value_req_file_outex USING p_sal_ca.

START-OF-SELECTION.
************************proceso de cuerpo extracto bancario
  PERFORM lee_archivo USING p_ent_de. "Archivo de entrada detalle
  PERFORM procesa_datosde USING p_ent_de.

************************proceso de cabecera extracto bancario
  PERFORM lee_archivo USING p_ent_ca. "Archivo de entrada cabecera
  PERFORM procesa_datos USING p_ent_ca.*  *******quita valor en cero del detalle
  PERFORM quitarvalorcero USING p_ent_de.

***********Concatena cada campo de las tablas y les coloca los ; para separarlos... campo1';'campo2';'
  PERFORM concatenat USING p_ent_ca."cabecera
  PERFORM concatenatde USING p_ent_de."detalle

END-OF-SELECTION.

********SALIDA ARCHIVOS

  IF b = 1.

    MESSAGE i398(00) WITH 'Inconsistencia en archivos'.
    REFRESH itab_ca.    REFRESH itab_de.
    REFRESH itab.
    REFRESH itabredondeo1.
    REFRESH itabredondeo.

  ELSE.
    PERFORM baja_archivode USING p_sal_de.
    PERFORM baja_archivoca USING p_sal_ca.

    REFRESH itab_ca.
    REFRESH itab_de.
    REFRESH itab.
    REFRESH itabredondeo1.
    REFRESH itabredondeo.
    MESSAGE 'Datos redondeados' TYPE 'S'.
  ENDIF.-------------------------------------------------
TOP
-------------------------------------------------
*&---------------------------------------------------------------------*
*&  Include           ZRPFI_REDONDEDOEXTRACTO_TOP
*&---------------------------------------------------------------------*

**variable que guarda el dato redondeado
DATA: varconver TYPE p,"redondear campo WRBTR de detalle      varconver1 TYPE p,"redondear campo SSALD de cabecera
      vsumha TYPE p VALUE 0,"variable sumar +
      vsumso TYPE p VALUE 0."variable sumar -
DATA dirall TYPE string.
DATA b TYPE i VALUE 0."determinar si se cargan los archivos correctamente

*** tabla interna con la cabecera de la estructura estracto bancario
DATA itabredondeo TYPE STANDARD TABLE OF auszug_mc WITH HEADER LINE.*** tabla interna con el (cuerpo) partidas de la estructura estracto bancario
DATA itabredondeo1 TYPE STANDARD TABLE OF umsatz_mc WITH HEADER LINE.

**tabla para guardar los datos del cuerpo y cabecera del extracto con (x) cantidad de campos
**tabla para el gui_upload guarda estructura de la cebacera y detalle
DATA: BEGIN OF itab OCCURS 0,
         text(255) TYPE c,
END OF itab.

**guarda datos concatenados de cabeceraDATA: BEGIN OF itab_ca OCCURS 0,
         text(255) TYPE c,
END OF itab_ca.

**guarda datos concatenados de detalle
DATA: BEGIN OF itab_de OCCURS 0,
         text(255) TYPE c,
END OF itab_de.

**ventana para cargar de archivos
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
PARAMETERS: p_ent_ca  LIKE rlgrap-filename OBLIGATORY LOWER CASE,...