//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6;10;18;66;Dados de Romaneio Avulso;;;;;
:SKEL
VARIAVEL z_blkTroco := {|| Mensagem('Troco: '+Transform(m_fvalpago-m_fval,'@E 99,999.99'),1), RefreshGetlist() }
VARIAVEL z_blkdesc := {|| m_cr_nome:=pad(vb_motiv->desc,len(m_cr_nome)), RefreshGetlist()}
COMANDO ANTES ABRA_ARQ("VB_MOTIV")
COMANDO ANTES dbselectarea("gera_re")
COMANDO DEPOIS znil=(RegLock(), _FIELD->ftipoenc:="AV", _FIELD->fg_psico:="N", DbCommit() )
COMANDO SAIDA znil=if(select("vb_motiv")>0, vb_motiv->(DbCloseArea()), "")
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Proposito..:;N; 3;recno_ped;999;;psq_brow;vb_motiv;pvbmotiv;N;N;2;20;desc;@s30;
 1; 3; 2;Observacoes:;C;30;CR_NOME;@s30;eval(z_blkdesc);.not.empty(m_cr_nome);
 1; 4; 2;Bairro.....:;C;20;Cr_bairro;@s20;;psq_brow;vb_bairr;pvbbairr;N;S;;
  1; 6; 2;Preencher Dados Abaixo se for Romaneio com Valores;
 1; 7; 2;Referente ao Cupom:;N; 6;fnumped;999999;
 1; 8; 2;Valor Devido......:;N;10;fval;999999.99;
 1; 9; 2;Valor a Receber...:;N;10;fvalpago;999999.99;;eval(z_blkTroco);
 1;10; 2;Numero do Caixa...:;N; 2;si_caixa;999;;;
