Pérdida de detalles de una transacción
Visual Basic 6.0
Sql Server 2000.
En el ingreso de datos utilizo transacciones, para las modificaciones de partidas contables también. Una partida contable lleva un registro en el encabezado y dos o mas registros en el detalle. Mi problema consiste que por ejemplo si se ingresan unas 500 partidas y se modifican unas 100 durante el mes en el procesos de modificación se pierde el detalle de por lo menos dos encabezados. Es decir funciona bien 98 veces y unicamente en dos ocaciones falla.
El proceso de modificación es el siguiente.
DESCRIPCIÓN
1. se guarda el encabezado y el detalle en tablas temporales.(encaAsientosNbk, detaAsientoNbk)
2. Se hacen las modificaciones en las tablas temporales, inclusive de los campos de las llave primaria
3. Se grava en la tabla en funciones (encaAsientosN y detaAsientoN) los registros ya modificados
CODIGO
/* previamente ya estan almacenados en una tabla auxiliar los registros del encabezado y detalle*/
reversa=1
beginTransaccion (idTransaccion)
Cr01 = " EXECUTE sp_AsignarSaldosConta Reversa
conDat.Execute (Cr01)
Co2.dbDelete ''Borrar el detalle de la partida
Co1.dbDelete 'Borra el encabeza de partida actual
'/*'INsertar las tuplas que se encuentran en tmpEncaAsientosN y tmpDetaAsientoN */
Call retornarCambio '/*Grava las partidas en la tabla temporal en la tabla en funciones*/
Reversa = 0 ' aplicar
Cr01 = " EXECUTE sp_AsignarSaldosConta 0
conDat.Execute (Cr01)
'/* 'call Verificar'Que no este la primera 'que tenga el detalle correspondiente */
Call Co2.GuardarCuentasFecha(tmpColuCuen, txtFech, tmpClave)'Algo que no tiene que ver
Call gravaEliminarPartida(False)
'/* Sin hay alguna sin detalle error y rollBack
If sinDetalle("encaAsientosN", "detaAsientoN", txtNPart, lblPart, lblPeri) Then GoTo ErrTbs
If msgTransaccion <> "" Then GoTo
endTransaccion (idTransaccion)
Por favor si alguien sabe la razón de mi problema o me pudiera apoyar le estaré muy agradecido. La verdad es urgente.
Alfredo