//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 5;3;19;79;Subitem de SubItem de Bem Patrimonial;;;;;
:SKEL
VARIAVEL z_xBlk = "Z_recn:=Recno(),iOld:=DbSetOrder(2),z_fgExistCod:=x_operacao=1.and.DbSeek(x_pdic6),"
VARIAVEL z_xBlk = z_xBlk + "z_nil:=if(z_fgExistCod,Mensagem('Esse Codigo de Barras JA ESTA CADASTRADO !',1),''),"
VARIAVEL z_xBlk = z_xBlk + "DbSetOrder(iOld),DbGoto(Z_recn),!z_fgExistCod.or.x_pdic6=0"
VARIAVEL zb_PeanOk = _CreateBlock( z_xBlk, {"x_pdic6"} )
VARIAVEL z_xBlk = ""
VARIAVEL M_pcod = if(x_operacao=1, RecCount()+1, m_pcod)
VARIAVEL m_preffab = if(x_operacao=1, StrZero(m_pcod,6), m_preffab)

comando antes m_ptipo = if(x_operacao=1,qGp, m_ptipo)
comando antes m_pprincforn = if(x_operacao=1,qFn, m_pprincforn)

COMANDO ANTES znil = __KeyBoard( Chr(13)+Chr(13)+Chr(13)+Chr(13) )
COMANDO DEPOIS znil = if(x_operacao=1, RegLock(), "")
COMANDO DEPOIS znil = if(x_operacao=1, Put_Var("pcod", Reccount()), "")
COMANDO DEPOIS znil = if(x_operacao=1, Put_Var("preffab", wItem+"_"+StrZero(Pcod,6) ), "")
COMANDO DEPOIS znil = if(x_operacao=1, Put_Var("pt_subitem", wItem ), "")
COMANDO DEPOIS znil = if(x_operacao=1, DbCommit(), "")

:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 1; 2;Codigo..:;N; 6;pcod;999999;.f.;
 1; 2; 2;Ref.Pat.:;C;13;preffab;@s13;.f.;
 1; 1;23;Grupo.....:;C; 5;Ptipo;!!!!!;;lastkey()=5.or.psq_brow;pt_grupo;pptgrupo;N;S; 1;45;desc;@s30;
 1; 2;23;Fabricante:;N; 5;Pprincforn;99999;;lastkey()=5 .or.psq_brow;sccpfab;psccpfab;N;N;2;45;cp_fantasi;@s25;

 1; 3; 2;("Descricao do SubItem.: "+qDs);
 1; 4; 2;Dados do Componente..:;C;50;pdesc;@!35;;!empty(m_PDESC);;;N;; 0; 0;;;
 1; 5; 2;.                    :;C;50;pdesc2;@!35;;;;;N;; 0; 0;;;
 1; 6; 2;.                    :;C;50;pdesc3;@!35;;;;;N;; 0; 0;;;

 1; 8; 2;Marca do Componente.:;C;15;pref;@!15;;LASTKEY()=5 .OR.PSQ_BROW;pt_marca;pptmarca;N;S; 0;0;;;
 1; 9; 2;Modelo do Componente:;C;15;pMarcaMode;@!15;;LASTKEY()=5.or.PSQ_BROW;pt_model;pptmodel;N;S; 0;0;;;m_pref+m_Pmarcamode;PT_MODELO;
 1;10; 2;Numero de Serie.....:;C;20;PT_SERIE;@!20;;

 1;12; 2;Cod. Tombamento..:;N;13;Pdic6;9999999999999;;m_pdic6=0.or.eval(zb_PeanOk,m_pdic6);;;N;;0;0;;;
 1;13; 2;Setor/Localizacao:;C;15;PT_Depto;@!15;;lastkey()=5 .or.psq_brow;pt_depto;pptdepto;N;S;12;40;desc;@s30;
