Commit inicial Ventas Productivo

Inventarios/RepApartados.aspx.vb

@@ -0,0 +1,232 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Inventarios_RepApartados
+    Inherits ClsPaginas
+
+
+#Region "  PROPIEDADES  "
+    Private Property DtApartados As DataTable
+        Get
+            Return DirectCast(ViewState("DtApartados"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtApartados") = value
+        End Set
+    End Property
+#End Region
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            SetValues()
+            InicializaParam()
+        End If
+    End Sub
+
+
+#Region "  SET VALUES  "
+    Private Sub SetValues()
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem(" Todas ", "-1"))
+
+        If UsuarioActual.CveEmpresa = 119 Then
+            DdlClientesWS.setEsWebService(True)
+        Else
+            DdlClientesWS.setEsWebService(False)
+            DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClientesWS.DataBind()
+            DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+        Dim DTVendedores As New DataTable
+        DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
+        DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
+        DdlVendedor.DataSource = DTVendedores
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1"))
+
+        'FUNCIONALIDAD 105
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+            DdlPS.setEsWebService(True)
+        Else
+            DdlPS.setEsWebService(False)
+
+            'FUNCIONALIDAD DE COMPUESTO
+            If UsuarioActual.Empresa.Funcionalidad(143) = "1" Then
+                DdlPS.ddl.DataTextField = "PSCodigoCompuesto"
+            End If
+
+            DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            DdlPS.DataBind()
+        End If
+
+        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
+        txtFechaF.Text = Now.ToShortDateString
+    End Sub
+#End Region
+
+    Private Sub InicializaParam()
+        Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF As String
+        Dim CveCliente, CveVendedor, CveSucursal, CvePS As String
+
+        Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString
+        Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString
+        AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
+        Fecha = If(Request("Fecha") IsNot Nothing, Request("Fecha").ToString, "-1").ToString
+        FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
+        FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString
+
+        CveCliente = If(Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToEntero() > 0, Request("CveCliente").ToEntero(), -1).ToString
+        CveVendedor = If(Request("CveVendedor") IsNot Nothing AndAlso Request("CveVendedor").ToEntero() > 0, Request("CveVendedor").ToEntero(), -1).ToString
+        CveSucursal = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString
+        CvePS = If(Request("CvePS") IsNot Nothing AndAlso Request("CvePS").ToEntero() > 0, Request("CvePS").ToEntero(), -1).ToString
+
+        If FechaF <> "-1" Then
+            txtFechaF.Text = FechaF
+        End If
+        If FechaI <> "-1" Then
+            txtFechaI.Text = FechaI
+        End If
+
+        txtFechaI.Text = If(Anio <> "-1", String.Format("01/01/{0}", Anio), txtFechaI.Text)
+        txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
+
+        Dim sMes As String
+        Dim sAnio As String = If(AnioMes <> "-1", AnioMes.Substring(0, 4), "")
+
+        If AnioMes.Trim.Length = 7 Then
+            sMes = AnioMes.Substring(5, 2).ToEntero.ToString("00")
+        Else
+            sMes = If(AnioMes <> "-1", AnioMes.Substring(5, 1).ToEntero.ToString("00"), "")
+        End If
+
+        txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", sMes, sAnio), txtFechaI.Text)
+
+        If Anio <> "-1" Then
+            txtFechaF.Text = String.Format("31/12/{0}", Anio)
+        ElseIf Mes <> "-1" Then
+            txtFechaF.Text = String.Format("{0}/{1}/{2}", txtFechaI.Text.ToDate.LastDayOfMonth.Day, Mes, Now.Year)
+        ElseIf AnioMes <> "-1" Then
+            txtFechaF.Text = txtFechaI.Text.ToDate.LastDayOfMonth.ToShortDateString
+        End If
+
+        If Fecha <> "-1" Then
+            txtFechaI.Text = Fecha
+            txtFechaF.Text = Fecha
+        End If
+
+        If CveCliente <> "-1" Then
+            DdlClientesWS.SelectedValue = CveCliente
+            DdlClientesWS.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NombreComercial", $"CveCliente ={CveCliente}")
+        Else
+            DdlClientesWS.SelectedValue = CveCliente
+            DdlClientesWS.SelectedText = "Todos"
+        End If
+
+        DdlVendedor.SelectedValueExist(CveVendedor)
+        DdlSubProyectos.SelectedValueExist(CveSucursal)
+        'DdlPS.ddl.SelectedValueExist(CvePS)
+        DdlPS.SelectedValue = CvePS
+        If CvePS <> "-1" Then
+            DdlPS.SelectedValue = CvePS
+            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS.ToEntero)(0)("PSCodigo").ToString
+        Else
+            DdlPS.SelectedValue = CvePS
+            DdlPS.SelectedText = "Todos"
+        End If
+
+        If Anio <> "-1" Or Mes <> "-1" Or AnioMes <> "-1" Or Fecha <> "-1" Or FechaI <> "-1" Or FechaF <> "-1" Or CveCliente <> "-1" Or CveVendedor <> "-1" Or CveSucursal <> "-1" Or CvePS <> "-1" Then
+            CargaDatos()
+        End If
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim CveAlmacenApartado = -1
+        If DdlSubProyectos.SelectedValue.ToEntero > 0 Then
+            CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) And Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectos.SelectedValue.ToEntero}").ToEntero
+            If CveAlmacenApartado <= 0 Then
+                Alert("No se encontro el almacen de Apartado de la sucursal seleccionada. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.ApartadosRep(CveAlmacenApartado, DdlClientesWS.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate) Then
+            GvDatos.DataSource = ObjInventarios.DtResultados
+            DtApartados = ObjInventarios.DtResultados
+            GvDatos.DataBind()
+            UpDatos.Update()
+        End If
+        ObjInventarios.Dispose()
+    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("IDGPO").ToString.ToEntero = 1 Then
+                e.Row.CssClass = "Totales"
+            End If
+
+            If e.Row.DBCampo("IDGPO").ToString.ToEntero = 2 Then
+                e.Row.CssClass = "SubTotales2"
+            End If
+
+            If e.Row.DBCampo("IDGPO").ToString.ToEntero = 3 Then
+
+            End If
+
+        End If
+    End Sub
+
+#Region "PDF"
+
+    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+        If DtApartados IsNot Nothing Then
+            Dim StrFiltro As New StringBuilder
+
+            If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio:</b>&nbsp;{0}", txtFechaI.Text)
+            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin:</b>&nbsp;{0}", txtFechaF.Text)
+
+            If DdlSubProyectos.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Sucursal:</b> {0}", DdlSubProyectos.SelectedItem.Text)
+            If DdlVendedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Vendedor:</b> {0}", DdlVendedor.SelectedItem.Text)
+            If DdlClientesWS.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente:</b> {0}", DdlClientesWS.SelectedText)
+            If DdlPS.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Producto/Servicio:</b> {0}", DdlPS.SelectedText)
+
+            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 params As New List(Of ReportParameter)
+            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("Filtros", StrFiltro.ToString))
+
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+
+            ImprimirPDF("Empresas/Grales/Formatos/RepApartados.rdlc", DtApartados, params, String.Format("ReporteApartados-{0}", Now.ToDateTime.ToShortDateString))
+
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        GvDatos.ExportToExcel("Reporte de Apartados" & Now.ToShortDateString)
+    End Sub
+
+#End Region
+End Class