juan camilo restrepo
22/07/19, 20:20:14
Buenas tardes, bueno como el nombre lo dice tengo que hacer un consolidado de cesantías para el fondo nacional de ahorros, y como este es mi primer programa en HCM estoy muy nervioso porque no se mucho del tema, solo algunas cosas que he podido ver en desarrollos de otros consultores, asi que me gustaria mostrarles lo que llevo hasta el momento para luego leer sus recomendaciones y/o correcciones que las agradeceria bastante. Esto es lo que llevo hasta ahora.
TABLES pernr.
INFOTYPES: 0829.
DATA:
lt_pa0839 TYPE TABLE OF pa0829,
lt_rgdir TYPE TABLE OF pc261,
lv_molga TYPE t500l-molga VALUE '38'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_pernr TYPE pernr-pernr OBLIGATORY,
rb_mensu RADIOBUTTON GROUP r1,
rb_mes13 RADIOBUTTON GROUP r1.
SELECTION-SCREEN END OF BLOCK b1.
* Registro de Parcial Cesantías en el infotipo 0829
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
pernr = p_pernr
infty = '0829'
begda = pn-begda
endda = pn-endda
TABLES
infty_tab = lcl_data=>lt_pa0839
EXCEPTIONS
infty_not_found = 1
invalid_input = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
MESSAGE text-002 TYPE 'W'.
ELSE.
lcl_data=>show_alv( CHANGING it_data = lcl_data=>lt_pa0839 ).
ENDIF.
* Liquidación de nómina del período
CALL FUNCTION 'CU_READ_RGDIR'
EXPORTING
persnr = p_pernr
IMPORTING
molga = lcl_data=>lv_molga
TABLES
in_rgdir = lcl_data=>lt_rgdir
EXCEPTIONS
no_record_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
MESSAGE text-003 TYPE 'W'.
ENDIF.
No estoy seguro si el procedimiento este bien, esto es lo que hecho con lo poco que se, si alguien ya ha hecho algo similar le agradeceria que me instruyese. Muchas Gracias.
TABLES pernr.
INFOTYPES: 0829.
DATA:
lt_pa0839 TYPE TABLE OF pa0829,
lt_rgdir TYPE TABLE OF pc261,
lv_molga TYPE t500l-molga VALUE '38'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_pernr TYPE pernr-pernr OBLIGATORY,
rb_mensu RADIOBUTTON GROUP r1,
rb_mes13 RADIOBUTTON GROUP r1.
SELECTION-SCREEN END OF BLOCK b1.
* Registro de Parcial Cesantías en el infotipo 0829
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
pernr = p_pernr
infty = '0829'
begda = pn-begda
endda = pn-endda
TABLES
infty_tab = lcl_data=>lt_pa0839
EXCEPTIONS
infty_not_found = 1
invalid_input = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
MESSAGE text-002 TYPE 'W'.
ELSE.
lcl_data=>show_alv( CHANGING it_data = lcl_data=>lt_pa0839 ).
ENDIF.
* Liquidación de nómina del período
CALL FUNCTION 'CU_READ_RGDIR'
EXPORTING
persnr = p_pernr
IMPORTING
molga = lcl_data=>lv_molga
TABLES
in_rgdir = lcl_data=>lt_rgdir
EXCEPTIONS
no_record_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
MESSAGE text-003 TYPE 'W'.
ENDIF.
No estoy seguro si el procedimiento este bien, esto es lo que hecho con lo poco que se, si alguien ya ha hecho algo similar le agradeceria que me instruyese. Muchas Gracias.