//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;8; 7;17;75;Paciente SNGPC;;;;;
:SKEL
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("COMPRADOR",m_PACIENTE)), "")
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")
VARIAVEL zblkCPF =_CreateBlock("m_CR_RG:=if(type('wCPFPAC')<>'U',wCpfPac,m_CR_RG),.t.")
VARIAVEL zBlkIdade = {|| if(m_PAC_idade=0,Alert('A idade aproximada do paciente deve ser informada!',,'R/W'),),m_PAC_idade>0}
VARIAVEL zBlkUnidIdade = {|| lastkey()=5.or.if(m_pac_unidid$"AM",.t.,(Alert("A idade do paciente deve ser informada em Meses(M) ou Anos(A)"),.f.))}
VARIAVEL zBlkSexo = {|| lastkey()=5.or.if(m_PAC_sexo$"MF",.t.,(Alert("O Sexo do paciente deve ser informado Masculino(M) ou Feminino(F)"),.f.))}
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Nome do Paciente               :;C;30;PACIENTE;@!30;;;;;N;; 0; 0;;;
 1; 3; 2;Idade Aproximada do Paciente   :;N;3;PAC_idade;999;;eval(zBlkIdade);;;N;; 0; 0;;;
 1; 4; 2;Idade em Meses ou Anos   (M/A) ?;C;1;PAC_unidid;!;;eval(zBlkUnidIdade);;;N;; 0; 0;;;
 1; 5; 2;Sexo do Paciente         (M/F) :;C;1;PAC_sexo;!;;eval(zBlkSexo);;;N;; 0; 0;;;
 1; 7; 2;CPF do Paciente/Nao Obrigatorio:;C;18;CR_RG;@!18;eval(zblkCPF);;;N;; 0; 0;;;
