INDEX SE_ROUBN PDESC

VARIAVEL ZSS1=0
VARIAVEL ZSS2=0
VARIAVEL ZSS3=0
VARIAVEL ZSS4=0
VARIAVEL ZSS5=0
VARIAVEL ZSS6=0
VARIAVEL PAG = 1

FILTRO ANALISADO="X"
OUTROARQ XSESS1_6 SEIM_C PCOD

COMANDO DURANTE ZPCOD = VAL(PCOD)
COMANDO DURANTE ZPDESC = PDESC
COMANDO DURANTE ZSALDO10FI = SALDO10FI
COMANDO DURANTE ZSE1_5 = SE1_5
COMANDO DURANTE ZSS1_5 = SS1_5
COMANDO DURANTE ZSALDO11_5 = SALDO11_5
COMANDO DURANTE PAG = 1
COMANDO DURANTE LL = 0
COMANDO DURANTE Z_NIL = SETPRC(0,0)

D[CHR(12)]H.A.BRITO COMERCIO S/A                                            Pagina [PAG 999]
D
DRelacao de Notas Fiscais de Venda do Produto [zpdesc]
D-----------------------------------------------------------------------------
D        Nota Fiscal     Serie   Emissao    Quantidade
D-----------------------------------------------------------------------------
D

SUBLIST XSESS1_6

COMANDO ANTES ZSS1=0
COMANDO ANTES ZSS2=0
COMANDO ANTES ZSS3=0
COMANDO ANTES ZSS4=0
COMANDO ANTES ZSS5=0
COMANDO ANTES ZSS6=0

COMANDO ANTES DBSEEK(ZPCOD)
FILTRO RECN()<=84052.AND.MFNUM>0.AND.MFGES="S".AND.DAY(MDATA)<=5
REPITA ENQUANTO ZPCOD=PCOD

COMANDO DURANTE ZSS1=ZSS1+IF( DAY(MDATA)=1.AND.MFGES="S", MQUANT, 0)
COMANDO DURANTE ZSS2=ZSS2+IF( DAY(MDATA)=2.AND.MFGES="S", MQUANT, 0)
COMANDO DURANTE ZSS3=ZSS3+IF( DAY(MDATA)=3.AND.MFGES="S", MQUANT, 0)
COMANDO DURANTE ZSS4=ZSS4+IF( DAY(MDATA)=4.AND.MFGES="S", MQUANT, 0)
COMANDO DURANTE ZSS5=ZSS5+IF( DAY(MDATA)=5.AND.MFGES="S", MQUANT, 0)
COMANDO DURANTE ZSS6=ZSS6+IF( DAY(MDATA)=6.AND.MFGES="S", MQUANT, 0)

COMANDO DEPOIS ZSTRS=STR(ZSS1,5)+";"+STR(ZSS2,5)+";"+STR(ZSS3,5)+";"+STR(ZSS4,5)+";"+STR(ZSS5,5)+";"+STR(ZSS6,5)+";"
COMANDO DEPOIS ZTSS = ZSS1+ZSS2+ZSS3+ZSS4+ZSS5+ZSS6
COMANDO ANTES LL = 0
CH.A.BRITO COMERCIO S/A                                            Pagina [PAG 999]
C
CRelacao de Notas Fiscais de Venda do Produto [zpdesc]
C-----------------------------------------------------------------------------
C        Nota Fiscal     Serie   Emissao    Quantidade
C-----------------------------------------------------------------------------
C
D             [MFNUM 999999]        1   [MDATA]     [MQUANT 99999]
ULTPAG-----------------------------------------------------------------------------
ULTPAG
ULTPAG        Somatorio das Saidas..........:     [ZTSS 99999]
ULTPAG
FIM SUBLIST
