-cambios

Inventarios/RepOcInv.aspx.vb

@@ -39,9 +39,13 @@ Partial Class Inventarios_RepOcInv
         TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
 
         'Llenar dropdownlist de proveedores
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedor.SelectedText = "Todos"
+        DdlProveedor.SelectedValue = "-1"
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataBind()
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
@@ -100,7 +104,7 @@ Partial Class Inventarios_RepOcInv
     Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
         If DtOCXSurtir IsNot Nothing Then
             Dim StrFiltro As New StringBuilder
-            If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text)
+            If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("<b>Proveedor</b>: {0}", DdlProveedor.SelectedText)
 
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))