clarion - sql server 2005
Publicado por Andres ramos (22 intervenciones) el 16/11/2007 16:57:13
Hola a todos
Algien sabe si el bloque de sentencias Logout --> Commit --> Rollback funciona en un motor SQL Server 2005
Por ejemplo
LOGOUT(10,SQL_DESPACHOS,SQL_ITEMSDOCUMENTOSFACTURACION SQL_TERCEROSGENERAL,SQL_DESPACHOPEDIDOS)
IF ERRORCODE()
Err" = ERROR()
MESSAGE(Err") !Save the error message
ROLLBACK
BEEP
Message('No puedo salvar sus cambios ahora.')
Thiswindow.reset(1)
SELECT(?Browse:1)
CYCLE
END
message(' ')
DO CONSECUTIVOFACTURA
IF ERRORTRANSACCION = 1 THEN ! DETECTO ERROR EN CONSECUTIVO REVERSA TODO
ROLLBACK
Message('No puedo salvar sus cambios POR CONSECUTIVO.')
Thiswindow.reset(1)
SELECT(?Browse:1)
CYCLE
.
DO REALIZAFACTURA
IF ERRORTRANSACCION = 1 THEN ! DETECTO ERROR EN CONSECUTIVO REVERSA TODO
ROLLBACK
Message('No puedo salvar sus cambios REALIZAFACTURA.')
Thiswindow.reset(1)
SELECT(?Browse:1)
CYCLE
.
COMMIT
Saludos Cordiales
De antemano Gracias
Andres Ramos
Algien sabe si el bloque de sentencias Logout --> Commit --> Rollback funciona en un motor SQL Server 2005
Por ejemplo
LOGOUT(10,SQL_DESPACHOS,SQL_ITEMSDOCUMENTOSFACTURACION SQL_TERCEROSGENERAL,SQL_DESPACHOPEDIDOS)
IF ERRORCODE()
Err" = ERROR()
MESSAGE(Err") !Save the error message
ROLLBACK
BEEP
Message('No puedo salvar sus cambios ahora.')
Thiswindow.reset(1)
SELECT(?Browse:1)
CYCLE
END
message(' ')
DO CONSECUTIVOFACTURA
IF ERRORTRANSACCION = 1 THEN ! DETECTO ERROR EN CONSECUTIVO REVERSA TODO
ROLLBACK
Message('No puedo salvar sus cambios POR CONSECUTIVO.')
Thiswindow.reset(1)
SELECT(?Browse:1)
CYCLE
.
DO REALIZAFACTURA
IF ERRORTRANSACCION = 1 THEN ! DETECTO ERROR EN CONSECUTIVO REVERSA TODO
ROLLBACK
Message('No puedo salvar sus cambios REALIZAFACTURA.')
Thiswindow.reset(1)
SELECT(?Browse:1)
CYCLE
.
COMMIT
Saludos Cordiales
De antemano Gracias
Andres Ramos
Valora esta pregunta


0