//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7; 5;19;75;Recebimento por Deposito Avulso;;;;;
:SKEL
variavel m_oper='RECAVULSO'
variavel m_CP_COD_FOR=0
VARIAVEL zAcesso = if(sx_acesso>0,Str(sx_acesso,6),'*NOVO*')
VARIAVEL M_CP_NUM_PED = "RA"+right(dtos(data),6)
VARIAVEL m_tipo   = "Suprimento"
VARIAVEL m_grupo  = 1
VARIAVEL m_desc   = if(empty(m_desc).or.m_desc="* Nao havia esse lancamento",Pad(" ",len(m_desc)),m_desc)
VARIAVEL zbDesc={||m_desc:=if(empty(m_desc),pad('Receb.Ref. a ?' ,len(m_desc)),m_desc),RefreshGetlist()}
VARIAVEL zbDoc={||m_CP_DUPLIC:=if(empty(m_CP_DUPLIC),pad(memo,len(m_CP_DUPLIC)),m_CP_DUPLIC),RefreshGetlist()}
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2;50;Acesso:;P; 6;zAcesso;999999;.f.;;;;N;;0;0;;;
 1; 3;50;Tipo .:;C; 8;TIPO;@s8;.f.;;;;N;;0;0;;;
 1; 4;50;Data .:;D; 8;DATA;;.f.;;;;N;;0;0;;;
 1; 5;50;Pedido:;N;11;cp_num_ped;@s10;.f.;;
 1; 6;50;Grupo.:;N; 1;GRUPO;9;.f.;
 1; 7;50;Oper..:;C;10;oper;@s10;.f.;;

 1; 2; 2;Conta Credit:;N; 3;sx_conta;999;.f.;
 1; 3; 2;Situacao....:;N; 1;CP_SITUACA;9;;psq_brow;si_sitdp;psisitdp;N;N;3;25;cr_situaca;@s18;
 1; 4; 2;Portador....:;N; 3;CP_LOCAL;999;;psq_brow;cp_local;pcplocal;N;N;4;25;banco;@s18;

 1; 7; 2;Valor Recebido:;N;11;VALOR;99999999.99;;m_valor>0;;;N;
 1; 8; 2;Documento ....:;C;10;CP_DUPLIC;@S10;eVal(zbDoc);!empty(m_CP_DUPLIC);
 1; 9; 2;Codigo Cliente:;N; 6;CP_COD_FOR;999999;;Chk_lastkey(5).or.psq_brow;sccrcli;psccrcli;N;N;9;30;cr_nome;@s30;
 1;10; 2;Observacoes ..:;C;40;DESC;@S40;eval(zbDesc);;;;N;