diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 5dc976edd..44ff9494a 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -2434,19 +2434,14 @@
-
-
+
+
+
-
- <%--
-
-
-
-
- --%>
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 885bc722e..28daf19eb 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -922,7 +922,7 @@ Partial Class Clientes
LnkPersonaFisica.Visible = True
End If
- InicializaDevolverDinero()
+ 'InicializaDevolverDinero()
TxtFechaICredito.Text = NowADS().AddYears(-2).ToShortDateString()
TxtFechaFCredito.Text = NowADS().ToShortDateString()
@@ -1956,12 +1956,8 @@ Partial Class Clientes
DtClientesAnticipo = Nothing
GVAnticiposHistorial.DataSource = Nothing
DtAnticipoHistorial = Nothing
- End If
+ End If
ObjMovtos.Dispose()
-
- 'If UsuarioActual.Empresa.Funcionalidad(185) = "1" AndAlso UsuarioActual.TienePermisoProceso(379) Then
- ' GVAnticipos.Columns(7).Visible = True
- 'End If
GVAnticipos.DataBind()
GVAnticiposHistorial.DataBind()
@@ -8086,7 +8082,7 @@ Partial Class Clientes
#Region " DEVOLVER DINERO ANT/NC "
Private Sub InicializaDevolverDinero()
If UsuarioActual.TienePermisoProceso(247) Then
- GVAnticipos.Columns(6).Visible = True
+ GVAnticipos.Columns(7).Visible = True
End If
End Sub
#End Region
@@ -10777,6 +10773,7 @@ Partial Class Clientes
TxtDevRedondeo.Text = ""
DdlCuentaDeposito.DataSource = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente)
DdlCuentaDeposito.DataBind()
+ GVAnticipos.Columns(7).Visible = True
'Dim Dep As New ClsGenerales
'If Dep.GetCuentasDepositos(CveCliente:=CveCliente, CveEmpresa:=UsuarioActual.CveEmpresa) Then
' DdlCuentaDeposito.DataSource = Dep.DtResultados