Ver Mensaje Individual
  #3  
Viejo 11/04/22, 12:15:59
Ariel-StaFe Ariel-StaFe is offline
Senior Member
 
Fecha de Ingreso: nov 2007
Localización: Santa Fe - Argentina
Mensajes: 321
Smile 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
Responder Con Cita