Validacion IF ClsconpaQi Tipo conta 2, Ventas

Ventas/PV.aspx.vb

@@ -3440,7 +3440,7 @@ Partial Class PV
                 Dim ObjAcum As New ClsAcumuladores
                 Dim ObjVentas As New ClsVentas(ObjAcum.IniciaTransacSQL())
                 Dim ObjContPaq As ClsContPAQi = Nothing
-                If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
                     ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
                 End If
 

Ventas/Ventas.aspx.vb

@@ -8808,7 +8808,7 @@ Partial Class Ventas
 
 
                 'CONTABILIDAD AUTOMATICA Y AC 
-                If UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
                     ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
                     ObjContPaq.IniciaTransacSQL()
                 End If
@@ -19715,46 +19715,53 @@ Partial Class Ventas
 
     End Sub
     Private Sub EliminaPoliza()
-        Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
-        ObjAC.IniciaTransacSQL()
-        Dim ObjConta As New ClsContabilidad
-        ObjConta.IniciaTransacSQL()
 
-        Dim ErrorMovimiento = False
+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
 
-        'Elimina la poliza 
+            Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
-        If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then
+            ObjAC.IniciaTransacSQL()
-            If Not ObjAC.RemovePoliza(IdPoliza) Then
+            Dim ObjConta As New ClsContabilidad
-                ErrorMovimiento = True
+            ObjConta.IniciaTransacSQL()
+
+            Dim ErrorMovimiento = False
+
+            'Elimina la poliza 
+            If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then
+                If Not ObjAC.RemovePoliza(IdPoliza) Then
+                    ErrorMovimiento = True
+                End If
             End If
-        End If
 
-        'Desasocia la poliza
+            'Desasocia la poliza
-        If Not ErrorMovimiento Then
+            If Not ErrorMovimiento Then
-            If Not ObjConta.DesasociarPoliza(IdPoliza, UsuarioActual.CveEmpresa) Then
+                If Not ObjConta.DesasociarPoliza(IdPoliza, UsuarioActual.CveEmpresa) Then
-                ErrorMovimiento = True
+                    ErrorMovimiento = True
+                End If
             End If
-        End If
 
-        If Not ErrorMovimiento Then
+            If Not ErrorMovimiento Then
-            If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
-                ErrorMovimiento = True
+                    ErrorMovimiento = True
+                End If
             End If
+
+            If Not ErrorMovimiento Then
+                Alert("La póliza ha sido desvinculada y eliminada con éxito.", TipoMensaje.MsgInformacion)
+                ObjAC.Commit()
+                ObjConta.Commit()
+                BtnDescontabilizar.Visible = False
+            Else
+                Alert("Ocurrió un error al desvincular y/o eliminar la póliza. Por favor intente de nuevo ", TipoMensaje.MsgError)
+                ObjAC.RollBack()
+                ObjConta.RollBack()
+            End If
+
+            ObjAC.Dispose()
+            ObjConta.Dispose()
+
         End If
 
-        If Not ErrorMovimiento Then
-            Alert("La póliza ha sido desvinculada y eliminada con éxito.", TipoMensaje.MsgInformacion)
-            ObjAC.Commit()
-            ObjConta.Commit()
-            BtnDescontabilizar.Visible = False
-        Else
-            Alert("Ocurrió un error al desvincular y/o eliminar la póliza. Por favor intente de nuevo ", TipoMensaje.MsgError)
-            ObjAC.RollBack()
-            ObjConta.RollBack()
-        End If
 
-        ObjAC.Dispose()
-        ObjConta.Dispose()
 
     End Sub
     Protected Sub DdlPS_SelectedIndexChanged1(sender As Object, e As EventArgs)
@@ -22654,7 +22661,7 @@ Partial Class Ventas
 
         CreaObjetosVenta()
 
-        If UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
         End If
 
@@ -34455,35 +34462,42 @@ Partial Class Ventas
 
     Protected Sub BtnGenerarPoliza_Click(sender As Object, e As EventArgs)
         CreaObjetosVenta()
-        Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim Msgok As New StringBuilder
-        If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
 
-            Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFactura)
+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
 
-            If IDPoliza.IdPoliza > 0 Then
+            Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
+            Dim Msgok As New StringBuilder
+            If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
 
-                Dim ObjVentas As New ClsVentas
+                Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFactura)
 
-                If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, CvePrePoliza, CveVenta, UsuarioActual.CveEmpresa) Then
+                If IDPoliza.IdPoliza > 0 Then
+
+                    Dim ObjVentas As New ClsVentas
+
+                    If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, CvePrePoliza, CveVenta, UsuarioActual.CveEmpresa) Then
+
+                        'Si se facturó la cotización hay que vincular la venta
+                        Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
+                    End If
+
+                    ObjVentas.Dispose()
 
                     'Si se facturó la cotización hay que vincular la venta
                     Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
+
+                Else
+                    ErrorList.Add("Ocurrió un error al generar A.C. en la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                 End If
 
-                ObjVentas.Dispose()
-
-                'Si se facturó la cotización hay que vincular la venta
-                Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
-
             Else
-                ErrorList.Add("Ocurrió un error al generar A.C. en la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
+                Msgok.Append("Movimiento Registrado Correctamente.<br/><br/> ")
             End If
+            ObjAC.Dispose()
 
-        Else
-            Msgok.Append("Movimiento Registrado Correctamente.<br/><br/> ")
         End If
-        ObjAC.dispose
+
+
     End Sub
 End Class