//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;06; 3;17;77;Paciente F.Popular;;;;;
:SKEL
VARIAVEL zCliClosed = (select("sccrcli")=0)
VARIAVEL znil = if(zCliClosed , abra_arq("sccrcli"), "")
VARIAVEL znil = if(zCliClosed , dbSelectArea("vb_pac"), "")
VARIAVEL zblkCli="sccrcli->(m_paciente:=if(empty(m_paciente),cr_nome,m_paciente), m_cr_rua:=if(empty(m_cr_rua),cr_rua,m_cr_rua), m_cr_bairro:=if(empty(m_cr_bairro),cr_bairro,m_cr_bairro)"
VARIAVEL zblkCli=zblkCli+", m_cr_cidade:=if(empty(m_cr_cidade),cr_cidade,m_cr_cidade), m_cr_cep:=if(empty(m_cr_cep),sccrcli->cr_cep,m_cr_cep) ), RefreshGetList()"
VARIAVEL zblkCli=_CreateBlock( zblkCli )
COMANDO ANTES m_CR_RG = if( empty(m_CR_RG) .and. type("M_CPF")<>"U".and.!empty(m_cpf), m_cpf, if(type('wCPFPAC')<>'U',wCpfPac,m_CR_RG) )
COMANDO DEPOIS zFgCompOpen=( Select("vb_pcomp")>0 )
COMANDO DEPOIS zNil = if(.not. zFgCompOpen, abra_arq("vb_pcomp"), "")
COMANDO DEPOIS zFoundComp = Vb_Pcomp->(DbSeek(m_PACIENTE))
COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(AppendBlank()), "")
COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_COD_CLI",m_CR_COD_CLI)), "")
COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("COMPRADOR",m_PACIENTE)), "")
COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_RUA",m_CR_RUA)), "")
COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_BAIRRO",m_CR_BAIRRO)), "")
COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_CIDADE",m_CR_CIDADE)), "")
COMANDO DEPOIS znil = if(.not.zFoundComp, Vb_Pcomp->(fieldput("CR_RG",m_CR_RG)), "")
COMANDO DEPOIS zNil = if(.not. zFgCompOpen, vb_pcomp->(dbCloseArea()), vb_pcomp->(dbCommit()))
COMANDO DEPOIS zNil = if(.not. zFgCompOpen, "", vb_pcomp->(dbUnLock()) )
COMANDO DEPOIS dbSelectArea("vb_pac")
COMANDO SAIDA znil = if(zCliClosed , sccrcli->(dbCloseArea()), "")
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;CPF do Paciente...:;C;18;CR_RG;@!18;;
 1; 3; 2;CodCli do Paciente:;N; 5;CR_COD_CLI;99999;;m_cr_cod_cli=0.or.(psq_brow().and.eval(zBlkCli));sccrcli;psccrcli;N;N; 2;31;cr_nome;@s25;
 1; 4; 2;Nome do Paciente..:;C;30;PACIENTE;@S30;;
 1; 6; 2;Rua...............:;C;30;CR_RUA;@S30;;;;
 1; 7; 2;Bairro............:;C;20;CR_BAIRRO;@S20;;;
 1; 8; 2;Cidade............:;C;20;CR_CIDADE;@S20;;;
 1; 8; 53;Cep:;C;20;CR_cep;@S20;;
 1; 9; 2;Fones.............:;C;45;CR_fone;@S45;;;
