#1
|
|||
|
|||
carga Dinámica de datos
Hola!!! soy muy nueva en esto de sap y estoy tratando de cargar dinamicamente los datos en mi sapscript. Hago el form y luego lo llamo con un perform desde el sapscript. Dentro del programa utilizo FM save_text, pero no me guarda el nuevo texto por ende no me muestra ningún dato en el sapscript. El texto es uno nuevo en blanco que cree desde la SO10 y la primera vez que pasa debe crear lo que va a ir dentro pero mi save_text no lo hace. Me pueden ayudar?. Muchas gracias!
Aquí les dejo el codigo. LOOP AT it_formulario INTO iv_formulario. * Asignamos un Formato de Parrafo para la impresion de los registros * en el formulario. wa_text-tdformat = '*'. SELECT SINGLE posnr smeng matnr FROM vbrp INTO (iv_formulario-posnr, iv_formulario-smeng, iv_formulario-matnr) WHERE vbeln = is_formulario-vbeln. gv_smeng = iv_formulario-smeng. CONDENSE gv_smeng NO-GAPS. iv_formulario-smeng = gv_smeng. SELECT SINGLE maktx FROM makt INTO (iv_formulario-maktx) WHERE matnr = is_formulario-matnr. SELECT SINGLE kschl kbetr kpein FROM konv INTO (iv_formulario-kschl, iv_formulario-kbetr, iv_formulario-kpein) WHERE knumv = is_formulario-knumv AND kposn = iv_formulario-posnr. * Pasamos valores numéricos a caracter. MOVE iv_formulario-posnr TO gv_posnr. MOVE iv_formulario-smeng TO gv1_smeng. MOVE iv_formulario-kbetr TO gv_kbetr. * Concatenamos los datos del registro en un String y separamos * con los tabuladores (V_TAB) CONCATENATE gv_posnr gv_smeng iv_formulario-matnr iv_formulario-maktx gv_kbetr INTO wa_text-tdline SEPARATED BY v_tab. * Agregamos registro a TI_TEXT ENDLOOP. APPEND wa_text TO ti_text. CHECK sy-subrc = 0. * Pasamos los atributos del Texto Estandar wa_header-tdname = 'Z_NOTADEBITO_TABLE1'. wa_header-tdobject = 'TEXT'. wa_header-tdid = 'ST'. wa_header-tdspras = 'E'. "sy_langu'. CALL FUNCTION 'COMMIT_TEXT' EXPORTING object = 'TEXT' name = 'Z_NOTADEBITO_TABLE1' id = 'ST' language = 'E' savemode_direct = 'X' keep = ' ' LOCAL_CAT = ' ' IMPORTING commit_count = sy-index TABLES T_OBJECT = wa_header-tdobject T_NAME = wa_header-tdname T_ID = wa_header-tdid T_LANGUAGE = wa_header-tdspras . * Guardamos los datos de la tabla interna en el Objeto de Texto Standard CALL FUNCTION 'SAVE_TEXT' EXPORTING header = wa_header insert = '' savemode_direct = 'X' TABLES lines = ti_text EXCEPTIONS id = 1 language = 2 name = 3 object = 4. 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. ENDFORM. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|