index temp001 pdesc

VARIAVEL LST_TP = 54
VARIAVEL ZUNIDS = 0
VARIAVEL ZPRODS = 0
VARIAVEL ZVLPOS = 0
VARIAVEL ZVLNEG = 0

VARIAVEL ZREF = "DEZEMBRO"
T10,10,15,70,PARAMETROS
T2,2,REFERENCIA:,16,ZREF,@S16
COMANDO ANTES ZREF=ALLTRIM(ZREF)

COMANDO DURANTE ZUNIDS = ZUNIDS+MQUANT
COMANDO DURANTE ZPRODS = ZPRODS +1
COMANDO DURANTE ZVLPOS = ZVLPOS + IF(PNEGPOS="+",MVALOR,0)
COMANDO DURANTE ZVLNEG = ZVLNEG + IF(PNEGPOS="-",MVALOR,0)

CFARMACIA BEIRA RIO LTDA                                             PAG  [PAG 9999]
CCNPJ: 09.358.797/0001-78                                       
C
C           TOTAIS VENDIDOS POR PRODUTOS DAS LISTAS POSITIVA E NEGATIVA
C                           REFERENTE AO MES DE [ZREF]/2001
C
C===============================================================================
CCODIGO APRESENTACAO                      UNIDADES          VALOR    LISTA
C       DO PRODUTO                        VENDIDAS        VENDIDO
C===============================================================================
D[PCOD] [PDESC] [MQUANT @E 999,999]      [MVALOR @E 999,999.9]      [PNEGPOS]
ULTPAG
ULTPAG============================================================================= 
ULTPAG 
ULTPAG *** NUMERO DE PRODUTOS VENDIDOS:  [ZPRODS @E 999,999]
ULTPAG *** TOTAL DE UNIDADES VENDIDAS.:  [ZUNIDS @E 999,999]
ULTPAG 
ULTPAG *** TOTAIS VENDIDOS DE PRODUTOS DA LISTA POSITIVA  : [ZVLPOS @E 999,999.99]
ULTPAG *** TOTAIS VENDIDOS DE PRODUTOS DA LISTA NEGATIVA  : [ZVLNEG @E 999,999.99]
ULTPAG
ULTPAG *** TOTAL VENDIDO DAS LISTAS POSITIVA MAIS NEGATIVA: [ZVLPOS+ZVLNEG @E 999,999.99]
