//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8; 0;16;79;;;;;;
:SKEL
COMANDO ANTES #TEXTO_FONTE
if x_operacao=1
   if select('sccrcli')>0 
      m_LOCALIDADE := SccrCli->cr_cidade
      m_LOGRADOURO := SccrCli->Cr_Rua
      m_bairro := SccrCli->Cr_Bairro
      m_cep := SccrCli->Cr_Cep
      m_uf := SccrCli->cr_uf
   else
      if select('sccpfor')>0 
         m_LOCALIDADE := sccpfor->cp_cidade
         m_LOGRADOURO := sccpfor->Cp_Rua
         m_bairro := sccpfor->Cp_Bairro
         m_cep := sccpfor->Cp_Cep
         m_uf := sccpfor->cp_uf
      endif   
   endif
endif
#FIM_TEXTO_FONTE
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;UF........:;C; 2;UF;!!;;;;;N;; 0; 0;;;
 1; 3; 2;LOCALIDADE:;C;70;LOCALIDADE;@S60;;;;;N;; 0; 0;;;
 1; 4; 2;LOGRADOURO:;C;70;LOGRADOURO;@S60;;;;;N;; 0; 0;;;
 1; 5; 2;BAIRRO....:;C;70;BAIRRO;@S50;;;;;N;; 0; 0;;;
 1; 6; 2;CEP.......:;C; 9;CEP;99999-999;;;;;N;; 0; 0;;;