//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 4;6;20;75;Descricao de Bem Patrimonial;;;;;
:SKEL
VARIAVEL zord   = indexord()
VARIAVEL z_xBlk = "Z_recn:=Recno(),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(1),DbGoto(Z_recn),!z_fgExistCod.or.x_pdic6=0"
VARIAVEL zb_PeanOk = _CreateBlock( z_xBlk, {"x_pdic6"} )
VARIAVEL z_xBlk = ""
COMANDO ANTES DbSetOrder(1)
COMANDO ANTES m_Pcod    = if(x_operacao=1, Reccount()+1, m_pcod)
COMANDO ANTES m_Preffab = if(x_operacao=1, StrZero(Reccount()+1,6), m_preffab)
COMANDO ANTES m_pt_marca = pref
COMANDO DEPOIS RegLock()
COMANDO DEPOIS Put_Var("pref",m_pt_marca)
COMANDO SAIDA DbSetOrder(zord)
// 1; 9; 2;Marca do Bem......:;C;15;Pref;@S15;;LASTKEY()=5 .OR.PSQ_BROW;pt_marca;pptmarca;N;S; 0;0;;;
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Numero do Item....:;N; 6;pcod;999999;;m_pcod>0.and.PSQ_BROW;pt_bens;pptbens;S;S; 0;0;;;
 1; 3; 2;Referencia Patrim.:;C;13;preffab;xxxxxx;;!empty(m_Preffab).and.PSQ_BROW;pt_bens;pptbens;S;S; 0;0;;;
 1; 5; 2;Codigo do Grupo...:;C;5;Ptipo;!!!!!;;lastkey()=5.or.psq_brow;pt_grupo;pptgrupo;N;S; 5;35;desc;@s30;
 1; 7; 2;Descricao do Bem..:;C;50;pdesc;@!40;;!empty(m_PDESC);;;N;; 0; 0;;;
 1; 8; 2;.                 :;C;50;pdesc2;@S40;;;;;N;; 0; 0;;;
 1; 9; 2;Marca do Bem......:;P;15;m_pt_marca;@S15;;LASTKEY()=5 .OR.PSQ_BROW;pt_marca;pptmarca;N;S; 0;0;;;
 1;10; 2;Modelo do Bem.....:;C;15;PmarcaMODE;@S15;;LASTKEY()=5.or.PSQ_BROW;pt_model;pptmodel;N;S; 0;0;;;m_pt_marca+m_Pmarcamode;PT_MODELO;
 1;12; 2;Fabricante........:;N; 5;Pprincforn;99999;;lastkey()=5 .or.psq_brow;sccpfab;psccpfab;N;N;12;35;cp_fantasi;@s25;
