Programa Constructor en ABAP

Prefacio – Esta publicación es parte del Programas ABAP .

Truxs TIPO PISCINAS.
 PARÁMETROS p_file TIPO rlgrap-filename.
 TIPOS: INICIO DE t_tab, flujo de trabajo TIPO char50, tarea TIPO zci_task, task_type TIPO char50, FIN DE t_tab.
 DATOS: t_upload1 TIPO TABLA ESTÁNDAR DE ZDEMO_TEST2, wa_upload1 TIPO ZDEMO_TEST2.
 EN LA PANTALLA DE SELECCIÓN EN SOLICITUD DE VALOR PARA p_file.
 LLAME A LA FUNCIÓN 'F4_FILENAME' EXPORTANDO field_name = 'P_FILE' IMPORTANDO file_name = p_file.
 INICIO DE SELECCIÓN.
 LLAME A LA FUNCIÓN 'TEXT_CONVERT_XLS_TO_SAP' EXPORTACIÓN i_tab_raw_data = it_type i_filename = p_file TABLAS i_tab_converted_data = t_upload[] EXCEPCIONES conversión_fallida = 1 OTRAS = 2.
 SI sy-subrc <> 0.
 ID DE MENSAJE sy-msgid TIPO sy-msgty NÚMERO sy-msgno CON sy-msgv1 sy-msgv2 .
 TERMINARA SI.
 LLAME A LA FUNCIÓN 'UPLOAD_XLS_FILE_2_ITAB' EXPORTACIÓN i_filename = p_file tablas e_itab = t_upload1 EXCEPCIONES FILE_ERROR = 1 OTRAS = 2 .
 SI sy-subrc <> 0.
 Implemente un manejo de errores adecuado aquí ENDIF.
 FIN DE SELECCIÓN.
 DATOS: ls_cc_impl TIPO ZDEMO_TEST2, lt_cc_impl TIPO TABLA ESTÁNDAR DE ZDEMO_TEST2.
 BUCLE EN t_upload1 EN wa_upload1.
 ls_cc_impl-mandt = sy-mandt.
 ls_cc_impl-INCIDENTE = wa_upload1-INCIDENTE.
 ANEXE ls_cc_impl A lt_cc_impl.
 BUCLE FINAL.
 MODIFICAR ZDEMO_TEST2 DESDE LA TABLA lt_cc_impl.
 CLASE cl_grand DEFINICIÓN.
 SECCIÓN PÚBLICA.
 CLASE-DATOS v_prueba TIPO char40.
 CLASE-METHODS class_constructor.
 Constructor de MÉTODOS.
 DATOS un tipo i.
 CLASE-DATOS b TIPO i.
 FIN DE CLASE.  "cl_grand DEFINICIÓN *---------------------------------------------- ------------------------* * CLASE cl_grand IMPLEMENTACIÓN *------------------------------------ -------------------------------------------------- * * *----------------------------------------------- -----------------------* CLASE cl_grand IMPLEMENTACIÓN.
 MÉTODO class_constructor.
 v_test = 'Constructor estático - Gran padre'.
 b = 30.
 ESCRIBE: /3 v_test.
 MÉTODO FINAL.  "class_constructor METODO constructor.
 a = 30.
 v_test = 'Constructor de instancias - Gran padre'.
 ESCRIBE: /3 v_test.
 MÉTODO FINAL.
 FIN DE CLASE.  "cl_grand IMPLEMENTACIÓN *---------------------------------------------- ------------------------* * CLASE cl_parent DEFINICIÓN *------------------------------------ -------------------------------------------------- * * *----------------------------------------------- -----------------------* CLASE cl_parent DEFINICIÓN HEREDANDO DE cl_grand.
 SECCIÓN PÚBLICA.
 CLASE-METHODS class_constructor.
 Constructor de MÉTODOS.
 FIN DE CLASE.  "cl_parent DEFINICIÓN *---------------------------------------------- ------------------------* * CLASE cl_parent IMPLEMENTACIÓN *------------------------------------ -------------------------------------------------- * * *----------------------------------------------- -----------------------* CLASE cl_parent IMPLEMENTACIÓN.
 MÉTODO class_constructor.
 v_test = 'Constructor estático - Padre'.
 b = 20.
 ESCRIBE: /3 v_test.
 MÉTODO FINAL.  "class_constructor METHOD constructor .
 * datos a tipo i.
 super->constructor().
 a = 20.
 v_test = 'Constructor de instancias -Padre'.
 ESCRIBE: /3 v_test.
 MÉTODO FINAL.
 FIN DE CLASE.  "cl_parent IMPLEMENTACIÓN *---------------------------------------------- ------------------------* * CLASE cl_child DEFINICIÓN *------------------------------------ -------------------------------------------------- * * *----------------------------------------------- -----------------------* CLASE cl_child DEFINICIÓN HEREDANDO DE cl_parent.
 SECCIÓN PÚBLICA.
 CLASE-METHODS class_constructor.
 Constructor de MÉTODOS.
 * DATOS A.
 FIN DE CLASE.  "cl_child DEFINICIÓN *---------------------------------------------- ------------------------* * CLASE cl_child IMPLEMENTACIÓN *------------------------------------ -------------------------------------------------- * * *----------------------------------------------- -----------------------* CLASE cl_child IMPLEMENTACIÓN.
 MÉTODO class_constructor.
 v_test = 'Constructor estático - Niño'.
 ESCRIBE: /3 v_test.
 b = 10.
 MÉTODO FINAL.  "class_constructor METODO constructor.
 datos un tipo i.
 a = 10.
 super->constructor().
 v_test = 'Constructor de instancias - Hijo'.
 ESCRIBE: /3 v_test.
 MÉTODO FINAL.
 FIN DE CLASE.  "cl_child IMPLEMENTACIÓN INICIO-DE-SELECCIÓN.
 DATOS obj_child TIPO REF TO cl_child.
 CREAR OBJETO obj_child.
 datos: a tipo i, b tipo i.
 a = obj_child->a.
 escribe un.
 escribir sy-uname.
 eliminar de ztms_score .
 eliminar de ztms_ans .
 TIPOS: COMIENZO DE TY_DATA, "ID de tipo definido por el usuario TIPO N, NOMBRE TIPO CHAR20, SALARIO TIPO I, FIN DE TY_DATA.
 DATOS: TABLA TIPO ITAB DE TY_DATA.  "tabla interna DATA: WA TYPE TY_DATA.  "área de trabajo WA-ID = 1.
 WA-NOMBRE = 'Sapnuts'.
 WA-SALARIO = 5000.
 RECOJA WA EN ITAB.  "recopilar CLEAR WA.
 WA-ID = 2.
 NOMBRE-WA = 'SAPabap'.
 WA-SALARIO = 50000.
 RECOJA WA EN ITAB.  "recopilar CLEAR WA.
 WA-ID = 1.
 WA-NOMBRE = 'Sapnuts'.
 WA-SALARIO = 15000.
 RECOJA WA EN ITAB.  "recopilar CLEAR WA.
 BUCLE EN ITAB EN WA.
 ESCRIBA:/ WA-ID, WA-NOMBRE, WA-SALARIO.  "bucle y visualización de datos ENDLOOP.
 ** eliminar de ztms_score .
 ** eliminar de ztms_ans .
 eliminar de ztms_user .
 eliminar de ztms_set .

 

Autor


Comentarios

Deje un comentario

Su dirección de correo electrónico no será publicada. Las areas obligatorias están marcadas como requeridas *

Este sitio usa Akismet para reducir el correo no deseado. Descubra cómo se procesan los datos de sus comentarios.