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