//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8; 9;16;65;Bairro e Taxa de Entrega;;;;;
:SKEL
variavel #TEXTO_FONTE
if select('sccrcli')>0 .and. x_operacao=1
   m_CR_BAIRRO := SccrCli->Cr_Bairro
   RefreshGetList()
endif
#FIM_TEXTO_FONTE
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 3; 6;Bairro:;C;30;CR_BAIRRO;@S30;;;;;N;; 0; 0;;;
 1; 5; 6;Taxa (Pagamento) por Entrega:;N; 7;CR_COM;99.99;;;;;N;; 0; 0;;;
