diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 12d2a0ae5..bd8ed3709 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6990,7 +6990,7 @@ Public Class ClsPaginas Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(Vta.DtNCVinculadas IsNot Nothing, Vta.DtNCVinculadas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte lrds.Add(rds5) - If UsuarioActual.CveEmpresa = 141 AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then + If UsuarioActual.CveEmpresa.Contiene(141, 152) AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString)) End If 'Imprime los parametros diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 887e726ba..e76a349bd 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -52,7 +52,7 @@ Personalizar - + @@ -72,7 +72,8 @@
- SubProyecto + + <%--SubProyecto--%>
@@ -160,7 +161,7 @@ - + @@ -187,7 +188,7 @@ - + @@ -196,7 +197,7 @@ - + @@ -298,7 +299,7 @@ Detalles del Corte - + @@ -306,15 +307,15 @@ - SerieFolio + Serie - Folio - + - + diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 6bd36841f..df363cc2c 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -61,9 +61,7 @@ Partial Class Bancos_RepCortes txtFechaVI.Text = Now.ToShortDateString txtFechaVF.Text = Now.ToShortDateString Me.Form.DefaultButton = BtnConsultar.UniqueID - DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) - DdlSubProyectos.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) + CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) End If End Sub diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0f88f211d..9fd43424e 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -518,7 +518,7 @@ Partial Class PopUpVerFactura End If ObjVenta.Dispose() ObjPuntoVenta.Dispose() - Dim FechaCorte As String = $" Fecha Corte: {Fecha}" + Dim FechaCorte As String = $" Fecha fin: {Fecha}" Dim Usuario As String = $" Usuario: {Nombre}" If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) diff --git a/General/PopUpPaqueteriasGuias.aspx.cs b/General/PopUpPaqueteriasGuias.aspx.cs index 33cc3edab..be70f9f33 100644 --- a/General/PopUpPaqueteriasGuias.aspx.cs +++ b/General/PopUpPaqueteriasGuias.aspx.cs @@ -864,17 +864,18 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas { ClsVentas ObjVenta = new ClsVentas(); - if (ObjVenta.GetVentaDetalle(CveVenta)) + if (ObjVenta.GetVenta(CveVenta,UsuarioActual.CveEmpresa)) { - DataTable VentasDetalle = ObjVenta.DtResultados; - if (VentasDetalle.Rows.Count > 0) + if (ObjVenta.DtResultados.Rows.Count > 0) { - double Total = VentasDetalle.SUM("Total"); + DataRow VentasDetalle = ObjVenta.DtResultados.Rows[0]; + double Total = VentasDetalle["Total"].ToString().ToDouble(); bool Mostrar = (Total >= 100000.00); tdLblPolizaSeguro.Visible = Mostrar; tdTxtPolizaSeguro.Visible = Mostrar; } } + ObjVenta.Dispose(); } } \ No newline at end of file