//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;8; 9;16;75;Paciente SNGPC;;;;;
:SKEL
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. 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())
VARIAVEL zblkcli=_CreateBlock("m_paciente:=if(m_cr_cod_cli>0.and.empty(m_paciente),sccrcli->cr_nome,m_paciente),.t.")
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 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; 3; 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;!;;lastkey()=5.or.m_pac_unidid$'AM';;;N;; 0; 0;;;
 1; 6; 2;Sexo ........(M/F):;C; 1;PAC_sexo;!;;lastkey()=5.or.m_pac_sexo$'MF';;;N;; 0; 0;;;