Sele Clientes
Public rut,rutc
Public nom,gir,direcc
Public dirpos,comu,ciud
Locate for Alltrim(rutcliente)=Alltrim(rutc)
nom=clientes.nomcliente
gir=clientes.gircliente
direcc=dircliente
dirpos=dirpostal
ciupos=ciupostal
If Found()
Thisform.CommandGroup1.Command1.Enabled=.f.
Thisform.Pageframe1.page1.Text2.Value=nom
Thisform.Pageframe1.page1.Text3.Value=gir
Thisform.Pageframe1.page1.Text4.Value=direcc
Thisform.Pageframe1.page1.Text5.Value=dirpos
Thisform.Pageframe1.page1.Text6.Value=ciupos
Thisform.Pageframe1.page1.Text7.Value=correo
Thisform.Pageframe1.page1.Text8.Value=comu
Thisform.Pageframe1.page1.Text9.Value=ciud
Thisform.Pageframe1.page1.Text10.Value=tel
else
cMessageTitle = 'Busca Cliente '
cMessageText = 'Registro no encontrado. ¿Desea Grabarlo?'
nDialogType = 4 + 32 + 256
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
DO CASE
CASE nAnswer = 6
*WAIT WINDOW 'Eligió Sí'
Thisform.CommandGroup1.Command1.Enabled=.t.
CASE nAnswer = 7
Return=.f.
Thisform.pageframe1.page1.text1.value=""
return
EndCase
Endif
Thisform.pageframe1.page1.text1.Refresh
**************** en el Botón GRABAR O CREAR
Publ Nom
Nom=Thisform.Pageframe1.page1.Text2.Value
cMessageTitle = 'Grabar '
cMessageText = ' ¿ Grabar Cliente Recién Creado ? '+Nom
nDialogType = 4 + 32 + 256
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
DO CASE
CASE nAnswer = 6
Append Blank
Replace Rutcliente With rutc
* with Thisform.pageframe1.page1.text1.value
Repla nomcliente With thisform.pageframe1.page1.text2.value
repla gircliente With thisform.pageframe1.page1.text3.value
repla dircliente With thisform.pageframe1.page1.text4.value
repla dirpostal With thisform.pageframe1.page1.text5.value
CASE nAnswer = 7
Return=.f.
EndCase
Thisform.CommandGroup1.Command1.Refresh