VB_PAC;Pacientes de Psicotropicos;sys_tbbrow; 8;14;20;70;psq_crm;;
:SKEL
VARIAVEL zBlkEnter:=#TEXTO_FONTE
   if !"."$cr_rg
      alert("O cpf nao estava formatado... vai formatar cpf")
      (RegLock(), put_var("cr_rg", formataCnpjCpf(cr_rg)), DbCommit(), DbUnlock())
   endif
   if asc(left(Paciente,1))>=97
      alert("O nome do paciente estava em minusculos... vai formatar paciente")
      (RegLock(), put_var("paciente", upper(paciente)), DbCommit(), DbUnlock())
   endif
   psq_enter()
#FIM_TEXTO_FONTE
:TBMT
 13;eVal(zBlkEnter);Enter-Confirma ;
 22;tb_insert(D_OB);Ins-Inclui ;
 80;tb_pesq(d_ob);P-Pesquisa ;
  7;tb_del(D_ob);DEL-DELeta ;
 65;tb_update(D_OB);A-Altera ;
:TBFI
Paciente;PACIENTE;C;@s30; 30;;
CPF/RG;CR_RG;C;@S14; 14;;
Cod Cliente;CR_COD_CLI;N;99999; 11;;