X;Critica de CONTAGEM x CONFERENCIA de Balanco;sys_tbbrow;5; 0;20;79;padrao;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL Z_BLKDH={||Left(Dtoc(PDATACONT),5)+" "+Left(PHORACONT,5)}
VARIAVEL Z_BLKDHf={||Left(Dtoc(PDATACONf),5)+" "+Left(PHORACONf,5)}
VARIAVEL Z_BLKDHfi={||Left(Dtoc(PDATACONfi),5)+" "+Left(PHORACONfi,5)}
VARIAVEL Z_BLKC={||if(day(pdatacont)>0.and.pestcont<>se_prod->peatual,"*RECONTAR*",if(day(pdatacont)>0.and.PCONTAGEM<>se_prod->peatual,"*_Dif_Est_*",eval(Z_BLKDH)))}
VARIAVEL Z_BLKF ={||if(day(pdataconf)>0.and.pestconf<>se_prod->peatual,"*RECONFERIR*",if(day(pdataconf)>0.and.PCONFEREN<>se_prod->peatual,"*_Dif_Est_*",eval(Z_BLKDHf)))}
VARIAVEL Z_BLKCI={||if(day(pdataconfi)>0.and.pestconfi<>se_prod->peatual,"*RECONFIRMAR*", "* "+if(PCONFIRMA<>se_prod->peatual,Str(PCONFIRMA-se_prod->peatual,6),"_EST_OK_")+" *")}
VARIAVEL Z_BLK_cc={||if(day(pdatacont)>0,"*SEM_CONF*",if(day(pdataconf)>0,"*SEM_CONT*","*PENDENTE*"))}
VARIAVEL Z_BLK_ccc={||if(PCONTAGEM=PCONFEREN,if(PCONFEREN<>se_prod->peatual,"Pend: "+Str(PCONFEREN-pestconf,5),"_OK_"),"CONT # CONF")}
//Left(Dtoc(PDATACONT),5)+" "+Left(PHORACONT,5)

VARIAVEL WArqTotais = w_pedido
VARIAVEL WArqLeitu  = w_pedido
VARIAVEL WArqPalm   = "cont*.txt"
VARIAVEL WTipLeitu  = "CONTRAPIDA"

COMANDO ANTES ABRA_ARQ("SE_PROD")
COMANDO ANTES DbSelectArea("SE_PRDCC")
COMANDO ANTES Z_NIL = prd_conf_ok()
COMANDO DEPOIS Se_Prod->(DbCloseArea())
:TBMT
 13;Se_doget(D_ob);Enter-Edita ;
 32;EanTH_Brow(D_oB, "Balanco", WArqLeitu);Barra-ExibeCaptura_Leituras ;	
 43;prd_conf_ok("CONFIRMAEST",WArqLeitu);+-Grava_Estoques_Ok ; 
 61;prd_conf_ok("CONFIRMAESTSemReconf",WArqLeitu);=Grava_Estoques_SemReconf ; 
 80;tb_pesq(D_OB);P-Pesquisa ;
 67;tb_locate(D_OB);C-Continua Busca;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_OB);L-Busca_Iniciais ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Cod;PCOD;N;99999;5;N;
Descricao;PDESC;C;@S25;25;N;
Contag;PCONTAGEM;N;999999; 6;N;
CONFER;PCONFEREN;N;999999; 6;N;
Situacao;if(se_prod->(dbseek(se_prdcc->pcod)),if(day(pdataconfi)>0,eval(z_blkci),IF(day(pdatacont)>0.AND.day(pdataconf)>0,eval(z_blk_ccc),eval(z_blk_cc))),"PRD_NAO_CAD");C;@s11;11;;;
Estoq;se_prod->peatual;N;999999;6;N;
EstConf;pestconf;N;999999;6;N;
CONFIRM;PCONFIRMA;N;999999; 6;S;
Data CONT;eval(z_blkC,pcod);C;@s11;11;N;
Dt CONFER;eval(z_blkF,pcod);C;@s11;11;N;
Dt CONFIRM;eval(z_blkci,pcod);C;@s11;11;N;
DtBal SaldoInf Eid_Bal;Dtoc(PDATABAL)+" "+Str(PEAT_INF,6)+" "+Str(PEATBAL,6);C;@s22;22-6;N;
Posicao;pposicao;C;@S7;7;S;
Tipo;Ptipo;C;@S5;5;N;
Marca;Pref;C;@S15;15;N;
Modelo;Pmarcamode;C;@S20;20;N;
Cod Barra;Pdic6;N;9999999999999;13;S;
Div;PDIVISAO;C;xxxx;  4;;
