SE_BPROD;Produtos para Auditoria;sys_tbbrow; 5; 2;20;79;padrao;;
:SKEL
VARIAVEL Z_DATUAL = S_DATUAL
VARIAVEL Z_TELA   = Janela(11,30,16,75,"Data de Processamento")
VARIAVEL Z_DATUAL = Var_Get(13, 47, Z_DATUAL, "99.99.99","W/B")
VARIAVEL Z_TELA   = FechaJan(z_tela)
VARIAVEL Z_BLOCK = {|x_prd| se_prod->(dbseek(x_prd)), se_prod->pdesc }
COMANDO ANTES Z_NIL = DbSetFilter( {||mdata=z_datual}, "mdata=z_datual")
COMANDO ANTES DbSeek(dtos(z_datual))
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_prod","se_prod","seip_c","pcod")
COMANDO DEPOIS Z_NIL = Se_Prod->( DbCloseArea() )
:TBFI
Loja;if(FLOJA=0,"Todas"," TH"+Strzero(floja,2));P;@s5;5;N;
Prod;PCOD;N;999999; 6;S;
Apresentacao;eval(z_block,pcod);C;@s35;35;N;
Hora da Escolha;left(dtoc(MDATA),5)+" "+left(mhora,5)+" "+usuario;P;@s20;20;N;
C;Criterio;C;!;1;N;
Rk;ranking;N;99;2;N;
