From acad2e54bba02e2683ecd0f8bd8be4ea099947ee Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 13 Dec 2021 18:18:30 -0700
Subject: [PATCH] Promociones no se visualiza nombre de  cliente

---
 Ventas/Promociones.aspx.vb | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 8a9295822..beffb6cab 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -257,7 +257,24 @@ Partial Class Ventas_Promociones
             DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString
             DdlMarca.SelectedValue = Dr("CveMarca").ToString
             If Dr("CveVendedor").ToString.ToEntero > 0 Then DdlVendedor.SelectedValue = Dr("CveVendedor").ToString
-            If Dr("CveCliente").ToString.ToEntero > 0 Then DdlClientes.SelectedValue = Dr("CveCliente").ToString
+
+            If Dr("CveCliente").ToString.ToEntero > 0 Then
+
+                If DdlClientes.UsaWebService Then
+
+                    DdlClientes.txtText.Value = Dr("NombreComercial").ToString
+                    DdlClientes.txtValue.Value = Dr("CveCliente").ToString
+
+                Else
+                    DdlClientes.SelectedValue = Dr("CveCliente").ToString
+                End If
+
+
+
+
+
+            End If
+
             ChkEstatus.Checked = If(Dr("Estatus").ToString = "True", True, False)
             DdlMoneda.SelectedValueExist(Dr("CveMoneda").ToString)
             DdlMarca.SelectedValueExist(Dr("CveMarca").ToString)