//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 2;2;22;76;Dados do Portador;;;;;
:SKEL
comando antes m_bDocOrigem = if( empty(m_bDocOrigem), 'NFe', m_bDocOrigem)
comando antes m_bAceite = if( empty(m_bAceite), 'N', m_bAceite)
comando antes m_bEspecie = if( empty(m_bEspecie ), 'R$ ', m_bEspecie)
comando antes m_bDocOrigem = if( empty(m_bDocOrigem), 'NFe', m_bDocOrigem)
comando antes m_bLocalPag = if( empty(m_bLocalPag), "Pague em qualquer banco ate a data de vencimento", m_bLocalPag)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 3;Portador.....;C;30;BANCO;@S30;;;;;N;; 0; 0;;;
 1; 2;53;Situacao:;C; 1;SITUACAO;x;;;;;N;; 0; 0;;;

 1; 4; 3;Banco________;C; 3;bCod;999;;
 1; 5; 3;Banco_Agencia;C; 4;bAg;9999;;
 1; 6; 3;Banco_Ag_Dv__;C; 2;bAgDv;!!;;
 1; 7; 3;Conta________;C;10;bCc;!!!!!!!!!!;;
 1; 8; 3;Conta_DV_____;C; 1;bCcDv;!;;
 1; 9; 3;Conta_OP_____;C; 3;bCcOper;999;; 
 
 1; 4;43;Carteira_____;C; 3;bCarteira;999;; 
 1; 5;43;Carteira_Tipo;C; 2;bCarteirtp;99;; 
 1; 6;43;NossoNumero__;N;14;bNossoNum;99999999999999;;  
 1; 7;43;Convenio/Pref;C;10;bPrefixo;9999999999;;  
 1; 8;43;DV Conv/Pref_;C; 1;bPrefixoDv;99;;  
 1; 9;43;Banco_Ag_Un_A;C; 2;bAgDvA;!!;;

 1;11; 3;Doc_Origem___;C; 3;bDocOrigem;XXX;;  
 1;12; 3;Doc_Aceite___;C; 1;bAceite;999;;  
 1;13; 3;Doc_Especie__;C; 3;bEspecie;!!!;;  
 1;11;43;Multa_Auto___;N;5;bMultaAuto;99.99;;  
 1;12;43;Juros_Mes____;N;5;bJurosMes;99.99;;  
 1;13;43;Numero_Vias__;N;2;bNumVias;99;;  

 1;15; 3;Local_Pagamen;C;50;bLocalPag;@S50;;  
 1;16; 3;Instrucoes___;C;50;bInstrucoe;@S50;;  
 1;18; 3;Demonstrativo;C;50;bDemonsPpo;@S50;;  