Promociones no se visualiza nombre de cliente

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)