problema para recorrer un grid
Publicado por eduardo (19 intervenciones) el 04/06/2019 16:30:43
Hola:
Tengo un problema que pareciera de facil solucion pero no logro resolverlo.
Es un sistema de catering que carga en una grilla los menues disponible para un dia determinado.
Luego ingreso la cantidad de menu para cada dia y debo grabar en una tabla de dos niveles.
El problema es que cuando recorro la grilla con FOR EACH LINE IN GRID no me lee la primera linea de la grilla.
El codigo fuente es el sig:
En un boton llamado AGREGAR cargo los menues disponbles para el dia
y en un boton confirmar intento grabar con bussines component
Nunca evalua la variable cantidad de la primera linea y por lo tanto no graba en la tabla
gracias
Tengo un problema que pareciera de facil solucion pero no logro resolverlo.
Es un sistema de catering que carga en una grilla los menues disponible para un dia determinado.
Luego ingreso la cantidad de menu para cada dia y debo grabar en una tabla de dos niveles.
El problema es que cuando recorro la grilla con FOR EACH LINE IN GRID no me lee la primera linea de la grilla.
El codigo fuente es el sig:
En un boton llamado AGREGAR cargo los menues disponbles para el dia
1
2
3
4
5
6
7
8
9
Event 'Agregar'for each MenuDiarioComidaNombreOpcion
where MenuDiarioFecha=&Fecha
&ComidaId=MenuDiarioComidaId
&Comida=MenuDiarioComidaNombreOpcion
&cantidad=0
&ok=false
grillamenu.Load()
endfor
y en un boton confirmar intento grabar con bussines component
1
2
3
4
5
6
7
8
9
Event Enter
&MenuAdicional.menuadicionalFecha=&Fecha
&menuadicional.OficinaCateringId=&OficinaCateringId
&MenuAdicional.Save()
if &MenuAdicional.Success()
commit
do 'grabacuerpo'endif
Endevent
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub 'grabacuerpo'for each line in grillamenu
if not &cantidad=0
&MenuAdicional.menuadicionalFecha=&Fecha
&menuadicional.OficinaCateringId=&OficinaCateringId
&MenuAdicionalComida.MenuDiarioComidaId=&comidaid //&MenuDiarioComidaId
&MenuAdicionalComida.menuadicionalcomidacantidad=&cantidad
&MenuAdicional.Comida.Add(&MenuAdicionalComida)
&MenuAdicional.Save()
if &MenuAdicional.Success()
commit
endif
endif
endfor
EndSub
Nunca evalua la variable cantidad de la primera linea y por lo tanto no graba en la tabla
gracias
Valora esta pregunta
0
