VyA.2024.10.04

Ventas/RepPedidosSTF.aspx.vb

@@ -65,6 +65,12 @@ Partial Class Ventas_RepPedidosSTF
     End Sub
 
     Protected Sub CargaDatos()
+        LnkImprimirPedidos.Visible = False
+        LnkImprimirPedidosExcel.Visible = False
+
+
+
+        DatosGV = New DataTable
 
         Dim Opcion As Integer = 1
         Dim FechaInicio As Date = MinFecha
@@ -99,6 +105,7 @@ Partial Class Ventas_RepPedidosSTF
                 GvDatos.DataSource = DatosGV
                 If DatosGV IsNot Nothing AndAlso DatosGV.Rows.Count > 0 Then
                     LnkImprimirPedidos.Visible = True
+                    LnkImprimirPedidosExcel.Visible = True
                 End If
             End If
             ObjVentas.Dispose()
@@ -372,7 +379,15 @@ Partial Class Ventas_RepPedidosSTF
     End Sub
 
     Protected Sub LnkImprimirPedidos_Click(sender As Object, e As EventArgs)
+        ImprimirReporte("PDF")
+    End Sub
 
+    Protected Sub LnkImprimirPedidosExcel_Click(sender As Object, e As EventArgs)
+        ImprimirReporte("Excel")
+    End Sub
+
+
+    Private Sub ImprimirReporte(Formato As String)
         Dim FechaI As String = txtFechaI.Text
         Dim FechaF As String = txtFechaF.Text
         If txtFechaI.Text = "" Then FechaI = "-1"
@@ -408,13 +423,13 @@ Partial Class Ventas_RepPedidosSTF
 
 
 
-            ImprimirPDF("Empresas/Grales/Formatos/RepPedidos.rdlc", DatosGV, params, "ReportePedidos")
+            ImprimirPDF("Empresas/Grales/Formatos/RepPedidos.rdlc", DatosGV, params, "ReportePedidos", Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
-
     End Sub
 
+
     Protected Sub BtnEditarHorariosPedidos_Click(sender As Object, e As EventArgs)
         Dim objSisEmpresas As New ClsSisEmpresas
         If objSisEmpresas.UpdateEmpresaFuncionalidad(546, $"{TxtHorarioDe.Text}|{TxtHorarioA.Text}", UsuarioActual.CveEmpresa) Then