|
#1
|
|||
|
|||
Re: Definir Work Area Dinamica
Estimados..
Logre resolver lo del loopeo. Pero me falta definir la work area dinamica. Les dejo lo del loopeo por si a alguien le sirve. DATA: wa_tab TYPE vbrk (aca tengo que definir .. VBRK.. pero aun no encuentro como.. deberia ser un FS tambien.. puede venir vbrk, vbrp, vbfa, cualq tabla) FIELD-SYMBOLS: <fs_c> TYPE ANY. DATA: nro_col TYPE i VALUE 0. DATA: wtc(30), l_campo(50). LOOP AT <all_table> INTO wa_tab. CLEAR v_registro. LOOP AT tcol. ADD 1 TO nro_col. IF nro_col = 1. CONCATENATE 'WA_TAB-' tcol-col INTO wtc. ASSIGN (wtc) TO <fs_c>. v_registro = ( <fs_c> ). ELSE. CONCATENATE 'WA_TAB-' tcol-col INTO wtc. ASSIGN (wtc) TO <fs_c>. l_campo = ( <fs_c> ). CONCATENATE v_registro ';' l_campo INTO v_registro. ENDIF. ENDLOOP. en v_registro queda la linea que tengo que descargar en formato.csv Espero les sirva a algunos.. Si alguien me puede dar una mano con al definicion de wa_tab.. que deberia ser un fs del FS <ALL_TABLE> les super agradezco Saludos.
__________________
Ariel-StaFe Analista Programador Abap Senior Santa Fe Capital Pcia de Santa Fe Argentina |
#2
|
|||
|
|||
Re: Definir Work Area Dinamica
Gente.
Ya pude resolverlo.. fue todo por Field Smbols Les dejo el código de como lo resolví, por si alguien lo necesita * Descarga de Items. FIELD-SYMBOLS: <fs_c> TYPE ANY. DATA: nro_col TYPE i VALUE 0. DATA: wtc(30), l_campo(50). FIELD-SYMBOLS: <wa_tab> TYPE ANY. LOOP AT <all_table> ASSIGNING <wa_tab>. CLEAR: v_registro, nro_col. LOOP AT tcol WHERE mark = 'X'. ADD 1 TO nro_col. IF nro_col = 1. CONCATENATE '<WA_TAB>-' tcol-col INTO wtc. ASSIGN (wtc) TO <fs_c>. v_registro = ( <fs_c> ). ELSE. CONCATENATE '<WA_TAB>-' tcol-col INTO wtc. ASSIGN (wtc) TO <fs_c>. l_campo = ( <fs_c> ). CONDENSE l_campo. CONCATENATE v_registro ';' l_campo INTO v_registro. ENDIF. ENDLOOP. TRANSFER v_registro TO txtfile. ENDLOOP.
__________________
Ariel-StaFe Analista Programador Abap Senior Santa Fe Capital Pcia de Santa Fe Argentina |
Herramientas | Buscar en Tema |
Desplegado | |
|
|