VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_MOVE = ""
VARIAVEL Z_FAT = ""
VARIAVEL Z_DIVERG = "S"
*
VARIAVEL Z_DIA = 0
T10,10,18,60,Parametros
T2,2,Ano e Mes ............:,4,z_aamm,9999
T3,2,Dia de Referencia.....:,6,z_dia,99
T4,2,Apenas as Divergencias?,1,z_diverg,!

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS Z_MOVE = "MOVE"+Z_AAMM
COMANDO DEPOIS Z_FAT = "FAT"+Z_AAMM

ARQUIVO (Z_FAT)
OUTROARQ (z_MOVE) z_MOVE+".p" fnumped
OUTROARQ SCCPFOR
VARIAVEL Z_NPedErrados = 0

* COMANDO DURANTE Z_CHAVE = STR(FCLI,5)+DTOC(FDATAEMI)
FILTRO Z_DIA=0 .OR. Z_DIA=DAY(FDATAEMI)
COMANDO DURANTE Z_PED = FNUMPED
COMANDO DURANTE Z_DATAEMI = FDATAEMI
COMANDO DURANTE Z_STR = Dtoc(fdataemi)+" "+Str(Fnumped,6)+" "+Transform(Fval+fdesconto+fvaldev,"@E 999,999.99")+" "+Str(ftotprod,4)+" "+Str(Ftotunid,4)

C[SISTEMA]                              pag [pag 999]
CCritica do Faturamento do mes [z_aamm], dia:[if(z_dia=0,"Todos",str(z_dia,2))] , Emitida em [s_datual] as [time()]
C[repl("-",80)]
CEmissao   Cupom      Valor Prds Unds    ValCalc PrdC UndC
*dd.mm.aa 999999 9999999999 9999 9999 9999999999 9999 9999
C[Repl("=",80)]

SUBLIST Z_MOVE

COMANDO ANTES Z_PRODS = 0
COMANDO ANTES Z_UNIDS = 0
COMANDO ANTES Z_VALOR = 0
COMANDO ANTES DbSeek(Z_PED)
REPITA ENQUANTO FNUMPED=Z_PED
FILTRO MDATA=Z_DATAEMI.AND.MFGES="S"
*FILTRO STR(MCODFORC,5)+DTOC(MDATA) = Z_CHAVE .AND. MFGES="S"

COMANDO DURANTE Z_PRODS = Z_PRODS + 1
COMANDO DURANTE Z_UNIDS = Z_UNIDS + MQUANT
COMANDO DURANTE Z_VALOR = Z_VALOR + MVALOR
COMANDO DEPOIS Z_STR = Z_STR +" "+Transform(z_valor,"@E 999,999.99")+" "+Str(z_prods,4)+" "+Str(z_unids,4)
COMANDO DEPOIS Z_ERRO = IF( Abs(z_fat->fval+z_fat->fdesconto+z_fat->fvaldev-z_valor)>0.01.or.z_unids<>z_fat->ftotunid,"*Erro*","*Ok*")
COMANDO DEPOIS Z_NPEDERRADOS = Z_NPEDERRADOS + IF(Z_ERRO="*Erro*",1,0)
FILTROIMP z_diverg<>"S".OR.z_erro="*Erro*"
ULTPAG[z_str] [z_erro]

FIM SUBLIST

ULTPAG
ULTPAG ** Pedidos com Divergencias: [z_npederrados 9999]
