FoxPro/Visual FoxPro - Ayuda con el formulario Urgente

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

Use ALUMNOS on 1 alias _ALUMNOS

Set order to tag DNI (TU TABLA DEBE ESTAR ODENADA POR EL DNI)

select _ALUMNOS

SEEK tHIS.VALUE

IF FOUND()

     THISFORM.TXTLABEL2.VALUE=_TABLA.NOMBRE

     IF 6=MESSAGEBOX("DESEA ANULAR ESTE ALUMNO ?",32 +4)

         DELETE ALL FOR DNIAP = DNI

     ENDIF

ELSE

         MESSAGEBOX("ALUMNO NO EXISTE")

         RETURN 0

ENDIF

WAIT WINDOW "Preparando para Eliminar" TIMEOUT .6

SELECT num, ncompleto as cliente, direccion, telefono, limite_cred as limite_credito from clientes ORDER BY ncompleto INTO CURSOR cc1

IF RECCOUNT()>0

BROWSE

Thisform.t5.Value=cc1.num

Thisform.t1.Value=cc1.cliente

Thisform.t2.Value=cc1.direccion

Thisform.t3.Value=cc1.telefono

thisform.t4.Value=cc1.limite_credito

Thisform.Refresh

thisform.t1.SetFocus()

pr2=MESSAGEBOX("Desea Eliminar el Cliente seleccionado?",4+32,"Atención")

IF pr2=6

SELECT 1

SET ORDER TO num

SEEK Thisform.t5.value

IF FOUND()

DELETE

*pack

	SELECT 2

	SET ORDER TO num

	SEEK Thisform.t5.Value

	IF FOUND()

	DELETE

	ENDIF

Thisform.t1.Value=""

Thisform.t2.Value=""

Thisform.t3.Value=""

Thisform.t4.Value=0

Thisform.t5.Value=0

Thisform.Refresh

Thisform.t1.SetFocus()

Thisform.init

ENDIF

ELSE

Thisform.t1.Value=""

Thisform.t2.Value=""

Thisform.t3.Value=""

Thisform.t4.Value=0

Thisform.t5.Value=0

Thisform.Refresh

Thisform.t1.SetFocus()

Thisform.init

ENDIF

ENDIF