Commit inicial Ventas Productivo

Ventas/RepRecuperacion.aspx.vb

@@ -0,0 +1,303 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.IO
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+Partial Class Ventas_RepRecuperacion
+    Inherits ClsPaginas
+
+#Region "P R O P I E D A D E S"
+    Private Property DtDatos As DataTable
+        Get
+            Return DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+    Private Property TipoCambio As Integer
+        Get
+            Return ViewState("TipoCambio").ToString.ToEntero
+        End Get
+
+        Set(value As Integer)
+            ViewState("TipoCambio") = value
+        End Set
+    End Property
+    Private Property TCEspecifico As Decimal
+        Get
+            Return ViewState("TCEspecifico").ToString.ToDecimal
+        End Get
+
+        Set(value As Decimal)
+            ViewState("TCEspecifico") = value
+        End Set
+    End Property
+    Private Property Agrupador As String
+        Get
+            Return ViewState("Agrupador").ToString
+        End Get
+
+        Set(value As String)
+            ViewState("Agrupador") = 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
+            CargaCombos()
+            CargaDatos()
+        End If
+    End Sub
+
+#Region "CARGAS"
+
+    Private Sub CargaCombos()
+        'Carga Clientes
+        If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
+            DdlClientes.setEsWebService(True)
+            DdlClientes.Attributes.Add("data-metodo", "getcliente")
+            DdlClientes.SelectedText = "Todos"
+            DdlClientes.SelectedValue = "-1"
+        Else
+            DdlClientes.setEsWebService(False)
+            DdlClientes.ddl.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+            DdlClientes.ddl.DataBind()
+            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+        'Carga SubProyectos
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        DdlSubProyecto.DataBind()
+
+        'Carga Vendedor
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+        DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
+        If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
+            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
+            DdlVendedor.Attributes.Add("disabled", "disabled")
+            DdlVendedor.Enabled = False
+        End If
+
+        'Carga Usuarios
+        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataBind()
+
+        'Carga Responsable
+        DdlResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        DdlResponsable.DataBind()
+
+        'Carga Bancos'
+        DdlBanco.DataSource = GlobalDTBancos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+        DdlBanco.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlBanco.DataBind()
+
+        'Carga Clasificacion Cliente'
+        Dim ObjCliente As New ClsClientes
+        If ObjCliente.GetClienteClasificacion(UsuarioActual.CveEmpresa) Then
+            DdlClienteClasificacion.DataSource = ObjCliente.DtResultados
+        End If
+        ObjCliente.Dispose()
+        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClienteClasificacion.DataBind()
+
+        txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
+        txtFechaF.Text = Now.ToShortDateString
+
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjMovtos As New ClsMovimientos()
+        If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
+            TCEspecifico = TxtEspecifico.Text.ToDecimal
+        Else
+            TCEspecifico = -1
+        End If
+
+        If ObjMovtos.GetRepRecuperacion(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
+                                        "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString,
+                                        EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero) Then
+            GvDatos.DataSource = ObjMovtos.DtResultados
+            DtDatos = ObjMovtos.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+        ObjMovtos.Dispose()
+        GvDatos.DataBind()
+        Agrupador = DdlGrupo.SelectedItem.Text
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+        UpDatos.Update()
+    End Sub
+
+#End Region
+
+#Region "GRIDVIEW"
+
+    Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim Css As String = "Texto"
+            Dim FechaI, FechaF As String
+            Dim CveClienteSucursal As Integer = -1
+            FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+            FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+
+            If e.Row.DBCampo("Orden") = "" Then
+                e.Row.CssClass = "Totales"
+            End If
+
+            If DdlGrupo.SelectedValue = "5" Then
+                CveClienteSucursal = e.Row.DBCampo("CveClienteSucursal").ToString.ToEntero
+                If e.Row.DBCampo("CveCliente").ToString.ToEntero <= 0 Then ' cuando es el total general.
+                    CveClienteSucursal = -1
+                End If
+            End If
+
+            Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}",
+                                              DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2)
+
+            e.Row.FCHyperLink("HplPagado").NavigateUrl = Liga4
+
+            Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}",
+                                              DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1)
+
+            e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
+
+        End If
+    End Sub
+
+#End Region
+
+#Region "SELECTED INDEX CHANGE"
+
+    Protected Sub DdlBanco_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DdlCuentaBancaria.Items.Clear()
+        If DdlBanco.SelectedValue.ToEntero > 0 Then
+            DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
+        End If
+        DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlCuentaBancaria.DataBind()
+    End Sub
+
+#End Region
+
+#Region "IMPRESIONES"
+
+    Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
+        Imprimir("PDF")
+    End Sub
+    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs)
+        Imprimir("EXCEL")
+    End Sub
+
+    Public Sub Imprimir(Formato As String)
+        If DtDatos IsNot Nothing Then
+            Dim StrFiltro As New StringBuilder
+            If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
+            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
+            If DdlSubProyecto.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Sucursal</b>: {0}", DdlSubProyecto.SelectedItem.Text)
+            If DdlGrupo.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text)
+            If DdlVendedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Vendedor</b>: {0}", DdlVendedor.SelectedItem.Text)
+            If DdlClientes.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientes.SelectedText)
+            If DdlClienteClasificacion.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Clasificación Cliente</b>: {0}", DdlClienteClasificacion.SelectedItem.Text)
+            If DdlBanco.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Banco</b>: {0}", DdlBanco.SelectedItem.Text)
+            If DdlCuentaBancaria.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cuenta Bancaria</b>: {0}", DdlCuentaBancaria.SelectedItem.Text)
+            If DdlTipoDocto.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Tipo Docto</b>: {0}", DdlTipoDocto.SelectedItem.Text)
+            If DdlEstatusCliente.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Estatus Cliente</b>: {0}", DdlEstatusCliente.SelectedItem.Text)
+            If DdlUsuario.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text)
+            If DdlResponsable.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Responsable</b>: {0}", DdlResponsable.SelectedItem.Text)
+
+            Dim RutaPDF As String
+            Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+            RutaPDF = $"{Ruta}\Formatos\RepRecuperacion.rdlc"
+            If Not File.Exists(RutaPDF) Then
+                RutaPDF = "Empresas/Grales/Formatos/RepRecuperacion.rdlc"
+            End If
+
+            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(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacion-{0}", Now.ToDateTime.ToShortDateString), Formato)
+        Else
+            Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+#End Region
+
+#Region "TIPO DE CAMBIO"
+
+    Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
+        TipoCambio = RblTipoCambio.SelectedValue.ToEntero
+        If TipoCambio = 3 Then
+            LiEspecifico.Visible = True
+            TCEspecifico = GlobalTipoCambio(Now).ToDecimal
+            TxtEspecifico.Text = TCEspecifico.ToString
+        Else
+            LiEspecifico.Visible = False
+        End If
+        UpBodyTipoCambio.Update()
+    End Sub
+
+    Private Sub BtnTipoCambio_Click(sender As Object, e As EventArgs) Handles BtnTipoCambio.Click
+        CargaDatos()
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio"))
+        UpDatos.Update()
+    End Sub
+
+#End Region
+
+#Region "GRAFICA"
+
+    Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
+        If Not DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
+            Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        LblTituloGrafica.Text = $"Agrupado por: {Agrupador}"
+        RegistraScript("$('#DivModalGrafica').modal('show')")
+        Dim Dt As New DataTable()
+        Dt.Columns.Add("gpo")
+        Dt.Columns.Add("vendido")
+        Dt.Columns.Add("pagado")
+        Dt.Columns.Add("moneda")
+        For Each Dr As DataRow In DtDatos.Rows
+            If Not Dr("Orden").ToString = "" Then
+                Dim Row As DataRow = Nothing
+                Row = Dt.NewRow()
+                Row("gpo") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+                Row("vendido") = Dr("Vendido").ToString.FormatoNumero
+                Row("pagado") = Dr("Pagado").ToString.FormatoNumero
+                Row("moneda") = Dr("Moneda").ToString
+                Dt.Rows.Add(Row)
+            End If
+        Next
+
+        Dim query = From s In Dt.AsEnumerable() Select New With {.gpo = s("gpo").ToString(), .vendido = s("vendido").ToString().ToDouble(), .pagado = s("pagado").ToString().ToDouble, .moneda = s("moneda").ToString()}
+        Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
+        RegistraScript($"CargaGraficaCompracion({json})", "22")
+        UPModalProd.Update()
+    End Sub
+
+
+#End Region
+
+
+End Class