SE_BMOV;Divergencias das Auditorias;sys_tbbrow; 5;0;20;79;se_bmov;;
*- SE_BMOV;Divergencias das Auditorias;skip_blk(x); 5;0;20;79;se_bmov;;
:SKEL
VARIAVEL Z_DINI  = S_DATUAL
VARIAVEL Z_loja  = 0
VARIAVEL Z_DATUAL = S_DATUAL
VARIAVEL Z_TELA   = Janela(09,30,16,75,"Parametros")
VARIAVEL Z_NIL    = DevPos(11,35)
VARIAVEL Z_NIL    = DevOut("Data Inicial:")
VARIAVEL Z_NIL    = DevPos(12,35)
VARIAVEL Z_NIL    = DevOut("Data Final..:")
VARIAVEL Z_NIL    = DevPos(14,35)
VARIAVEL Z_NIL    = DevOut("Loja........:")
VARIAVEL Z_Dini   = Var_Get(11, 49, Z_Dini, "99.99.99","W/B")
VARIAVEL Z_DATUAL = Var_Get(12, 49, Z_DATUAL, "99.99.99","W/B")
VARIAVEL Z_loja   = Var_Get(14, 49, Z_loja, "99","W/B")
VARIAVEL Z_TELA   = FechaJan(z_tela)
VARIAVEL Z_BLOCK = {|x_prd| se_prod->(dbseek(x_prd)), se_prod->pdesc }

VARIAVEL z_xblk = "Z_Sele:=Select(),"
VARIAVEL z_xblk = z_xblk + "zr_siga:=r_siga,"
VARIAVEL z_xblk = z_xblk + "r_siga:=r_siga+'th'+strzero(floja,2)+'\',"
VARIAVEL z_xblk = z_xblk + "Z_pcod:=pcod,"
VARIAVEL z_xblk = z_xblk + "Z_RecnPrd:=Recno(),"
VARIAVEL z_xblk = z_xblk + "se_prod->(dbclosearea()),"
VARIAVEL z_xblk = z_xblk + "dbUseArea(.t.,,(r_siga+'se_prod'),,NIL,.f.),"
VARIAVEL z_xblk = z_xblk + "dbSetIndex(r_siga+'ntx/seip_c'),"
VARIAVEL z_xblk = z_xblk + "DbSeek(z_pcod),"
VARIAVEL z_xblk = z_xblk + "z_nil:=ext_screen(z_pcod,se_prod->pdatabal),"
VARIAVEL z_xblk = z_xblk + "se_prod->(dbclosearea()),"
VARIAVEL z_xblk = z_xblk + "r_siga:=zr_siga,"
VARIAVEL z_xblk = z_xblk + "ABRA('0RO',r_siga,'se_prod','se_prod','seip_c','pcod'),"
VARIAVEL z_xblk = z_xblk + "DbSeek(z_pcod),"
VARIAVEL z_xblk = z_xblk + "DbSelectArea(z_sele),"
VARIAVEL z_xblk = z_xblk + "DbGoto(Z_RecnPrd)"
VARIAVEL z_BlkAcao = _CreateBlock( z_xblk )
VARIAVEL z_xBlk = ""

* COMANDO ANTES Z_NIL = DbSetFilter( {||mdata>=z_dini.and.mdata<=z_datual.and.((z_loja>0.and.z_loja=floja).or.(z_loja=0.and.peatual<>peat_inf))}, "mdata>=z_dini.and.mdata=z_datual.and.peatual<>peat_inf")
*- COMANDO ANTES Z_NIL = DbSetFilter( {||mdata>=z_dini.and.mdata<=z_datual.and.((z_loja>0.and.z_loja=floja).or.(z_loja=0.and.peatual<>peat_inf))}, "mdata>=z_dini")
COMANDO ANTES DbSeek(Dtos(z_dini))
COMANDO ANTES Z_ARQBMOV = r_siga-"tmp\_t"+StrZero(Seconds(),6)
COMANDO ANTES Z_NIL = __dbCopy(Z_ARQBMOV, {},, {||mdata>=z_dini.and.mdata<=z_datual},,,.F.,)
COMANDO ANTES se_bmov->(DbCloseArea())
*- COMANDO ANTES ABRA("0RO",r_siga,Z_ARQBMOV,"bmov_tmp")
COMANDO ANTES DbUseArea(.t.,,(z_arqbmov),"se_bmov",,.f.)
COMANDO ANTES Z_NIL = DbSetFilter( {||(z_loja>0.and.z_loja=floja).or.(z_loja=0.and.peatual<>peat_inf)}, "mdata>=z_dini")
COMANDO ANTES DbGoTop()
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_prod","se_prod","seip_c","pcod")
COMANDO DEPOIS Z_NIL = Se_Prod->( DbCloseArea() )
:TBMT
 13;Eval(z_BlkAcao);Enter-Extrato ;
 80;tb_pesq(D_OB);P-Pesquisa Chave;
 73;lst_alias(D_OB);I-Imprime ;
 79;tb_index(D_OB);O-Ordena ;
:TBFI
Lj;FLOJA;N;99;2;N;
Prod;PCOD;N;999999;6;N;
Apresentacao;eval(z_block,pcod);C;@s28;28;N;
Contagem;PEAT_INF;N;999999;6;;
Estoque;PEATual;N;999999;6;;
Diferenca;if(mhora_inf==spac(8),"*Nao Informada*",if(peatual=peat_inf," Ok ",str(abs(peatual-peat_inf),6)+" "+if(peatual>peat_INF,"FALTANDO","SOBRANDO")));P;@s15;15;N;
Digitacao por;if(empty(mhora_inf),"*Nao Informada*",alltrim(USU_INF)+" em "+dtoc(Mdata_INF)+" as "+left(MHORA_INF,5));P;@S29;29;N;
Impressao por;alltrim(USUario)+" em "+dtoc(Mdata)+" as "+left(MHORA,5);P;@S29;29;N;
