//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;06; 9;19;75;Paciente SNGPC/F.Popular;;;;;
:SKEL
COMANDO ANTES SET(28,"on")
COMANDO ANTES abra_arq("sccrcli")
COMANDO ANTES dbSelectArea("vb_pac")
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 sccrcli->(dbCloseArea())
COMANDO SAIDA SET(28,"off")
VARIAVEL zblkCPF=_CreateBlock("m_CR_RG:=if(type('wCPFPAC')<>'U',wCpfPac,m_CR_RG),.t.")
VARIAVEL zblkcli=_CreateBlock("m_paciente:=if(m_cr_cod_cli>0.and.empty(m_paciente),sccrcli->cr_nome,m_paciente),.t.")
VARIAVEL zblkrua=_CreateBlock("m_cr_rua:=if(m_cr_cod_cli>0.and.empty(m_cr_rua),sccrcli->cr_rua,m_cr_rua),.t.")
VARIAVEL zblkbai=_CreateBlock("m_cr_bairro:=if(m_cr_cod_cli>0.and.empty(m_cr_bairro),sccrcli->cr_bairro,m_cr_bairro),.t.")
VARIAVEL zblkcid=_CreateBlock("m_cr_cidade:=if(m_cr_cod_cli>0.and.empty(m_cr_cidade),sccrcli->cr_cidade,m_cr_cidade),.t.")
VARIAVEL zblkcep=_CreateBlock("m_cr_cep:=if(m_cr_cod_cli>0.and.empty(m_cr_cep),sccrcli->cr_cep,m_cr_cep),.t.")
// 1; 4; 2;Cod.Intern.Doenca.:;C; 3;PAC_cid;XXX;;;;;N;; 0; 0;;;
: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;eval(zblkCPF);;;N;; 0; 0;;;
 1; 3; 2;CodCli do Paciente:;N; 5;CR_COD_CLI;99999;;m_cr_cod_cli=0.or.psq_brow;sccrcli;psccrcli;N;N; 2;31;cr_nome;@s25;
 1; 4; 2;Nome do Paciente..:;C;30;PACIENTE;@!30;eval(zblkcli);;;;N;; 0; 0;;;
 1; 5; 2;Idade do Paciente.:;N; 3;PAC_idade;999;;;;;N;; 0; 0;;;
 1; 5;30;Idade em Meses ou Anos (M/A) ?;C; 1;PAC_unidid;!;;m_pac_unidid$'AM';;;N;; 0; 0;;;
 1; 6; 2;Sexo ........(M/F):;C; 1;PAC_sexo;!;;m_pac_sexo$'MF';;;N;; 0; 0;;;
 1; 8; 2;Rua...............:;C;30;CR_RUA;@!30;eval(zblkrua);;;;N;; 0; 0;;;
 1; 9; 2;Bairro............:;C;20;CR_BAIRRO;@!20;eval(zblkbai);;;;N;; 0; 0;;;
 1;10; 2;Cidade............:;C;20;CR_CIDADE;@!20;eval(zblkcid);;;;N;; 0; 0;;;
 1;11; 2;Cep...............:;C;20;CR_cep;@!20;eval(zblkcep);;;;N;; 0; 0;;;
