- mejoras

2023-12-07 16:37:01 -07:00
parent 0ff6653435
commit 0cdec84ac1
2 changed files with 258 additions and 0 deletions
--- a/Ventas/RepEntregasEcommerce.aspx.vb
+++ b/Ventas/RepEntregasEcommerce.aspx.vb
@@ -0,0 +1,139 @@
+Imports System.Data
+Imports Extensiones
+Imports iText.Barcodes.Dmcode
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Ventas_RepEntregasEcommerce
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaCombos()
+            CargaDatos()
+
+        End If
+    End Sub
+
+    Private Sub CargaCombos()
+        txtFechaI.Text = NowADS.AddDays(-3).ToShortDateString
+        txtFechaF.Text = NowADS.ToShortDateString
+    End Sub
+
+    Private Sub CargaDatos()
+
+        Dim FechaI, FechaF As Date
+        If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text.Trim.ToDate Else FechaI = MinFecha
+        If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text.Trim.ToDate Else FechaF = MaxFecha
+        Dim Obj As New ClsVentas
+        If Obj.GetEntregasEcommerce(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+            GvD.DataSource = Obj.DtResultados
+        End If
+        Obj.Dispose()
+        GvD.DataBind()
+        UPDatos.Update()
+    End Sub
+
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+
+
+
+#Region " I M P R I M I R   P D F"
+    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+        Dim EsVisibleColPagoProveedor As Boolean = False
+
+        If GvD.Columns(10).Visible Then
+            EsVisibleColPagoProveedor = True
+            GvD.Columns(10).Visible = False
+        End If
+
+        GenerarPDFpp("Excel")
+
+    End Sub
+    Protected Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click
+        GenerarPDFpp()
+    End Sub
+
+    Protected Sub LnkPDFSubProyecto_Click(sender As Object, e As EventArgs)
+        GenerarPDFpp(AgrupadoPorSubProyecto:=True)
+    End Sub
+    Protected Sub LnkExcelSubProyecto_Click(sender As Object, e As EventArgs)
+        Dim EsVisibleColPagoProveedor As Boolean = False
+
+        If GvD.Columns(10).Visible Then
+            EsVisibleColPagoProveedor = True
+            GvD.Columns(10).Visible = False
+        End If
+
+        GenerarPDFpp("Excel", True)
+
+        If EsVisibleColPagoProveedor Then
+            GvD.Columns(10).Visible = True
+        End If
+    End Sub
+
+    Private Sub GenerarPDFpp(Optional Formato As String = "PDF", Optional AgrupadoPorSubProyecto As Boolean = False)
+
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
+
+        'OBTENEMOS LOS DATOS
+
+        Dim DTpp As DataTable = Nothing
+
+
+        If DTpp.Rows.Count > 0 Then
+            Dim dr As DataRow = DTpp.Rows(0)
+            Dim params As New List(Of ReportParameter)
+            Dim Filtros As New StringBuilder
+            Filtros.Append("<b>Filtros </b>")
+            Dim ExistenFechas As Boolean = False
+
+            If txtFechaI.Text.Trim.Length > 0 Then
+                Filtros.Append($" Fecha Inicio: {txtFechaI.Text.Trim}")
+                ExistenFechas = True
+            End If
+
+
+            If txtFechaF.Text.Trim.Length > 0 Then
+                Filtros.Append($" Fecha Fin: {txtFechaF.Text.Trim}")
+                ExistenFechas = True
+            End If
+
+
+            If ExistenFechas Then
+                params.Add(New ReportParameter("AgrupadoPor", Filtros.ToString))
+            End If
+
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            ' params.Add(New ReportParameter("FechaInicio", FI))
+            '  params.Add(New ReportParameter("FechaFin", FF))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
+            ' params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}{FVI}{FVF}"))
+
+
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+            ImprimirPDF("Empresas/Grales/Formatos/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato)
+        Else
+            Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)
+        End If
+
+
+    End Sub
+
+    Private Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CvePS") = "" Then e.Row.CssClass = "SubTotales"
+        End If
+    End Sub
+
+
+#End Region
+
+
+
+End Class