al recibir una remision de usado se muestra el cliente en el ddlCliente

Inventarios/RecepcionUsados.aspx.vb

@@ -1010,7 +1010,6 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
-
         If DdlClientes.SelectedValue.ToEntero <= 0 Then
             Alert("No se ha especificado el cliente", TipoMensaje.MsgError)
             Exit Sub
@@ -1934,6 +1933,10 @@ Partial Class Inventarios_RecepcionUsados
         If ObjVentas.GetVenta(CveRemisionRecibida, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
             EsDistribuidor = CBool(ObjVentas.DtResultados.Rows(0)("EsDistribuidor").ToString())
             CveCliente = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString().ToEntero()
+
+            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveCliente = {0}", CveCliente))
+            DdlClientes.DataBind()
+            DdlClientes.SelectedValueExist(CveCliente)
         End If
 
         'SI ES DISTRIBUIDOR VAMOS A GENERAR LA REMISION DE NOTA DE CREDITO
@@ -1959,10 +1962,9 @@ Partial Class Inventarios_RecepcionUsados
                 DivTotal.Visible = True
             End If
         Else
-            DivCliente.Visible = False
+            'DivCliente.Visible = False
             'DivFactura.Visible = False
         End If
-
         If ObjVentas.GetVentasUsadosDetalle(CveRemisionRecibida) Then
             DtUsados = ObjVentas.DtResultados.Copy()
         End If