SE_EXECS;Servicos por Equipamentos;sys_tbbrow; 5;6;20;75;padrao;;
:SKEL
VARIAVEL Z_BLOCK = {|x_serv| se_execu->(dbgoto(x_serv)), se_execu->executor }
VARIAVEL Z_BLOCK2 = {|x_prd| se_prod->(dbseek(x_prd)), se_prod->pdesc }
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_execu","se_execu")
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_prod","se_prod","seip_c","pcod")
COMANDO DEPOIS Z_NIL = Se_execu->(DbCloseArea() )
COMANDO DEPOIS Z_NIL = Se_Prod->(DbCloseArea() )
:TBFI
Cod.Equip;EXECUTOR;N;999999999;9;S;
Equipamento;Eval(z_block,executor);C;@s11;11;N;
Cod.Servico;PCOD;N;99999;7;S;
Servico;eval(z_block2,pcod);C;@s30;30;N;
