Genexus

PátiosNumerico é uma coleção numeric(4.0)

&PatiosNumerico.FromXml(&Sessao.Get('PatiosNumerico'))

Header

       cabecalhoficha.Call(&PMFSId, &Line, &Page, &Output, 'Ficha de Campo - Corte')

       print prtUpa

       print prttitulo

End

&i = 1

&Agora = ServerNow()

&TotalPaginas = "{{pages}}"

For each PMFSId, UPAsId, UTsId, PatiosNme

       Where PMFSId = &PMFSId When Not &PMFSId.IsEmpty()

       Where UPAsId = &UpasId When Not &UpasId.IsEmpty()

       Where UTsId = &UTsId When Not &UTsId.IsEmpty()

       Where PatiosId in &PatiosNumerico

       Where Abatida = SimNao.Nao /*Somente as árvores que não foram abatidas*/

       Where CategoriasId in (1,2) When &CategoriasId.IsEmpty()

       Where CategoriasId = &CategoriasId When not &CategoriasId.IsEmpty()

       &UPAsNme = UPAsNme

       &PatiosNme = PatiosNme

             For each PMFSId, UPAsId, UTsId, PatiosNme, CategoriasNme ArvoresPlaca

                    &ArvoreVol = ArvoreVol.Truncate(3)

                    print prtdetalhe

             EndFor

       /*Imprime os motivos de não abate no final de cada pátio*/

       Do 'Imprime Motivos'

       Eject

       If &Qtd > 0

             if &i = &Qtd

                    exit

             endif

       &i += 1

       endif

Endfor

footer

       print prtrodape

end

--
[]'s
Luciano Topolniak.

--
Has recibido este mensaje porque estás suscrito al grupo "GeneXus" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a genexus+unsubscribe@googlegroups.com.
Para obtener más opciones, visita https://groups.google.com/groups/opt_out.