Commit inicial Ventas Productivo

OC/RepOCGuias.aspx.vb

@@ -0,0 +1,156 @@
+Option Explicit On
+Option Strict On
+
+Imports Microsoft.Reporting.WebForms
+Imports System.Data
+Imports Extensiones
+Partial Class OC_RepOCGuias
+    Inherits ClsPaginas
+
+#Region "  PROPIEDADES  "
+    Property DTDatos As DataTable
+        Get
+            If ViewState("DTDatos") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTDatos"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDatos") = value
+        End Set
+    End Property
+#End Region
+
+
+    Private Sub OC_RepOCGuias_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            InicializaValores()
+            CargaDatos()
+
+        End If
+    End Sub
+
+#Region "  INICIALIZA VALORES  "
+    Private Sub InicializaValores()
+        txtFechaI.Text = Now.AddDays(-10).ToShortDateString
+        txtFechaF.Text = Now.ToShortDateString
+
+        Select Case UsuarioActual.Empresa.Tipo_CentroCosto
+            Case 1
+                LtCC.Text = "Sucursal"
+            Case 2
+                LtCC.Text = "Proyecto"
+            Case 3
+                LtCC.Text = "SubProyecto"
+        End Select
+
+        CargaProveedores()
+        CargaClientes()
+        CargaVendedores()
+        CargaSubProyectos()
+    End Sub
+
+    Private Sub CargaCombos()
+        CargaProveedores()
+        CargaClientes()
+        CargaVendedores()
+    End Sub
+
+    Protected Sub CargaProveedores()
+        ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        ddlProveedor.DataBind()
+        ddlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+    Protected Sub CargaClientes()
+
+        Ddlcliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        Ddlcliente.DataBind()
+        Ddlcliente.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaVendedores()
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+        UPFiltros.Update()
+    End Sub
+
+    Private Sub CargaSubProyectos()
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubproyecto.DataBind()
+        DdlSubproyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+#End Region
+
+
+#Region "  CARGA DATOS  "
+    Protected Sub BtnConsultar_Click1(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjOC As New ClsOC
+        If ObjOC.GetRepOCGuias(txtFechaI.Text.ToDate.ToString("dd/MM/yyyy"), txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), ddlProveedor.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, Ddlcliente.SelectedValue.ToEntero, DdlSubproyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            DTDatos = ObjOC.DtResultados
+            GvDatos.DataSource = DTDatos
+        Else
+            DTDatos = Nothing
+            GvDatos.DataSource = DTDatos
+        End If
+        ObjOC.Dispose()
+        GvDatos.DataBind()
+
+        Select Case UsuarioActual.Empresa.Tipo_CentroCosto
+            Case 1
+                GvDatos.HeaderRow.Cells(3).Text = "Sucursal"
+            Case 2
+                GvDatos.HeaderRow.Cells(3).Text = "Proyecto"
+            Case 3
+                GvDatos.HeaderRow.Cells(3).Text = "SubProyecto"
+        End Select
+
+        UpDatos.Update()
+    End Sub
+#End Region
+
+
+#Region "I M P R I M I R   P D F/Excel"
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+        GenerarPDF("Excel")
+    End Sub
+    Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
+        GenerarPDF()
+    End Sub
+
+    Private Sub GenerarPDF(Optional Formato As String = "PDF")
+        Dim ObjTareas As New ClsOIEventos
+
+        Dim params As New List(Of ReportParameter)
+        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 Filtros As String = "<b>Filtros: </b> "
+        'params.Add(New ReportParameter("AgrupadoPor", Filtros))
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        'params.Add(New ReportParameter("FechaInicio", FechaI))
+        'params.Add(New ReportParameter("FechaFin", FechaF))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+        ImprimirPDF("Empresas\Grales\Formatos\RepOCGuias.rdlc", DTDatos, params, $"RepOCGuias_{Now.ToString("yyyyMMddmmss")}", Formato:=Formato)
+    End Sub
+
+#End Region
+
+
+
+End Class