X;Resultados de Contagem de Balanco;sys_tbbrow;5; 0;20;79;padrao;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL WArqTotais = w_pedido
VARIAVEL WArqLeitu  = w_pedido
VARIAVEL WArqPalm   = "cont*.txt"
VARIAVEL WTipLeitu  = "CONTAGEM"
VARIAVEL Z_BLKDH={||Left(Dtoc(PDATACONT),5)+" "+Left(PHORACONT,5)}
VARIAVEL Z_BLK={|x_prd|se_prod->(dbseek(x_prd)),if(day(pdatacont)>0.and.pestcont<>se_prod->peatual,"*RECONTAR*",if(day(pdatacont)>0.and.PCONTAGEM<>se_prod->peatual,"*_Dif_Est_*",eval(Z_BLKDH)))}
//Left(Dtoc(PDATACONT),5)+" "+Left(PHORACONT,5)
COMANDO ANTES Abra("0RO",r_siga,se_prod,"se_prod",seip_c,"pcod")
COMANDO ANTES DbSelectArea("SE_PRDCC")
COMANDO DEPOIS Se_Prod->(DbCloseArea())
//PCONFEREN;PCONFEREN;N;999999;  6;;
//PDATACONF;PDATACONF;D;;  8;;
//PHORACONF;PHORACONF;C;@S5;  5;;
//PESTCONT;PESTCONT;N;999999;  6;;
//PESTCONF;PESTCONF;N;999999;  6;;
//EAtual;PEATUAL;N;99999;5;S;
// 32;ext_screen(pcod,pdatabal);Barra-Exibe ;
// 32;EanTH_Brow(D_oB, "Balanco", WArqLeitu);Barra-Leituras_Barras ;	
:TBMT
 22;prd_add1ean(D_oB);Ins-Inclui ;
 43;prd_abrebal(.f., WArqTotais, d_Ob);+-Seleciona_Produtos ;
 66;pf_ean(nrow,d_ob);B-Cod_Barras ;
 13;Se_doget(D_ob);Enter-Edita ;
 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;;
Data CONT;eval(z_blk,pcod);C;@s10;10;N;
Estoq;se_prod->peatual;N;999999;6;N;
Cod Barra;Pdic6;N;9999999999999;13;S;
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;
Div;PDIVISAO;C;xxxx;  4;;
