Hi,
Revisa el programa una vez. Aquí puedes cargar los datos desde una hoja de Excel. Puedes proporcionar cualquier cantidad de tipos de salarios a la vez.
----
-
TYPE POOLS *
----
TYPE-POOLS: TRUXS.
INCLUDE BDCRECX1.
----
-
INTERNAL TABLES *
----
DATA : BEGIN OF IT_PA0015 OCCURS 0,
PERNR TYPE PA0015-PERNR,
SUBTY TYPE RP50G-SUBTY,
BEGDA TYPE CHAR10,
BETRG TYPE CHAR16,
END OF IT_PA0015.
DATA: IT_RAW TYPE TRUXS_T_TEXT_DATA.
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
DATA : IT_MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
----
-
SELECTION SCREEN *
----
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER P_FILE TYPE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
----
-
AT SELECTION SCREEN *
----
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM HELP_FILE USING P_FILE.
----
-
START OF SELECTION *
----
START-OF-SELECTION.
*SUBIENDO EL ARCHIVO DESDE LA ESTACIÓN DE TRABAJO
PERFORM UPLOAD_FILE USING P_FILE.
*POBLANDO DATOS.
PERFORM POPULATE_FILE.
&----
*& Form HELP_FILE
&----
-
texto
----
-
-->P_P_FILE texto
----
FORM HELP_FILE USING P_P_FILE.
DATA: L_FILE TYPE IBIPPARMS-PATH.
CALL FUNCTION 'F4_FILENAME'
-
EXPORTING
-
PROGRAM_NAME = SYST-CPROG
-
DYNPRO_NUMBER = SYST-DYNNR
-
FIELD_NAME = ' '
IMPORTING
FILE_NAME = L_FILE.
P_P_FILE = L_FILE.
Hi,
Revisa el programa una vez. Aquí puedes cargar los datos desde una hoja de Excel. Puedes proporcionar cualquier número de tipos de salario a la vez.
----
-
TIPOS DE POOL *
----
TIPO-POOLS: TRUXS.
INCLUIR BDCRECX1.
----
-
TABLAS INTERNAS *
----
DATA : BEGIN OF IT_PA0015 OCURRE 0,
PERNR TIPO PA0015-PERNR,
SUBTY TIPO RP50G-SUBTY,
BEGDA TIPO CHAR10,
BETRG TIPO CHAR16,
END OF IT_PA0015.
DATA: IT_RAW TIPO TRUXS_T_TEXT_DATA.
DATA : IT_BDCDATA LIKE BDCDATA OCURRE 0 CON LINEA DE CABECERA.
DATA : IT_MESSTAB LIKE BDCMSGCOLL OCURRE 0 CON LINEA DE CABECERA.
----
-
PANTALLA DE SELECCIÓN *
----
SELECTION-SCREEN BEGIN OF BLOCK B1 CON TÍTULO DEL MARCO TEXT-001.
PARÁMETRO P_FILE TIPO RLGRAP-NOMBRE DE ARCHIVO OBLIGATORIO.
SELECTION-SCREEN END OF BLOCK B1.
----
-
EN LA PANTALLA DE SELECCIÓN *
----
EN LA SELECCIÓN DE PANTALLA EN SOLICITUD DE VALOR PARA P_FILE.
REALIZAR AYUDA_ARCHIVO USANDO P_FILE.
----
-
INICIO DE LA SELECCIÓN *
----
INICIO-DE-SELECCIÓN.
*CARGANDO EL ARCHIVO DESDE LA ESTACIÓN DE TRABAJO
REALIZAR CARGA_ARCHIVO USANDO P_FILE.
*POBLANDO DATOS.
REALIZAR POBLAR_ARCHIVO.
&----
*& Formulario AYUDA_ARCHIVO
&----
-
texto
----
-
-->P_P_FILE texto
----
FORM AYUDA_ARCHIVO USANDO P_P_FILE.
DATA: L_FILE TIPO IBIPPARMS-RUTA.
LLAMAR FUNCIÓN 'F4_NOMBRE_ARCHIVO'
-
EXPORTANDO
-
NOMBRE_PROGRAMA = SYST-CPROG
-
NUMERO_DYN
