commit general local oscar

Contabilidad/RegPoliza.aspx.vb

@@ -1702,7 +1702,9 @@ Partial Class RegPoliza
 
         If ObjConta.RemovePoliza(IDPoliza) Then
             If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then
-                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+
+                Else
                     ErrorTrans = True
                 End If
             Else

Contabilidad/RegPrePoliza.aspx.vb

@@ -1341,11 +1341,30 @@ Partial Class ContabilidadC_RegPrePoliza
 
     Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
         Dim ObjContabilidad As New ClsContabilidad
-
+        ObjContabilidad.IniciaTransacSQL()
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        ObjConta.IniciaTransacSQL()
+        Dim TieneError As Boolean = False
+
         If ObjContabilidad.RemovePrePolizas(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+            If IdPoliza > 0 Then
+                If Not ObjConta.RemovePoliza(IdPoliza) Then
+                    TieneError = True
+                End If
+            End If
+
             Alert("La Prepóliza ha sido eliminada", TipoMensaje.MsgInformacion)
         Else
             Alert("La Prepóliza ha podido ser eliminada", TipoMensaje.MsgError)
+            TieneError = True
+        End If
+
+        If Not TieneError Then
+            ObjContabilidad.Commit()
+            ObjConta.Commit()
+        Else
+            ObjContabilidad.RollBack()
+            ObjConta.RollBack()
         End If
 
         ObjContabilidad.Dispose()