VyA.2024.10.04

Ventas/Promociones.aspx.vb

@@ -1365,6 +1365,8 @@ Partial Class Ventas_Promociones
         CargaGrid()
         RegistraScript("$('#DivAgregarPlantilla').modal('hide')")
 
+        ValidaPromosiones(True)
+
     End Sub
 
     Private Function ValidaDTPlantilla(ByRef DTPlantilla As DataTable) As Boolean

Ventas/RepPedidosSTF.aspx

@@ -24,12 +24,16 @@
             <li>
                 <asp:LinkButton ID="LnkImprimirPedidos" runat="server" Visible="false" OnClick="LnkImprimirPedidos_Click"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Imprimir Pedidos</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkImprimirPedidosExcel" runat="server" Visible="false" OnClick="LnkImprimirPedidosExcel_Click"> <i class="fa fa-file-excel-o" aria-hidden="true" style="font-weight:bold;"></i> Excel Pedidos</asp:LinkButton>
+            </li>
             <li>
                 <asp:LinkButton runat="server" ID="BtnHorariosPedidos" OnClick="BtnHorariosPedidos_Click" data-toggle="tooltip" data-placement="left" title="Agregar Horario" Text="Horarios de Pedidos"></asp:LinkButton>
             </li>
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkImprimirPedidos" />
+            <asp:PostBackTrigger ControlID="LnkImprimirPedidosExcel" />
         </Triggers>
     </asp:UpdatePanel>
 

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