Validar cadastro de tabelas TIPO:
Enviado: 17 Jun 2008 17:46
Boa tarde,
no clipper utilizava assim quando queria validar se um médico estar cadastro !!!
Function ChkMedico
parameter l,c,var
r=alias()
If lastkey() = 5
Sele &r
return .t.
Endif
Sele Medico
Set orde to 1
Seek var
If Found()
@ l,c say guerra
Sele &r
return .t.
Else
MsgBox1("M‚dico nÆo cadastrado.")
Sele &r
return .f.
Endif
Sele &r
return .t.
quando precisava da funcao fazia assim:
@ 12,19 get _crm pict '99999' valid ChkMedico(12,26,_crm)
Read
Agora estou usando xharbour + minigui e gostaria de saber dos amigos qual a melhor maneira de validar esses dados
agradeço desde ja
marco maciel
no clipper utilizava assim quando queria validar se um médico estar cadastro !!!
Function ChkMedico
parameter l,c,var
r=alias()
If lastkey() = 5
Sele &r
return .t.
Endif
Sele Medico
Set orde to 1
Seek var
If Found()
@ l,c say guerra
Sele &r
return .t.
Else
MsgBox1("M‚dico nÆo cadastrado.")
Sele &r
return .f.
Endif
Sele &r
return .t.
quando precisava da funcao fazia assim:
@ 12,19 get _crm pict '99999' valid ChkMedico(12,26,_crm)
Read
Agora estou usando xharbour + minigui e gostaria de saber dos amigos qual a melhor maneira de validar esses dados
agradeço desde ja
marco maciel