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