Commit inicial Ventas Productivo

Ventas/PopUpBuscarFolio.aspx.vb

@@ -0,0 +1,268 @@
+Option Explicit On
+Option Strict On
+Imports System.Data
+Imports Extensiones
+Partial Class PopUpBuscarFolio
+    Inherits ClsPaginas
+
+    Private ReadOnly Property Ruta As String
+        Get
+            Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+        End Get
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
+
+            CType(Me.Master, BaseMasterPage).EsPopup = True
+            CType(Me.Master, BaseMasterPage).PopupWidth = 800
+            txtFechaI.Text = Now.AddMonths(-12).ToShortDateString
+            'RegistraScript("$get('tdContenido').style.height='500px'")
+            CargaSubProyectos()
+            CargaEstatus()
+            CargaUsuarios()
+            CargaNombreClientes()
+            CargaClasificaciones()
+            CargaPS(-1)
+            'CargaCodigoCliente()
+        End If
+    End Sub
+
+    Private Sub CargaNombreClientes()
+        DdlNombre.setEsWebService(True)
+        DdlNombre.Attributes.Add("data-metodo", "getcliente")
+
+        'DdlNombre.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlNombre.DataBind()
+        'DdlNombre.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaSubProyectos()
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        DdlSubProyecto.DataBind()
+    End Sub
+
+
+    Private Sub CargaUsuarios()
+        DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlUsuario.DataBind()
+    End Sub
+
+    Private Sub CargaClasificaciones()
+        If UsuarioActual.Empresa.UsaAC Then
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        Else
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+        End If
+        'DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataBind()
+    End Sub
+
+    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+        CargaPS(DdlClasificacion.SelectedValue.ToEntero)
+        UPPS.Update()
+    End Sub
+
+    Private Sub CargaPS(CveClasificacion As Integer)
+        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+            DdlPS.SelectedText = ""
+            DdlPS.SelectedValue = "-1"
+        Else
+            DdlPS.ddl.Items.Clear()
+            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion)
+            DdlPS.ddl.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        End If
+
+    End Sub
+
+
+    'Private Sub CargaCodigoCliente()
+    '    DdlCodigoCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> ''")
+    '    DdlCodigoCliente.DataBind()
+    'End Sub
+
+    Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
+
+        Dim ObjVentas As New ClsVentas()
+
+        Dim Serie As String = "-1"
+        Dim Folio As Integer = -1
+        Dim Codigo As String = "-1"
+        Dim Cliente As String = "-1"
+        Dim FechaI As String = "-1"
+        Dim FechaF As String = "-1"
+        Dim FolioFiscal As String = "-1"
+        Dim PeidoContrato As String = "-1"
+        Dim OrdenCompra As String = "-1"
+
+        If TxtFolio.Text.Trim.Length = 0 Then
+            Serie = "-1"
+            Folio = -1
+        Else
+            Dim Array() As String = TxtFolio.Text.Trim.Split(CChar("-"))
+
+            If Array.Length = 2 Then
+                Serie = Array(0)
+                Folio = Array(1).ToEntero
+            Else
+                Serie = "-1"
+                Folio = TxtFolio.Text.Trim.ToEntero
+            End If
+        End If
+
+        Codigo = "-1"    'If(DdlCodigoCliente.SelectedValue.ToEntero > 0, DdlCodigoCliente.SelectedItem.ToString, "-1")
+        Cliente = If(DdlNombre.SelectedValue.ToEntero > 0, DdlNombre.SelectedValue, "-1")
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        FolioFiscal = If(TxtFolioFiscal.Text.Trim.Length = 0, "-1", TxtFolioFiscal.Text.Trim)
+        PeidoContrato = If(TxtPedidoContrato.Text.Length = 0, "-1", TxtPedidoContrato.Text.Trim)
+        OrdenCompra = If(TxtOrdenCompra.Text.Length = 0, "-1", TxtOrdenCompra.Text.Trim)
+
+        If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Serie, Folio, Codigo, Cliente.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusFactura.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, FechaI, FechaF, FolioFiscal, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedValue.ToEntero, -1), DdlPS.SelectedValue.ToEntero, PedidoContrato:=PeidoContrato, OrdenCompra:=OrdenCompra, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
+                LtlTotalRegistros.Text = ObjVentas.DtResultados.Rows.Count.ToString.FormatoNumero(0)
+                GV.DataSource = ObjVentas.DtResultados
+            Else
+                LtlTotalRegistros.Text = "0"
+                GV.DataSource = Nothing
+                Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+
+        ObjVentas.Dispose()
+        GV.DataBind()
+
+        UPDatos.Update()
+
+        TblBusqueda.Visible = True
+    End Sub
+
+    Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            'If e.Row.RowIndex = 0 Then
+            '    e.Row.Cells(0).Width = Unit.Pixel(38)
+            '    e.Row.Cells(1).Width = Unit.Pixel(65)
+            '    e.Row.Cells(2).Width = Unit.Pixel(70)
+            '    e.Row.Cells(3).Width = Unit.Pixel(250)
+            '    'e.Row.Cells(4).Width = Unit.Pixel(75)
+            '    e.Row.Cells(4).Width = Unit.Pixel(75)
+            '    e.Row.Cells(5).Width = Unit.Pixel(100)
+            '    e.Row.Cells(6).Width = Unit.Pixel(100)
+            'End If
+            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
+            'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
+            e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
+
+            Dim Liga As String = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveVenta"))
+            e.Row.FCLiteral("LtlTipo").Text = String.Format("<div class='truncate' style='width:27px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto"))
+            e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio"))
+            e.Row.FCLiteral("LtlFecha").Text = String.Format("<div class='truncate' style='width:64px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString)
+            e.Row.FCLiteral("LtlNombre").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Nombre"))
+            'e.Row.FCLiteral("LtlSubTotal").Text = Liga & e.Row.DBCampo("SubTotal").FormatoNumero & "&nbsp;</a>"
+            e.Row.FCLiteral("LtlTotal").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Total").FormatoNumero)
+            e.Row.FCLiteral("LtlSucursal").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("SubProyecto"))
+            e.Row.FCLiteral("LtlEstatus").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("EstatusFactura"))
+            e.Row.FCLiteral("LtlPedidoContrato").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("PedidoContrato"))
+            If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.xml") Then
+                e.Row.FCLiteral("LtlXML").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Empresas/{0}/XML/{1}/{2}.xml"">XML</a></div>", UsuarioActual.CveEmpresa, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
+            Else
+                e.Row.FCLiteral("LtlXML").Text = "<div class='truncate' style='width:23px;'></div>"
+            End If
+            If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then
+                e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank"" href=""/Empresas/{0}/PDF/{1}/{2}.pdf"">PDF</a></div>", UsuarioActual.CveEmpresa, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
+            Else
+                e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>"
+            End If
+
+        End If
+    End Sub
+
+    'Private Sub DdlNombre_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlNombre.SelectedIndexChanged
+    '    DdlSucursalCliente.Items.Clear()
+    '    If DdlNombre.SelectedValue.ToEntero > 0 Then
+    '        Dim ObjCliente As New ClsClientes()
+
+    '        If ObjCliente.GetSucursales(DdlNombre.SelectedValue.ToEntero) Then
+    '            DdlSucursalCliente.DataSource = ObjCliente.DtResultados
+    '            If ObjCliente.DtResultados.Rows.Count > 0 Then
+    '                LitSucursalCliente.Visible = True
+    '                DdlSucursalCliente.Visible = True
+    '            Else
+    '                LitSucursalCliente.Visible = False
+    '                DdlSucursalCliente.Visible = False
+    '            End If
+    '        Else
+    '            DdlSucursalCliente.DataSource = Nothing
+    '            LitSucursalCliente.Visible = False
+    '            DdlSucursalCliente.Visible = False
+    '        End If
+    '        ObjCliente.Dispose()
+    '        DdlSucursalCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+    '        DdlSucursalCliente.DataBind()
+    '        UPFiltros.Update()
+    '    End If
+
+    'End Sub
+
+    Protected Sub DdlNombre_selectedindexchange(sender As Object, e As EventArgs)
+        DdlSucursalCliente.Items.Clear()
+        If DdlNombre.SelectedValue.ToEntero > 0 Then
+            Dim ObjCliente As New ClsClientes()
+
+            If ObjCliente.GetSucursales(DdlNombre.SelectedValue.ToEntero) Then
+                DdlSucursalCliente.DataSource = ObjCliente.DtResultados
+                If ObjCliente.DtResultados.Rows.Count > 0 Then
+                    LitSucursalCliente.Visible = True
+                    DdlSucursalCliente.Visible = True
+                Else
+                    LitSucursalCliente.Visible = False
+                    DdlSucursalCliente.Visible = False
+                End If
+            Else
+                DdlSucursalCliente.DataSource = Nothing
+                LitSucursalCliente.Visible = False
+                DdlSucursalCliente.Visible = False
+            End If
+            ObjCliente.Dispose()
+            DdlSucursalCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSucursalCliente.DataBind()
+            UPFiltros.Update()
+        End If
+    End Sub
+
+    Protected Sub DdlPS_selectedindexchange(sender As Object, e As EventArgs)
+        If DdlPS.SelectedValue.ToEntero > 0 Then
+            Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+            If PS IsNot Nothing Then
+                If DdlClasificacion.SelectedIndex = 0 Then
+                    If PS("CveClasificacion").ToString IsNot Nothing Then
+                        DdlClasificacion.SelectedValueExist(PS("CveClasificacion").ToString)
+                    Else
+                        Alert("El Productos/Servicio no tiene asignada una Clasificación.")
+                    End If
+
+                End If
+            End If
+        End If
+        UPPS.Update()
+    End Sub
+    Protected Sub DdlTipoDocto_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaEstatus()
+    End Sub
+
+    Private Sub CargaEstatus()
+        DdlEstatusFactura.Items.Clear()
+        If DdlTipoDocto.SelectedValue <> "-1" Then
+            DdlEstatusFactura.DataSource = GlobalDTEstatusFactura.FiltraParametros($"TipoDocto = '{DdlTipoDocto.SelectedValue}' OR ('Cot' = '{DdlTipoDocto.SelectedValue}' AND CveEstatusFactura = 2)")
+        Else
+            DdlEstatusFactura.DataSource = GlobalDTEstatusFactura
+        End If
+        DdlEstatusFactura.Items.Add(New ListItem("Todos", "-1"))
+        DdlEstatusFactura.DataBind()
+    End Sub
+End Class