Transaction
Publicado por Alberto (10 intervenciones) el 25/04/2005 22:55:58
Hola soy nuevo en este foro pero llevo mucho documentadome en esta pagina
Bueno, tengo una duda con foxpro sobre las transacciones
programe un boton el boton "Nuevo" de esta Forma
THISFORM.TXTApellido.ReadOnly= .F.
THISFORM.TXTCodclie.ReadOnly= .F.
THISFORM.TXTNombre.ReadOnly= .F.
This.Enabled= .F.
THISFORM.COMmand2.Enabled= .T.
THISFORM.COMmand3.Enabled= .T.
SELECT registro
x=0
reg=RECNO()
CALCULATE MAX(codclie) TO x
IF x<>0
x=x+1
GO reg
ELSE
x=1
ENDIF
BEGIN TRANSACTION
SCATTER MEMVAR blank
END TRANSACTION
codigo=x
thisform.txtNombre.SetFocus
thisform.Refresh
INSERT INTO registro FROM memvar
thisform.Refresh
pero me da error con el "Retroceder" me dice que falta el begin transaction
pero le pongo eso no pasa nada...
aki el codigo
Retroceder:
THIS.Enabled=.F.
THISFORM.COMMAND1.Enabled=.T.
THISFORM.COMMAND2.ENABLED=.F.
ROLLBACK
GO BOTTOM
thisform.Refresh
Espero que me puedan ayudar
Gracias
Bueno, tengo una duda con foxpro sobre las transacciones
programe un boton el boton "Nuevo" de esta Forma
THISFORM.TXTApellido.ReadOnly= .F.
THISFORM.TXTCodclie.ReadOnly= .F.
THISFORM.TXTNombre.ReadOnly= .F.
This.Enabled= .F.
THISFORM.COMmand2.Enabled= .T.
THISFORM.COMmand3.Enabled= .T.
SELECT registro
x=0
reg=RECNO()
CALCULATE MAX(codclie) TO x
IF x<>0
x=x+1
GO reg
ELSE
x=1
ENDIF
BEGIN TRANSACTION
SCATTER MEMVAR blank
END TRANSACTION
codigo=x
thisform.txtNombre.SetFocus
thisform.Refresh
INSERT INTO registro FROM memvar
thisform.Refresh
pero me da error con el "Retroceder" me dice que falta el begin transaction
pero le pongo eso no pasa nada...
aki el codigo
Retroceder:
THIS.Enabled=.F.
THISFORM.COMMAND1.Enabled=.T.
THISFORM.COMMAND2.ENABLED=.F.
ROLLBACK
GO BOTTOM
thisform.Refresh
Espero que me puedan ayudar
Gracias
Valora esta pregunta


0