//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 4;6;20;75;Descricao de Bem Patrimonial;;;;;
 2; 7;15;19;77;Dados Contabeis;;;;;
: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_PT_ITEM = if(x_operacao=1, StrZero(Reccount()+1,6), m_PT_ITEM)
COMANDO SAIDA DbSetOrder(zord)
*// 1;13; 1;Valor Ja Depreciado:;N;12;AQ_XVALOR;9999999.99;;;;;N;; 0; 0;;;
*// 1;14; 1;AQ_FAP;N;12;AQ_FAP;9999999.99;;;;;N;; 0; 0;;;
*// 1;15; 1;DP_DTINI;D; 8;DP_DTINI;;;;;;N;; 0; 0;;;
*// 1;16; 1;DP_DTFIM;D; 8;DP_DTFIM;;;;;;N;; 0; 0;;;
*// 1;17; 1;DP_TAXA;N; 8;DP_TAXA;999.99;;;;;N;; 0; 0;;;
*// 1;18; 1;DP_COEF;N; 8;DP_COEF;999.99;;;;;N;; 0; 0;;;
*// 1;19; 1;BX_DATA;D; 8;BX_DATA;;;;;;N;; 0; 0;;;
*// 2; 1; 1;BX_TIPO;C;15;BX_TIPO;@S15;;;;;N;; 0; 0;;;
*// 2; 2; 1;BX_VALOR;N;12;BX_VALOR;9999999.99;;;;;N;; 0; 0;;;
*// 2; 3; 1;BX_XVALOR;N;12;BX_XVALOR;9999999.99;;;;;N;; 0; 0;;;
*// 2; 4; 1;BX_FAP;N;12;BX_FAP;9999999.99;;;;;N;; 0; 0;;;
*// 2; 5; 1;RS_VALOR;N;12;RS_VALOR;9999999.99;;;;;N;; 0; 0;;;
*// 2; 6; 1;RS_XVALOR;N;12;RS_XVALOR;9999999.99;;;;;N;; 0; 0;;;
*// 2; 7; 1;RS_FAP;N;12;RS_FAP;9999999.99;;;;;N;; 0; 0;;;
*// 2; 8; 1;LP_VALOR;N;12;LP_VALOR;9999999.99;;;;;N;; 0; 0;;;
*// 2; 9; 1;LP_XVALOR;N;12;LP_XVALOR;9999999.99;;;;;N;; 0; 0;;;
*// 2;10; 1;LP_FAP;N;12;LP_FAP;9999999.99;;;;;N;; 0; 0;;;

// 1; 2; 2;Codigo do Bem.....:;C;13;PT_ITEM;@S13;;!empty(m_PT_ITEM).and.PSQ_BROW;pt_bens;pptbens;S;S; 0;0;;;

   // 1; 4; 2;Bem eh Subitem de.:;C;13;PT_SUBITEM;@S13;;;;;N;; 0; 0;;;
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Codigo do Bem.....:;C;13;PT_ITEM;xxxxxx;;!empty(m_PT_ITEM).and.PSQ_BROW;pt_bens;pptbens;S;S; 0;0;;;
 1; 3; 2;Cod. Tombamento...:;N;13;PT_tombame;9999999999999;;eval(zb_PeanOk,m_PT_tombame);;;N;;0;0;;;
 1; 5; 2;Codigo do Grupo...:;C;10;PT_GRUPO;@!10;;lastkey()=5.or.psq_brow;pt_grupo;pptgrupo;N;S; 5;35;desc;@s30;
 1; 7; 2;Descricao do Bem..:;C;50;PT_DESC;@S40;;!empty(m_PT_DESC);;;N;; 0; 0;;;
 1; 8; 2;.                 :;C;50;PT_DESC2;@S40;;;;;N;; 0; 0;;;
 1; 9; 2;Marca do Bem......:;C;15;PT_MARCA;@S15;;LASTKEY()=5 .OR.PSQ_BROW;pt_marca;pptmarca;N;S; 0;0;;;
 1;10; 2;Modelo do Bem.....:;C;15;PT_MODELO;@S15;;LASTKEY()=5.or.PSQ_BROW;pt_model;pptmodel;N;S; 0;0;;;m_pT_MARCA+m_PT_MODELO;PT_MODELO;
 1;11; 2;Fornecedor........:;N; 5;PT_FORN;99999;;lastkey()=5 .or.psq_brow;sccpfor;psccpfor;N;N;11;35;cp_fantasi;@s25;
 1;12; 2;Fabricante........:;N; 5;PT_Fabr;99999;;lastkey()=5 .or.psq_brow;sccpfab;psccpfab;N;N;12;35;cp_fantasi;@s25;
 1;13; 2;Setor/Localizacao.:;C;15;PT_Depto;@S15;;lastkey()=5 .or.psq_brow;pt_depto;pptdepto;N;S;12;35;desc;@s30;

 2; 2; 2;Data de Aquisicao.......:;D; 8;AQ_DATA;;;;;;N;; 0; 0;;;
 2; 3; 2;Nota Fiscal de Aquisicao:;N; 6;AQ_NF;999999;;;;;N;; 0; 0;;;
 2; 4; 2;Valor de Aquisicao......:;N;12;AQ_VALOR;9999999.99;;;;;N;; 0; 0;;;
 2; 5; 2;Conta Contabil ...(CDeb):;N; 5;CT_CONTA;99999;Mensagem("Conta do Bem no Ativo Imobilizado (Conta Debito)");;;;N;; 0; 0;;;
 2; 6; 2;Contra-Partida Aquisicao:;N; 5;CT_CCre;99999;Mensagem("Contra-Partida do Bem no Ativo Imobilizado (conta Caixa/Banco/Etc)");;;;N;; 0; 0;;;
 2; 7; 2;Bem Sofre Depreciacao ? (S/N):;C; 1;DP_DAO;!;Mensagem("Informe se o Bem sofre depreciacao contabil");;;;N;; 0; 0;;;
 2; 8; 2;Taxa de Depreciacao .........:;N; 6;DP_TAXA;999.99;Mensagem("Taxa de depreciacao anual,de acordo com a classificacao do bem");;;;N;; 0; 0;;;
 2; 9; 2;Depreciacao Acumulada Inicial:;N; 9;DP_DepIni;999,999.99;Mensagem("Informe a depreciacao acumulada do bem, caso o mesmo ja esteja usado.");;;;N;; 0; 0;;;

