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,6 +19715,9 @@ Partial Class Ventas
 
     End Sub
     Private Sub EliminaPoliza()
+
+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+
             Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
             ObjAC.IniciaTransacSQL()
             Dim ObjConta As New ClsContabilidad
@@ -19756,6 +19759,10 @@ Partial Class Ventas
             ObjAC.Dispose()
             ObjConta.Dispose()
 
+        End If
+
+
+
     End Sub
     Protected Sub DdlPS_SelectedIndexChanged1(sender As Object, e As EventArgs)
         Dim Ddl As DropDownList = CType(sender, DropDownList)
@@ -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,6 +34462,9 @@ Partial Class Ventas
 
     Protected Sub BtnGenerarPoliza_Click(sender As Object, e As EventArgs)
         CreaObjetosVenta()
+
+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+
             Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
             Dim Msgok As New StringBuilder
             If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
@@ -34483,7 +34493,11 @@ Partial Class Ventas
             Else
                 Msgok.Append("Movimiento Registrado Correctamente.<br/><br/> ")
             End If
-        ObjAC.dispose
+            ObjAC.Dispose()
+
+        End If
+
+
     End Sub
 End Class