compras, cambios en consulta y titulos.

prestamos, cambio en cuentas contables

Compras/RepComprasPrecios.aspx

@@ -121,7 +121,7 @@
                         <div class="row">
                             <label class="col-md-1 truncate" data-toggle="tooltip" title="Almacén Destino">Proveedor:</label>
                             <div class="col-md-2">
-                                <asp:DropDownList ID="DdlProveedor" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control input-sm  input-small select2me" Width="150px" runat="server"></asp:DropDownList>
+                               <ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
                             </div>
                         </div>
                     </div>

Compras/RepComprasPrecios.aspx.vb

@@ -33,11 +33,12 @@ Partial Class RepComprasPrecios
         If ObjCompras.GetRepComprasPrecios(DdlProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjCompras.DtResultados
             DtCompras = ObjCompras.DtResultados
-            GvDatos.DataBind()
+
-            UPDatos.Update()
         End If
 
         ObjCompras.Dispose()
+        GvDatos.DataBind()
+        UPDatos.Update()
     End Sub
 #End Region
 
@@ -52,6 +53,7 @@ Partial Class RepComprasPrecios
 
             e.Row.HorizontalAlign = HorizontalAlign.Right
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(1).Width = Unit.Pixel(125)
 
             If e.Row.DBCampo("CvePS") = "" Then
                 e.Row.CssClass = "Totales"
@@ -78,9 +80,9 @@ Partial Class RepComprasPrecios
 
 #Region "CARGA COMBOS FILTRO"
     Private Sub CargaProveedor()
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.setEsWebService(True)
-        DdlProveedor.DataBind()
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlProveedor.SelectedText = "Todos"
         DdlProveedor.SelectedValue = "-1"
     End Sub
 #End Region
@@ -92,27 +94,8 @@ Partial Class RepComprasPrecios
     Private Sub Imprime(Formato As String)
         If DtCompras IsNot Nothing Then
             Dim StrFiltro As New StringBuilder
-            If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedItem.Text)
+            StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText)
             GvDatos.ExportToExcelG("RepComprasPrecios.xlsx", "Reporte de Precios de Compras", UsuarioActual, StrFiltro.ToString, 100, 200)
-
-            'Dim StrFiltro As New StringBuilder
-
-            'If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Proveedor:</b> {0}", DdlProveedor.SelectedItem.Text)
-
-            'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-
-            'Dim params As New List(Of ReportParameter)
-            'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-            'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            'params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-            'If Imagen.Exists Then
-            '    params.Add(New ReportParameter("LogoPath", logouri))
-            'Else
-            '    params.Add(New ReportParameter("LogoPath", ""))
-            'End If
-            'ImprimirPDF("Empresas/Grales/Formatos/RepComprasPrecios.rdlc", DtCompras, params, String.Format("RepComprasPrecios-{0}", Now.ToDateTime.ToShortDateString), Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If

Inventarios/PrestamosdeProveedor.aspx

@@ -84,6 +84,7 @@
                                             </div>
                                         </div>
                                          <div class="row">
+                                             <asp:HiddenField ID="HdnCveProveedor" runat="server" />
                                             <label class="col-md-3">Almacén:</label>
                                             <div class="col-md-9">
                                                 <asp:DropDownList ID="DdlAlmacenOrigen" Width="150px" AppendDataBoundItems="true"  runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me"></asp:DropDownList>

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -41,6 +41,11 @@ Partial Class Inventarios_PrestamosdeProveedor
 
         If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, UsuarioActual.CveEmpresa) Then
             GvD.DataSource = ObjInv.DtResultados
+            Dim Dr As Data.DataRow = ObjInv.DtResultados.FiltroPrimero("")
+            If Dr IsNot Nothing Then
+                HdnCveProveedor.Value = Dr("CveProveedor")
+            End If
+
         End If
 
         ObjInv.Dispose()
@@ -124,7 +129,7 @@ Partial Class Inventarios_PrestamosdeProveedor
             Dim Fecha As Date = TxtFechaEntrega.Text.ToDate
 
             Dim CveMovimientoSalida As Integer
-            Dim tCveProveedor As Integer = ddlProveedor.SelectedValue.ToEntero
+            Dim tCveProveedor As Integer = HdnCveProveedor.Value.ToEntero
             Dim CvePS As Integer = 0
 
             'AGREGAMOS LA SALIDA
@@ -169,8 +174,7 @@ Partial Class Inventarios_PrestamosdeProveedor
 
                     Dim CveConceptoContable As Integer = 69
                     Dim CveClasifCosto As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("CvePS ={0} ", CvePS))
-                    IdCtaContableOtro = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", $"CveClasificacion = {CveClasifCosto}").ToEntero
+                    IdCtaContableOtro = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasifCosto}").ToEntero
-
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, 68, TxtObservacionesEntrega.Text.Trim, Fecha, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=tValorInventario) Then
                         ErrorMovInv = True
@@ -192,6 +196,7 @@ Partial Class Inventarios_PrestamosdeProveedor
                 TxtRecibio.Text = ""
                 TxtFechaEntrega.Text = Now.ToShortDateString
                 TxtObservacionesEntrega.Text = ""
+                HdnCveProveedor.Value = ""
 
                 Dim Mensaje As StringBuilder = New StringBuilder
                 Mensaje.AppendFormat("Se realizo correctamente la recepción. <br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoSalida)