FoxPro/Visual FoxPro - Un caballero que me ayuda, Auxilio.

 
Vista:

Un caballero que me ayuda, Auxilio.

Publicado por Elianny Esther (15 intervenciones) el 29/07/2007 18:08:56
Hola Chicos
Tengo un registro Inscripción que usa un Grid.
Este es el código para gravar un Registro

SELECT tbla_inscripcion
INSERT INTO tbla_inscripcion FROM MEMVAR
TABLEUPDATE(.T.,.T.)

SELECT detalle
GO TOP
DO WHILE !EOF()
SCATTER MEMVAR
SELECT detalle_inscripcion
INSERT INTO detalle_inscripcion FROM MEMVAR
TABLEUPDATE(.T.,.T.)
SELECT detalle
SKIP
ENDDO

Necesito un botón modificar, para poder modificar los registro.
Por favor alguien que me ayuda, es de mi trabajo final de mi monográfico.

Att. Eliany Esther de República Dominicana.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:Un caballero que me ayuda, Auxilio.

Publicado por Ernesto Hernandez (4623 intervenciones) el 30/07/2007 17:34:52
le puedes agregar algunos procedimientos a tu forma y desde ahi manejarlo

ejemplo puedes agregar el procedimiento CheckData

WITH THISFORM.Pageframe1.Page1
IF VAL(.TxtNumCli.VALUE)=0
=MESSAGEBOX("Cero en numero de cliente no es valido..",48,"Error en sistema")
.TxtNumCli.SetFocus
RETURN .F.
ENDIF
SELECT WCLI && cursor creado de la tabla Cli
SCATTER TO ZZTD
SELECT CLI
IF ! SEEK(WCLI.CC_NUM ,"CLI",1)
APPEND BLANK
ENDIF
GATHER FROM ZZTD
UNLOCK
RETURN .T.
ENDWITH

y con este checas si existen los datos si no existen creas el registro nuevo y si no ya tienes los datos para poderlos modificar y ahi creando otra propiedad donde los muestres en tu forma


Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar