-

Contabilidad/RegPrePoliza1.aspx.vb

@@ -175,18 +175,7 @@ Partial Class ContabilidadC_RegPrePoliza
             Beneficiario = "-1"
             Actualizar = False
 
-            Dim dt As DataTable = Nothing
-            If UsuarioActual.Empresa.UsaContabilidad Then
-                Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
-
-                If Conta.GetCuentas(-1, "-1", 1) Then
-                    dt = Conta.DtResultados
-                    DtCuentasContables = Conta.DtResultados
-                    Session("DtCuentas") = Conta.DtResultados
-                End If
-                Conta.Dispose()
-
-                If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
+            If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
                     DivTipoGasto.Visible = True
                     ThTipoGasto.Visible = True
                     CargaTiposGasto()
@@ -250,14 +239,9 @@ Partial Class ContabilidadC_RegPrePoliza
                     GvMov.Columns(4).Visible = False
                 End If
 
-            Else
-                Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
-                BtnIEGuardar.Enabled = False
-                BtnEliminar.Visible = False
-                LbAgregar.Enabled = False
-            End If
 
-        End If
+
+            End If
 
     End Sub