GeneXus - obtener una concatenacion de datos de un level

Hola a todos y muchas gacias por la ayuda:

tengo una transaccion

inventario con un atributo que se llama InventarioFuentes

dentro de esta tengo un level donde puedo escoger hasta 5 fuentes
level fuentes(
FuentesId
FuentesNombre
Fuentes sigla,etc)

pero al gravar en el atributo que se llama InventarioFuentes devo gravar la concatenacion de las siglas de todals las fuentes escogidas



e intentado con variables per no me da resultado siempre me guarda la ultima fuente selecionada

y no puedo hacerlo despues de grabarlo ya que es parte del codigo que debo grabar en la transaccion


esperando me ayuden

y agradeciendo de antemano su atencion.


Nig

Crea una rule en la trn

InventarioFuentes = Udp(PConFue,InventarioId) On AfterInsert;

Procedure ConFue

Parm(&InventarioId,&InventarioFuentes)

&InventarioFuentes = ''
For Each InventarioId
where InventarioId = &InventarioId
For Each InventarioId FuenteId
If &InventarioFuentes = ''
&InventarioFuentes = FuenteSigla
Else
&InventarioFuentes = Concat(&InventarioFuentes,FuenteSigla,' - ')
EndIf
EndFor
EndFor

Espero te sirva!

Hola Luis:

muchas gracias por la respuesta

pero te cuento que no me guarda el codigo
intente con aftercomplete y varios befores
pero en ninguna de las instancias me asigna

saludos y gracisa otra ves

Intenta disparar el procedure desde el evento after trn, y desde el mismo procedure actualizas el campo

En la Trn
Event After Trn
Call(PConFue)
EndEvent

En el Prc
Parm(&InventarioId)

&InventarioFuentes = ''
For Each InventarioId
where InventarioId = &InventarioId
For Each InventarioId FuenteId
If &InventarioFuentes = ''
&InventarioFuentes = FuenteSigla
Else
&InventarioFuentes = Concat(&InventarioFuentes,FuenteSigla,' - ')
EndIf
EndFor
InventarioFuentes = &InventarioFuentes
EndFor

Hola Luis disculpa la tardanza, ya que problemas personales me alejaron de este foro, agradecerte el consejo funciono muy bien
muchas gracias de nuevo y personas como tu hacen de esta vida un mundo mejor

Saludos

Nig.