diff --git a/Compras/RepComprasPrecios.aspx b/Compras/RepComprasPrecios.aspx index adc382397..4c0fac3c4 100644 --- a/Compras/RepComprasPrecios.aspx +++ b/Compras/RepComprasPrecios.aspx @@ -121,7 +121,7 @@
- +
diff --git a/Compras/RepComprasPrecios.aspx.vb b/Compras/RepComprasPrecios.aspx.vb index 72670a562..235906965 100644 --- a/Compras/RepComprasPrecios.aspx.vb +++ b/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.DataBind() - DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + DdlProveedor.setEsWebService(True) + DdlProveedor.Attributes.Add("data-metodo", "getproveedores") + 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(" Proveedor: {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 diff --git a/Inventarios/PrestamosdeProveedor.aspx b/Inventarios/PrestamosdeProveedor.aspx index 7ad824cb7..69922a7b1 100644 --- a/Inventarios/PrestamosdeProveedor.aspx +++ b/Inventarios/PrestamosdeProveedor.aspx @@ -84,6 +84,7 @@
+
diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb index 40839cf55..9cfe144b4 100644 --- a/Inventarios/PrestamosdeProveedor.aspx.vb +++ b/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.
Folio de Salida: {0}", Folio, CveMovimientoSalida)