OUTROARQ SE_PROD SEIP_C PCOD 
 
VARIAVEL Z_DE = DATE() 
VARIAVEL Z_aTE = DATE() 
VARIAVEL Za_VALTOT  = 0 
VARIAVEL Za_totunid = 0 
VARIAVEL Zd_VALTOT  = 0 
VARIAVEL Zd_totunid = 0 
VARIAVEL lst_tp = 58 
 
VARIAVEL _ACERT = "_acert"
VARIAVEL z_pposicao = spac(10) 
VARIAVEL z_pdivisao = "    " 
VARIAVEL z_pgpreco  = "  " 
VARIAVEL z_pprincforn = 0 
 
T10,10,20,78,Parametros 
T2,2,Acertos desde a data:,8,z_de,99.99.99, 
T3,2,Acertos Ate a Data..:,8,z_ate,99.99.99, 
T4,2,Posicao.............:,10,z_pposicao,@s10 
T5,2,Divisao.............:,4,z_pdivisao,@s4 
T6,2,Grupo de Preco......:,2,z_pgpreco,xx 
T7,2,Fabricante..........:,4,z_pprincforn,9999 

COMANDO ANTES FERASE(r_siga+"tmp\_acert.dbf") 

COMANDO ANTES Z_PPOSICAO = ALLTRIM(Z_PPOSICAO) 
COMANDO DURANTEAF SE_PROD->(DBSEEK(SE_aCERT->PCOD)) 
 
FILTRO PDATABAL>=Z_DE.AND.PDATABAL<=z_ATE.and.usuario<>"AUTOCRIT".and.peatual<>peat_inf 
FILTRO z_pposicao+"/"="/".or.z_pposicao+"/"=left(se_prod->pposicao,len(z_pposicao))+"/" 
FILTRO z_pdivisao=spac(4).or.z_pdivisao=se_prod->pdivisao 
FILTRO z_pgpreco="  ".or.z_pgpreco=se_prod->pgpreco 
FILTRO z_pprincforn=0.or.z_pprincforn=se_prod->pprincforn 
 
COMANDO DURANTE Z_VALOR = SE_PROD->PVLUVEN3 * mquant 
COMANDO DURANTE Za_totunid= Za_totunid+ IF(mfges="S", mquant  ,0) 
COMANDO DURANTE Za_VALTOT = Za_VALTOT + IF(mfges="S", Z_VALOR ,0) 
COMANDO DURANTE Zd_totunid= Zd_totunid+ IF(mfges="E", mquant  ,0) 
COMANDO DURANTE Zd_VALTOT = Zd_VALTOT + IF(mfges="E", Z_VALOR ,0) 
COMANDO DURANTE zpdesc = se_prod->pdesc 
 
// ARQTMP _ACERT [pcod 99999] [zPDESC] [pdatabal] [mhora @s5] [peatual 99999] [peat_inf 99999] [mquant 99999] [mfges] [z_valor @e 9,999.99] 
// ARQUIVO _ACERT temp002 zpdesc 
// ARQTMP _ACERT [pcod 99999] [zPDESC] [pdatabal] [mhora @s5] [peatual 99999] [peat_inf 99999] [mquant 99999] [mfges] [z_valor @e 9,999.99] 
* ARQUIVO _ACERT temp002 pcod 
* ARQUIVO _ACERT temp002  dtos(ctod(pdatabal)) + mhora 
 
C[Sistema]            Impresso em [date()] as [time()]hs  Pag: [pag 9999] 
CResultado do Balanco Efetuado pela Auditoria entre [z_de] ate [z_ate] 
C[Repl("-",80)] 
C Cod   Apresentacao                  Data     Hora EstOrig EstInf  Dif E/S Custo 
C[Repl("=",80)] 
D[pcod] [zPDESC @S30] [pdatabal] [mhora] [peatual] [peat_inf] [mquant] [mfges] [z_valor] 
 
COMANDO DEPOIS z_strdif = if(zd_valtot>za_valtot,"A mais","A menos") 
ULTPAG[repl("=",80)] 
ULTPAG 
ULTPAG *** Custo das Entradas...: [zd_valtot @E 999,999.99]  ([zd_totunid 9999] Unidades) 
ULTPAG *** Custo das Saidas.....: [za_valtot @E 999,999.99]  ([za_totunid 9999] Unidades) 
ULTPAG 
ULTPAG *** Valor Entradas-Saidas: [abs(zd_valtot-za_valtot) @E 999,999.99] [z_strdif] 