diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 97fa6005b..1434d1e14 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -229,11 +229,13 @@ Partial Class PopUpVerFactura If Request("onlyPrint").ToString() = "Recibo" Then ReciboAgropecuaria() End If - If Request("onlyPrint").ToString() = "CitrusInventarioDiario" Then - imprimirRepcitrusInventarioDiario("") + If Request("onlyPrint").ToString() = "CitrusInventarioDiario" AndAlso Not IsNothing(Request("fecha")) Then + imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "PDF") + End If + If Request("onlyPrint").ToString() = "CitrusInventarioDiarioxls" AndAlso Not IsNothing(Request("fecha")) Then + imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "Excel") End If End If - End If End Sub @@ -340,10 +342,11 @@ Partial Class PopUpVerFactura End Sub - Private Sub imprimirRepcitrusInventarioDiario(fecha As String) + Private Sub imprimirRepcitrusInventarioDiario(fecha As String, formato As String) Dim totalPallets As String = "" Dim totalBachas As String = "" - Dim fechas As String = "" + Dim dfec As DateTime = fecha.ToDateTime() + Dim fechas As String = String.Format(New System.Globalization.CultureInfo("es-MX"), "{0:dd} de {0:MMMM} del {0:yyyy}", dfec) Dim totalcajas As String = "" Dim TotalBins As String = "" @@ -352,13 +355,13 @@ Partial Class PopUpVerFactura Dim tablaReporteBins As New DataTable Using objnom As New ClsCGame - If objnom.REPInventarioDiarioPallets(DateTime.Now, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then + If objnom.REPInventarioDiarioPallets(dfec, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then tablaReportePallets = objnom.DtResultados totalPallets = tablaReportePallets.SUM("Pallets", "GroupId =1").FormatoNumero(0) totalBachas = tablaReportePallets.SUM("Bachas", "GroupId =1").FormatoNumero(0) totalcajas = tablaReportePallets.SUM("CajasTotal", "GroupId =1").FormatoNumero(0) End If - If objnom.REPInventarioDiarioBins(DateTime.Now, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then + If objnom.REPInventarioDiarioBins(dfec, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then tablaReporteBins = objnom.DtResultados TotalBins = tablaReporteBins.SUM("Bins").FormatoNumero(0) End If @@ -379,7 +382,7 @@ Partial Class PopUpVerFactura '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc" - ImprimirPDF(rutardlc, lrds, params, "Inventario") ', Content_Disposition:="Inline") + ImprimirPDF(rutardlc, lrds, params, "Inventario", formato) ', Content_Disposition:="Inline") End Sub diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index d1b638a99..5cfad66e1 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -820,6 +820,7 @@