SE_BMOV;Preenchimento da Auditoria;skip_blk(x); 5; 0;20;79;padrao;;
:SKEL
VARIAVEL Z_DATUAL = S_DATUAL
VARIAVEL Z_LOJA   = VAL(GETENV("LOJA"))
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_LOJA   = IF(Z_LOJA=0,Var_Get(14, 47, Z_LOJA, "99","W/B"), Z_LOJA)
VARIAVEL Z_TELA   = FechaJan(z_tela)
VARIAVEL Z_BLOCK = {|x_prd| se_prod->(dbseek(x_prd)), se_prod->pdesc }
VARIAVEL w_chave = dtos( s_datual )
VARIAVEL w_mensagem = "Sem mais produtos para "+dtoc(s_datual)
VARIAVEL w_block = {|| w_chave<>dtos(mdata)}
COMANDO ANTES Z_NIL = DbSetFilter( {||floja=z_loja.and.mdata=z_datual}, "floja=z_loja.and.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() )
:TBMT
13;GetAudit(floja,pcod,d_ob);Enter-Digita ;
:TBFI
Prod;PCOD;N;999999;6;N;
Apresentacao;eval(z_block,pcod);C;@s35;35;N;
Contagem;PEAT_INF;N;999999;6;S;
HoraInfo;MHORA_INF;C;@S8;8;N;
Usu_Info;USU_INF;C;@S8;8;N;
Usu_List;USUARIO;C;@S8;8;N;
HoraList;MHORA;C;@S8;8;N;
Data;MDATA;D;;8;N;
Lj;FLOJA;N;99;2;N;
