INDEX SE_ROUBN PDESC

VARIAVEL ZSE1=0
VARIAVEL ZSE2=0
VARIAVEL ZSE3=0
VARIAVEL ZSE4=0
VARIAVEL ZSE5=0
VARIAVEL ZSE6=0

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

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

SUBLIST XSESS1_6

COMANDO ANTES ZSE1=0
COMANDO ANTES ZSE2=0
COMANDO ANTES ZSE3=0
COMANDO ANTES ZSE4=0
COMANDO ANTES ZSE5=0
COMANDO ANTES ZSE6=0
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
REPITA ENQUANTO ZPCOD=PCOD

COMANDO DURANTE ZSE1=ZSE1+IF( DAY(MDATA)=1.AND.MFGES="E", MQUANT, 0)
COMANDO DURANTE ZSE2=ZSE2+IF( DAY(MDATA)=2.AND.MFGES="E", MQUANT, 0)
COMANDO DURANTE ZSE3=ZSE3+IF( DAY(MDATA)=3.AND.MFGES="E", MQUANT, 0)
COMANDO DURANTE ZSE4=ZSE4+IF( DAY(MDATA)=4.AND.MFGES="E", MQUANT, 0)
COMANDO DURANTE ZSE5=ZSE5+IF( DAY(MDATA)=5.AND.MFGES="E", MQUANT, 0)
COMANDO DURANTE ZSE6=ZSE6+IF( DAY(MDATA)=6.AND.MFGES="E", MQUANT, 0)

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 ZSTRE=STR(ZSE1,5)+";"+STR(ZSE2,5)+";"+STR(ZSE3,5)+";"+STR(ZSE4,5)+";"+STR(ZSE5,5)+";"+STR(ZSE6,5)+";"
COMANDO DEPOIS ZSTRS=STR(ZSS1,5)+";"+STR(ZSS2,5)+";"+STR(ZSS3,5)+";"+STR(ZSS4,5)+";"+STR(ZSS5,5)+";"+STR(ZSS6,5)+";"
COMANDO DEPOIS ZTSE = ZSE1+ZSE2+ZSE3+ZSE4+ZSE5+ZSE6
COMANDO DEPOIS ZTSS = ZSS1+ZSS2+ZSS3+ZSS4+ZSS5+ZSS6
COMANDO DEPOIS ZXSALDO11_5 = ZSALDO10FI + ZTSE - ZTSS
ULTPAG[ZPCOD 99999];[ZPDESC];[ZSALDO10FI 99999];[ZSTRE];[ZSE1_5 99999];[ZSTRS];[ZSS1_5 99999];[ZSALDO11_5 99999];[ZXSALDO11_5 99999];
FIM SUBLIST
