obj text CONTAINER para DYNPRO
Necesito un objeto de texto que guarde datos en una dynpro de Module Pool.
Tengo este código pero no acaba de funcionar: *&---------------------------------------------------------------------* *& Module STATUS_1000 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_1000 OUTPUT. SET TITLEBAR 'TITLE'. SET PF-STATUS 'STATUS_1000'. DATA: gcl_container TYPE REF TO cl_gui_custom_container. DATA: gcl_editor TYPE REF TO cl_gui_textedit. * Instancio el container CREATE OBJECT gcl_container EXPORTING container_name = 'TXTAREA_CABECERA' EXCEPTIONS cntl_error = 1 cntl_system_error = 2 create_error = 3 lifetime_error = 4 lifetime_dynpro_dynpro_link = 5 others = 6. IF sy-subrc NE 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. * Intancio el editor de texto con el contenedor como 'parent' CREATE OBJECT gcl_editor EXPORTING parent = gcl_container wordwrap_mode = 2 wordwrap_position = 228 EXCEPTIONS error_cntl_create = 1 error_cntl_init = 2 error_cntl_link = 3 error_dp_create = 4 gui_type_not_supported = 5 others = 6. IF sy-subrc NE 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ENDMODULE. " STATUS_1000 OUTPUT ****************** MODULE user_command_1000 INPUT. CASE sy-ucomm. WHEN 'CAN' OR 'FIN' OR 'BACK' OR 'EXIT'. CLEAR sy-ucomm. SET SCREEN 0. LEAVE PROGRAM. WHEN 'SAVE'. DATA: t_texto TYPE line OCCURS 0. DATA: w_texto TYPE line. DATA: v_modif TYPE i. * Obtengo los datos introducidos en la tabla 't_texto' CALL METHOD gcl_editor->get_text_as_r3table IMPORTING table = t_texto is_modified = v_modif EXCEPTIONS error_dp = 1 error_cntl_call_method = 2 error_dp_create = 3 potential_data_loss = 4 others = 5. IF sy-subrc NE 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. * En este punto deberías tener en la tabla 't_texto' lo que * has ingresado en el text_editor. Cada entrada de la tabla * representa una línea ingresada en el text_editor. * Finalmente, libero los recursos del objeto editor. CALL METHOD gcl_editor->free EXCEPTIONS cntl_error = 1 cntl_system_error = 2. IF sy-subrc NE 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. MUCHAS GRACIAS:) |
Hola, tal vez este programa DEMO te pueda servir, ahi si guarda los datos dentro de la variable que quieres
DEMO_CUSTOM_CONTROL Espero te pueda servir ... :D |
DEMO_CUSTOM_CONTROL guarda datos?
Hola,
una pregunta, DEMO_CUSTOM_CONTROL guarda los datos en una tabla interna? Estoy debugando y no acabo de verlo. Saludos, |
Hola ... si los toma, se encuentran dentro de la tabla interna text_tab, y los inserta al momento de presionar el boton "Tomar texto"
|
pasar datos a TABLA Z
Hola,
muchas gracias por la respuesta, ya funciona el report:) Ahora necesitaría codificar estos textos por ejemplo con unos parámetros que tengo y enviar datos de la tabla interna a una tabla z que tengo con un campo de char 255 Saludos y feliz navidad:p |
pasa datos de text edit de tabla interna a tabla Z
Hola,
Necesitaría codificar unos textos (de un textedit de container) con unos parámetros que tengo y enviar datos de la tabla interna a una tabla z que tengo con un campo de char 255 Saludos y feliz navidad |
Creo q para eso deberias crear un ID z e insertarla con la funcion SAVE_TEXT, aver si consigo info y te la paso ... :D
PD: He visto que si se puede |
Husos Horarios son GMT. La hora en este momento es 13:15:09. |
www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web