Transacciones en CursorAdapter
Publicado por Oscar Meza (78 intervenciones) el 10/12/2007 15:09:20
Quisiera que me dijieran si este tipo de transacciones es seguro
BEGIN TRANSACTION
IF !Thisform.Trans_Serie()
ROLLBACK
=Messagebox("error..... ","Transaccion: Series")
RETURN .F.
ELSE
IF !Thisform.Trans_Inv()
ROLLBACK
=Messagebox("error..... ","Transaccion: Inventario")
RETURN .F.
ELSE
IF !Thisform.Trans_Factura()
ROLLBACK
=Messagebox("error..... ","Transaccion: Factura")
RETURN .F.
ELSE
WAIT WINDOWS "Factura Almacenada" NOWAIT
ENDIF
ENDIF
ENDIF
END TRANSACTION
BEGIN TRANSACTION
IF !Thisform.Trans_Serie()
ROLLBACK
=Messagebox("error..... ","Transaccion: Series")
RETURN .F.
ELSE
IF !Thisform.Trans_Inv()
ROLLBACK
=Messagebox("error..... ","Transaccion: Inventario")
RETURN .F.
ELSE
IF !Thisform.Trans_Factura()
ROLLBACK
=Messagebox("error..... ","Transaccion: Factura")
RETURN .F.
ELSE
WAIT WINDOWS "Factura Almacenada" NOWAIT
ENDIF
ENDIF
ENDIF
END TRANSACTION
Valora esta pregunta


0