diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 1285c88c5..b48a74e8c 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1671,7 +1671,7 @@
                                                             <td style="border: 1px none white"><b>Amort. Ant.:</b></td>
                                                             <td>
                                                                 <asp:Label ID="LblAmortizacion" ClientIDMode="Static" runat="server" Style="text-align: right;" Text="0.00" Width="78px"></asp:Label></td>
-                                                            <td align="right">&nbsp;<asp:LinkButton ID="ImgAntiPend" runat="server" OnClick="ImgAntiPend_Click" Text="  <i class='fa fa-money font-green'></i> " AlternateText="Cancelación de Anticipos" Style="cursor: pointer;" />
+                                                            <td align="right">&nbsp;<asp:LinkButton ID="ImgAntiPend"  runat="server" OnClick="ImgAntiPend_Click" Text="  <i class='fa fa-money font-green'></i> " AlternateText="Cancelación de Anticipos" Style="cursor: pointer;" />
                                                             </td>
                                                         </tr>
 
@@ -3682,7 +3682,7 @@
                                                                         <asp:TemplateField ItemStyle-Width="8000px">
                                                                             <HeaderTemplate>Referencia</HeaderTemplate>
                                                                             <ItemTemplate>
-                                                                                <asp:HyperLink ID="LtlConceptoInfo" runat="server" Text='<%# Eval("Concepto") %>' NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}") %>'></asp:HyperLink>
+                                                                                <asp:HyperLink ID="LtlConceptoInfo" runat="server" Text='<%# Eval("Concepto") %>' NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}") %>'></asp:HyperLink>
                                                                             </ItemTemplate>
                                                                         </asp:TemplateField>
                                                                         <asp:TemplateField>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e4df44d3f..3d7dca82c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3658,8 +3658,8 @@ Partial Class Ventas
             tUsuario = DrUsuario("Usuario").ToString
             tContraseña = DrUsuario("Contraseña").ToString
             tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero
-
-            Dim ObjUsuario As New ClsSisUsuarios
+            Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper())
+            Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
             Dim Usuario As Usuario
 
             Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
@@ -3680,25 +3680,25 @@ Partial Class Ventas
                 End If
                 dt.Dispose()
 
-                Dim ObjEmpresa As New ClsSisEmpresas()
-                If ObjEmpresa.GetEmpresas(tCveEmpresa, "-1", "-1", "-1", "-1") Then
-                    If ObjEmpresa.GetEmpresasFuncionalidades(tCveEmpresa) Then
-                        Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
+                'Dim ObjEmpresa As New ClsSisEmpresas()
+                'If ObjEmpresa.GetEmpresas(tCveEmpresa, "-1", "-1", "-1", "-1") Then
+                '    If ObjEmpresa.GetEmpresasFuncionalidades(tCveEmpresa) Then
+                '        Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
 
-                        Dim EmpresasFuncionalidades As New HybridDictionary
-                        For Each Row As Data.DataRow In dttmp.Rows
-                            EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
-                        Next
-                        ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
+                '        Dim EmpresasFuncionalidades As New HybridDictionary
+                '        For Each Row As Data.DataRow In dttmp.Rows
+                '            EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
+                '        Next
+                '        ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
 
-                    End If
+                '    End If
 
-                    Usuario.Empresa = ObjEmpresa.Empresa
-                    ADSSession.ADSSessionConfig.sessionUser.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa
+                '    Usuario.Empresa = ObjEmpresa.Empresa
+                '    ADSSession.ADSSessionConfig.sessionUser.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa
 
-                    ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa)
-                End If
-                ObjEmpresa.Dispose()
+                '    ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa)
+                'End If
+                'ObjEmpresa.Dispose()
 
             End If
 
@@ -16723,7 +16723,7 @@ Partial Class Ventas
                 If ObjMovtos.DtResultados.SUM("Saldo", "Saldo > 0 AND SaldoSubtotal > 0 AND Tipo = 'Ant'") > 0 Then
                     HdnTieneAnticipos.Value = "1"
                 End If
-
+                If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True
                 If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DtMovtos IsNot Nothing AndAlso DtMovtos.Rows.Count = 0 Then
                     ImgAntiPend.Visible = False
                 End If
@@ -31463,11 +31463,13 @@ Partial Class Ventas
                 divAmortizacionTipoRelacion.Visible = False
                 GVAnticipos.DataSource = DtMovtos
                 GVAnticipos.DataBind()
+                If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True
             Else
                 Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")}  {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")
                 divAmortizacionTipoRelacion.Visible = True
                 If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
                     DtMovtos = DtMovtos.FiltraParametros($"{If(CveVenta < 0, $"Tipo = 'Ant'{If(DdlTipoComprobante.SelectedValue = "Ing", $" AND CveMoneda ={DdlMoneda.SelectedValue.ToEntero()}", "")} ", "")}")
+                    If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True
                 End If
             End If
         End If
@@ -31477,7 +31479,6 @@ Partial Class Ventas
             'cuando es amortización por descuento, debe tener seleccionado descuentos previamente registrados
             If DdlTipoAmortizacionAnticipo.SelectedValue = "1" AndAlso LblDescuentos.Text.ToDecimal <= 0 Then
                 divAnticipoMsg.Visible = True
-
             End If
 
             If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
@@ -37415,25 +37416,8 @@ Partial Class Ventas
     End Sub
 
     Public Sub CargaDdlAF()
-        Dim strAF = UsuarioActual.Empresa.Funcionalidad(380)
-        Dim CvePSAF As Integer = -1
 
-        If String.IsNullOrEmpty(strAF) Then
-            Dim RowFuncionalidad380 As DataRow = Nothing
-
-            Using ObjEmpresas As New ClsSisEmpresas
-                If ObjEmpresas.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
-                    RowFuncionalidad380 = ObjEmpresas.DtResultados.FiltroPrimero("CveFuncionalidad = 380")
-                End If
-            End Using
-
-            If RowFuncionalidad380 IsNot Nothing Then
-                CvePSAF = RowFuncionalidad380("Valor").ToString().ToEntero()
-            End If
-
-        Else
-            CvePSAF = strAF.ToEntero()
-        End If
+        Dim CvePSAF As Integer = UsuarioActual.Empresa.Funcionalidad(380).ToEntero
 
         If CvePSAF > 0 Then
             Dim dtt = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSAF, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC
@@ -38293,13 +38277,12 @@ Partial Class Ventas
 
     Protected Sub BtnAutorizarDescuento_Click(sender As Object, e As EventArgs)
         Dim UsuarioAutorizar As Usuario = Nothing
-
-        Using ObjUsuario As New ClsSisUsuarios
+        Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper())
+        Using ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
             If RblTipoAutorizacionDesc.SelectedValue = "1" Then
                 UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), CveEmpresa:=UsuarioActual.CveEmpresa)
             Else
                 Dim CveUsuarioNuevo As Integer = -1
-
                 Using ObjUsuarios As New ClsSisUsuarios
                     CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccDesc.Text.Trim, UsuarioActual.CveEmpresa)
                 End Using