INDEX SEIP_N PDESC
VARIAVEL LST_TP=58
VARIAVEL PT = 0
VARIAVEL PL = 0
VARIAVEL TT = 0

VARIAVEL ZVD = 0
VARIAVEL ZVS = 0
VARIAVEL ZVQ = 0
VARIAVEL ZVM = 0
VARIAVEL ZVB = 0
VARIAVEL ZVZ = 0

VARIAVEL ZEVD = 0
VARIAVEL ZEVS = 0
VARIAVEL ZEVQ = 0
VARIAVEL ZEVM = 0
VARIAVEL ZEVB = 0
VARIAVEL ZEVZ = 0

FILTRO peatual >0

COMANDO DURANTE zpv  = pvluvenda * peatual

COMANDO DURANTE ZVD  = ZVD  + IF(PABCFISICA="D",1,0)
COMANDO DURANTE ZEVD = ZEVD + IF(PABCFISICA="D",zpv,0)
COMANDO DURANTE ZVS  = ZVS  + IF(PABCFISICA="S",1,0)
COMANDO DURANTE ZEVS = ZEVS + IF(PABCFISICA="S",zpv,0)
COMANDO DURANTE ZVQ  = ZVQ  + IF(PABCFISICA="Q",1,0)
COMANDO DURANTE ZEVQ = ZEVQ + IF(PABCFISICA="Q",zpv,0)
COMANDO DURANTE ZVM  = ZVM  + IF(PABCFISICA="M",1,0)
COMANDO DURANTE ZEVM = ZEVM + IF(PABCFISICA="M",zpv,0)
COMANDO DURANTE ZVB  = ZVB  + IF(PABCFISICA="B",1,0)
COMANDO DURANTE ZEVB = ZEVB + IF(PABCFISICA="B",zpv,0)
COMANDO DURANTE ZVZ  = ZVZ  + IF(PABCFISICA="Z",1,0)
COMANDO DURANTE ZEVZ = ZEVZ + IF(PABCFISICA="Z",zpv,0)

COMANDO DURANTE tt = tt + pt
COMANDO DURANTE pl = pl + 1
ULTPAG [Empresa]                            Data [Date()]
ULTPAG [Sistema]                                            Hora [Time()]
ULTPAG Inventario de Produtos                                  Pag [Pag 9999]
ULTPAG
ULTPAG ---------------------------------------------------------------------------
ULTPAG Total de Produtos listados: [pl @e 999,999]
ULTPAG Valor a Preco de Fabrica..: [tt @e 999,999]
ULTPAG ---------------------------------------------------------------------------
ULTPAG
ULTPAG
ULTPAG Produtos de Venda Diaria...: [ZVD 999,999]   Valor: [zevd @E 999,999,999.99]
ULTPAG Produtos de Venda Semanal..: [ZVS 999,999]   Valor: [zevs @E 999,999,999.99]
ULTPAG Produtos de Venda Quinzenal: [ZVq 999,999]   Valor: [zevq @E 999,999,999.99]
ULTPAG Produtos de Venda Mensal...: [ZVm 999,999]   Valor: [zevm @E 999,999,999.99]
ULTPAG Produtos de Venda Bimestral: [ZVb 999,999]   Valor: [zevb @E 999,999,999.99]
ULTPAG Produtos de Venda Zerados..: [ZVz 999,999]   Valor: [zevz @E 999,999,999.99]
