Trapasos con pendientes por surtir,validar pagos,cambiar cliente de dispositivo,guardar PDF factura

Ventas/Clientes.aspx.vb

@@ -4925,10 +4925,22 @@ Partial Class Clientes
             End If
         End If
 
+    End Sub
+    Private Sub CargaClienteDispositivos(CveEmpresa As Integer)
+        Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+
+        If Dt IsNot Nothing AndAlso Dt.Rows.Count > 0 Then
+            DdlClienteDispositivo.DataSource = Dt.FiltraParametros($"CvePlataforma = 3 AND CveEmpresa = {CveEmpresa}", "Empresa")
+            DdlClienteDispositivo.DataBind()
+
+            DdlClienteDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
     End Sub
     Protected Sub DdlEmpresaDispositivo_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaEmpresasUsuario(DdlEmpresaDispositivo.SelectedValue.ToEntero())
-    End Sub
+        CargaClienteDispositivos(DdlEmpresaDispositivo.SelectedValue.ToEntero())
+    End Sub
+
+
     Protected Sub ImgMoverDispositivo_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Me.NombreDispositivo = GvRow.DataKey("Display")