From ac2ade417b24ec5196894fa5f5b3e10cd905147e Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 11 Apr 2023 16:21:58 -0700
Subject: [PATCH] Seleccionar intermediaro en cobro a clientes

---
 Ventas/ClientesAbonar.aspx    | 2 +-
 Ventas/ClientesAbonar.aspx.vb | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx
index 2b2d946f5..1a276b46f 100644
--- a/Ventas/ClientesAbonar.aspx
+++ b/Ventas/ClientesAbonar.aspx
@@ -264,7 +264,7 @@
                     <br />
                     <div class="row">
                         <div class="col-md-12">
-                            <div class="portlet light smmallpadding traspasorow bordered">
+                            <div class="portlet light smmallpadding traspasorow bordered" id="PorletIntermediario" runat="server" visible="false">
                                 <div class="portlet-title">
                                     <div class="caption font-green">
                                         <span class="caption-subject bold uppercase" style="line-height: 1;">Vinculación de intermediarios
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 7511e18ca..e6ab3292d 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -265,6 +265,10 @@ Partial Class Ventas_ClientesAbonar
                 Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
                 Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
 
+                If UsuarioActual.Empresa.Funcionalidad(712) = "1" Then
+                    PorletIntermediario.Visible = True
+                End If
+
                 If CargaCliente(CveCliente, CveMonedaFiltro) Then
 
                     IdCuentaBancaria = 0