commit general local oscar

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()