Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- REPORT zj_1af017h.
- *----------------------------------------------------------------------*
- * INCLUDES *
- *----------------------------------------------------------------------*
- INCLUDE zj_1af017h_data.
- INCLUDE zj_1af017h_clss.
- INCLUDE zj_1af017h_as_au. "Percepciones + retenciones
- *----------------------------------------------------------------------*
- * START-OF-SELECTION *
- *----------------------------------------------------------------------*
- START-OF-SELECTION.
- DATA:
- lo_exc_ref TYPE REF TO cx_sy_create_object_error.
- TRY.
- * Crear objeto del aplicativo en particular.
- CREATE OBJECT go_aplic
- TYPE
- ('LCL_APLIC_H')
- EXPORTING
- i_lv_tapli = 'H'
- i_lv_descr = 'Percepc/Reten TUC'.
- CATCH cx_sy_create_object_error INTO lo_exc_ref.
- MESSAGE 'Error al instanciar clase.' TYPE 'I'.
- LEAVE PROGRAM.
- ENDTRY.
- IF sy-subrc EQ 0.
- go_aplic->main( ).
- ENDIF.
- *&---------------------------------------------------------------------*
- *& Module STATUS_0100 OUTPUT
- *&---------------------------------------------------------------------*
- * text
- *----------------------------------------------------------------------*
- MODULE status_0100 OUTPUT.
- ** SET PF-STATUS 'xxxxxxxx'.
- ** SET TITLEBAR 'xxx'.
- ENDMODULE. " STATUS_0100 OUTPUT
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement