MUNDOSAP

Regresar   MUNDOSAP > DESARROLLO > Programación ABAP IV
Nombre de Usuario
Contraseña
Home Descargas Registrar FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




 
Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Viejo 31/03/22, 16:07:41
Ariel-StaFe Ariel-StaFe is offline
Senior Member
 
Fecha de Ingreso: nov 2007
Localización: Santa Fe - Argentina
Mensajes: 321
Definir Work Area Dinamica

Estimados
Necesito loopear una tabla dinamica donde puede venir la estructura de la vbrk, vbrp, etc, cualquier tabla.
pero debo hacerlo con un work area.
ejemplo
LOOP AT <all_table> INTO wa_tab.
all_table puede venir cualquier tabla..
tengo el nombre de la tabla en un campo..
como defino wa_tab para que pueda contemplar cualquier estructura ?
asignandole la tabla que tengo en el campo ?
estuve buscando y haciendo pruebas y no logro resolverlo.

y desp tengo que asignar los campos de esa work area... trabajarlos, concatenar.
tengo los campos en otra tabla interna -- ti-campo1, ti-campo2

vbrk vbeln vbrk vbtyp
como hago referencia ? ejemplo concatenate wa_tab-(ti-campo1) wa-tab-(ti-campo3).. into...

No se si logro explicarme

Desde ya muchas gracias.
__________________
Ariel-StaFe
Analista Programador Abap Senior
Santa Fe Capital
Pcia de Santa Fe
Argentina

Úlima edición por Ariel-StaFe fecha: 31/03/22 a las 18:26:39.
Responder Con Cita
  #2  
Viejo 05/04/22, 19:47:46
Ariel-StaFe Ariel-StaFe is offline
Senior Member
 
Fecha de Ingreso: nov 2007
Localización: Santa Fe - Argentina
Mensajes: 321
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
Responder Con Cita
  #3  
Viejo 11/04/22, 13: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
  #4  
Viejo 03/05/22, 07:59:36
AlvaroLV AlvaroLV is offline
Junior Member
 
Fecha de Ingreso: feb 2016
Mensajes: 6
Re: Definir Work Area Dinamica



<wa_tab> Field symbol tipo any.
[tabla_campos] Tu tabla donde tienes los campos.
<registro_campo> Field symbol de la estructura de la tabla de tus campos.
<valor> Field symbol tipo any.

LOOP AT <all_table> INTO <wa_tab>.
LOOP [tabla_campos] ASSIGNING <registro_campo>.
ASSIGN COMPONENT <registro_campo>-[campo_donde_esta_el_campo] OF STRUCTURE <wa_tab> TO <valor>.
ENDLOOP.
ENDLOOP.

En el FS <valor> se tiene el valor de cada campo
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Reglas de Mensajes
no puedes crear nuevos temas
no puedes responder temas
no puedes adjuntar archivos
no puedes editar tus mensajes

El código vB está On
Las caritas están On
Código [IMG] está On
Código HTML está Off
Saltar a Foro


Husos Horarios son GMT. La hora en este momento es 23:07:44.


www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web