Commit inicial Ventas Productivo

Contratos/Contratos.aspx.vb

@@ -0,0 +1,114 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Contratos_Contratos
+    Inherits ClsPaginas
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            InicializaValores()
+        End If
+    End Sub
+
+
+#Region " Inicializa Valores "
+    Private Sub InicializaValores()
+        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+        DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClientes.DataBind()
+
+        DdlTipo.DataSource = GlobalDTContratosTipos().FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa}")
+        DdlTipo.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlTipo.DataBind()
+
+        Dim CveEstatusVigente = -1
+        Dim ObjContratos As New ClsContratos
+        ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa)
+        DdlEstatus.DataSource = ObjContratos.DtResultados
+        CveEstatusVigente = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus = 1", Orderby:="CveContratoEstatus").ToEntero
+        DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlEstatus.DataBind()
+
+        DdlEstatus.SelectedValueExist(If(CveEstatusVigente > 0, CveEstatusVigente, -1))
+        ObjContratos.Dispose()
+
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+
+        CargaDatos()
+    End Sub
+#End Region
+
+
+#Region " CARGA DATOS "
+    Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs) Handles BtnFiltrar.Click
+        CargaDatos()
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjContratos As New ClsContratos
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, TipoContrato:=DdlTipo.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero) Then
+
+            GvDatos.DataSource = ObjContratos.DtResultados
+        Else
+            Me.GvDatos.DataSource = Nothing
+        End If
+
+        ObjContratos.Dispose()
+        GvDatos.DataBind()
+        UpTitulos.Update()
+    End Sub
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            'If e.Row.DBCampo("Estatus").ToString = "True" Then
+            '    e.Row.Cells(7).Text = "Activo"
+            'Else
+            '    e.Row.Cells(7).Text = "Inactivo"
+            'End If
+        End If
+    End Sub
+#End Region
+
+#Region "I M P R I M I R  <i class='fa fa-print'></i>"
+    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+        GvDatos.ExportToExcel("ReporteCompras" & Now.ToShortDateString)
+    End Sub
+
+    Private Sub GenerarPDF()
+        Dim ObjContratos As New ClsContratos
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, TipoContrato:=DdlTipo.SelectedValue.ToEntero) Then
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            Dim dt As DataTable = ObjContratos.DtResultados
+            Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b>&nbsp;{DdlClientes.SelectedItem.Text}")
+            Dim Estatus = ($"&emsp;<b>Estatus:</b>&nbsp;{DdlEstatus.SelectedItem.Text}")
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("FechaInicio", "-1"))
+            params.Add(New ReportParameter("FechaFin", "-1"))
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Cliente}{Estatus}"))
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+            ImprimirPDF("Empresas/Grales/Formatos/RepContratos.rdlc", dt, params, "ReporteContratos")
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+
+    End Sub
+    Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+        GenerarPDF()
+    End Sub
+#End Region
+
+
+End Class