//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7;10;18;77;;;;;;
:SKEL
variavel znil = if(select("sccrdup")=0, ABRA("0NOIDX", r_siga, "SCCRDUP", "SCCRDUP", "SCRID_ND", "CR_NUM_PED"), "")
variavel znil = dbselectarea("SCCRBORD")
variavel zbRefreshDados = {||sccrdup->(m_cr_cod_Cli:=cr_cod_cli,m_fnumped:=fnumped,m_valor:=cr_valor,m_recno:=recno()),refreshGetList()}
variavel zUltBrd = 0
COMANDO ANTES zNil       = if(x_operacao=1,DbGoBottom(),"")
COMANDO ANTES zUltBrd    = BORDERO
COMANDO ANTES m_BORDERO  = if(x_operacao=1,zUltBrd,m_BORDERO)
COMANDO ANTES m_portador = if(x_operacao=1,val(sccrdup->cr_local),m_portador)
COMANDO ANTES M_DATA     = if(x_operacao=1,S_DATUAL,m_data)
comando depois znil = if( select("sccrdup")>0, sccrdup->(DbCloseArea()), "")
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Bordero....:;N; 6;BORDERO;999999;;;;;N;; 0; 0;;;
 1; 3; 2;Emissao....:;D; 8;DATA;;;;;;N;; 0; 0;;;
 1; 4; 2;Duplicata..:;C;10;DUPLICATA;@S10;;lastkey()=5.or.(psq_brow().and.eVal(zbRefreshDados));sccrdup;psccrdup;N;S; 4;30;cr_valor;@e 999999.99;
 1; 5; 2;Cliente....:;N; 6;CR_COD_CLI;999999;;lastkey()=5.or.psq_brow;sccrcli;psccrcli;N;N; 5;30;cr_nome;@s30;
 1; 6; 2;Portador...:;N; 2;portador;99;;lastkey()=5.or.psq_brow;si_banco;psibanco;N;N; 6;30;banco;@s20;
 1; 7; 2;Pedido.....:;N;10;fnumped;9999999999;.f.;
 1; 8; 2;Valor......:;N;10;valor;99999999.99;.f.;;
 1; 9; 2;Acesso.....:;N;10;recno;99999999;.f.;;