diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index 7011c1ad2..e47ba73e7 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -63,9 +63,9 @@ Partial Class Bancos_RepCortes
Me.Form.DefaultButton = BtnConsultar.UniqueID
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
End If
- End Sub
-
-
+ End Sub
+
+
#Region " C A R G A - D A T O S "
Public Sub CargaDatos()
Dim ObjPuntoVenta As New ClsPuntoVenta
@@ -87,22 +87,22 @@ Partial Class Bancos_RepCortes
e.Row.CssClass = "SubTotales2"
End If
End If
- End Sub
+ End Sub
Protected Sub GvP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvP.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("MetodoPago").ToString = "Total" Then
e.Row.CssClass = "SubTotales"
End If
End If
- End Sub
-
+ End Sub
+
Protected Sub GvD_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvD.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CveVenta").ToString = "" Then
e.Row.CssClass = "Totales"
- End If
- If e.Row.DBCampo("ImportePagado").ToDecimal() < 0 Then
- e.Row.FCLabel("LblTotal").CssClass = "badge badge-danger"
+ End If
+ If e.Row.DBCampo("ImportePagado").ToDecimal() < 0 Then
+ e.Row.FCLabel("LblTotal").CssClass = "badge badge-danger"
End If
End If
End Sub
@@ -163,8 +163,8 @@ Partial Class Bancos_RepCortes
If DtCortesVentasResumen.Rows.Count > 0 Or DtCortesVentas.Rows.Count > 0 Then
HplDownPDF.Visible = True
HplDownEXCEL.Visible = True
- HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "PDF")))
- HplDownEXCEL.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "EXCEL")))
+ HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}&CVESUBPROYECTO={2}", CveCorte, "PDF", DdlSubProyectos.SelectedValue.ToEntero)))
+ HplDownEXCEL.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}&CVESUBPROYECTO={2}", CveCorte, "EXCEL", DdlSubProyectos.SelectedValue.ToEntero)))
Else
HplDownPDF.Visible = False
HplDownEXCEL.Visible = False
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 5abb5359a..156070172 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -33,7 +33,7 @@ Partial Class PopUpVerFactura
End Property
Public Property DtDetalle() As DataTable
Get
- Return CType(ViewState("DtDetalle"), DataTable)
+ Return DirectCast(IfNull(ViewState("DtDetalle"), New DataTable, ViewState("DtDetalle")), DataTable)
End Get
Set(value As DataTable)
ViewState("DtDetalle") = value
@@ -336,6 +336,7 @@ Partial Class PopUpVerFactura
Dim Cultivo As String = ""
Dim noPallet As String = ""
Dim Variedad As String = ""
+ Dim NoCajas As String = ""
'Envase = "1 1/9"
'Tamano = "Small"
@@ -350,6 +351,7 @@ Partial Class PopUpVerFactura
Cultivo = row("Cultivo").ToString()
noPallet = row("Codigo").ToString()
Variedad = row("CultivoVariedad").ToString()
+ NoCajas = String.Format("{0:N0}", row("NoCajas"))
End If
@@ -360,6 +362,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Cultivo", Cultivo))
params.Add(New ReportParameter("noPallet", noPallet))
params.Add(New ReportParameter("Variedad", Variedad))
+ params.Add(New ReportParameter("NoCajas", NoCajas))
Dim lrds As New List(Of ReportDataSource)
@@ -683,7 +686,11 @@ Partial Class PopUpVerFactura
If UrlParametros("OP").ToString = "CORT" Then
If UrlParametros("CVECORTE") IsNot Nothing AndAlso UrlParametros("CVECORTE").ToString.ToEntero > 0 Then
- ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString)
+ Dim CveSubProyecto As Integer = -1
+ If UrlParametros("CVESUBPROYECTO") IsNot Nothing Then
+ CveSubProyecto = UrlParametros("CVESUBPROYECTO").ToString.ToEntero
+ End If
+ ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString, CveSubProyecto)
End If
End If
@@ -829,25 +836,27 @@ Partial Class PopUpVerFactura
#Region "OP = CORT - IMPRIMIR CORTE"
- Private Sub ImprimeCorte(CveCorte As Integer, Formato As String)
+ Private Sub ImprimeCorte(CveCorte As Integer, Formato As String, Optional CveSubProyecto As Integer = -1)
Dim ObjVenta As New ClsVentas
Dim ObjPuntoVenta As New ClsPuntoVenta
Dim DtCortesVentasResumen As DataTable = Nothing
Dim DtCortesVentas As DataTable = Nothing
Dim Fecha = "", Nombre = ""
- If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then
+ If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
DtCortesVentasResumen = ObjVenta.DtResultados
End If
- 'If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then
- ' DtCortesVentas = ObjPuntoVenta.DtResultados
- ' If DtCortesVentas.Rows.Count > 0 Then
- ' Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
- ' Fecha = RowInfo("FechaInicial").ToString
- ' Nombre = RowInfo("Nombre").ToString
- ' End If
- 'End If
+ If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+ DtCortesVentas = ObjPuntoVenta.DtResultados
+ If DtCortesVentas.Rows.Count > 0 Then
+ Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
+
+ Fecha = RowInfo("FechaInicial").ToString
+ Nombre = RowInfo("Nombre").ToString
+ End If
+ End If
+
ObjVenta.Dispose()
ObjPuntoVenta.Dispose()
Dim FechaCorte As String = $" Fecha fin: {Fecha}"
diff --git a/GPS/PalletEtiqueta2.rdlc b/GPS/PalletEtiqueta2.rdlc
index 07be03233..e75b2bc6e 100644
--- a/GPS/PalletEtiqueta2.rdlc
+++ b/GPS/PalletEtiqueta2.rdlc
@@ -657,7 +657,7 @@
- 0.49417cm
+ 0.25604cm
@@ -1101,7 +1101,7 @@
- 0.49417cm
+ 0.41479cm
@@ -1237,7 +1237,7 @@
- 0.54708cm
+ 0.44125cm
@@ -1354,7 +1354,7 @@
- 0.52062cm
+ 0.38833cm
@@ -1492,7 +1492,7 @@
- 0.36187cm
+ 0.3475cm
@@ -1622,7 +1622,7 @@
- 0.38833cm
+ 0.6cm
@@ -1753,7 +1753,7 @@
- 0.52062cm
+ 0.36187cm
@@ -1889,7 +1889,7 @@
- 0.44125cm
+ 0.17667cm
@@ -2144,7 +2144,7 @@
- 0.41479cm
+ 0.36187cm
@@ -2274,7 +2274,7 @@
- 0.41479cm
+ 0.62646cm
@@ -2658,7 +2658,7 @@
- 0.52062cm
+ 0.38833cm
@@ -2796,7 +2796,7 @@
- 0.44125cm
+ 0.38833cm
@@ -2926,7 +2926,7 @@
- 0.38833cm
+ 0.6cm
@@ -3193,7 +3193,7 @@
- 0.38833cm
+ 0.36187cm
@@ -3310,7 +3310,7 @@
- 0.46771cm
+ 0.44125cm
@@ -3448,7 +3448,7 @@
- 0.36187cm
+ 0.33542cm
@@ -3754,7 +3754,7 @@
0.0762cm
0.10266cm
- 13.18458cm
+ 12.50875cm
9.64969cm
- 5.34012in
+ 4.95471in