SIG/Ventas/RepCotizacionesxFacturar.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones
Partial Class RepCotizacionesxFacturar
    Inherits ClsPaginas

#Region "PROPIEDADES"
    Private Property FechaI As String
        Get
            Return ViewState("FechaI").ToString
        End Get
        Set(value As String)
            ViewState("FechaI") = value
        End Set
    End Property
    Private Property FechaF As String
        Get
            Return ViewState("FechaF").ToString
        End Get
        Set(value As String)
            ViewState("FechaF") = value
        End Set
    End Property
    Private Property CveCliente As Integer
        Get
            Return ViewState("CveCliente").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCliente") = value
        End Set
    End Property
    Private Property Sucursales As String
        Get
            Return ViewState("Sucursales").ToString
        End Get
        Set(value As String)
            ViewState("Sucursales") = value
        End Set
    End Property
    Private Property DtVentas As DataTable
        Get
            Return DirectCast(ViewState("DtVentas"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtVentas") = value
        End Set
    End Property

#End Region
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            txtFechaI.Text = NowADS().ToShortDateString
            txtFechaF.Text = NowADS().ToShortDateString
            CargaCombos()
            CargaDatos()
            OrdenaDatos()

        End If
    End Sub

#Region " C A R G A - D A T O S "
    Public Sub CargaDatos()
        Dim ObjVentas As New ClsVentas

        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString)
        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString)
        CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)

        Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
        Dim Vendedores As String = If(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM)

        If ObjVentas.GetRepCotizacionesSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, Vendedores, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveEstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            DtVentas = ObjVentas.DtResultados
            GvDatos.DataBind()
            UPDatos.Update()
        End If

        ObjVentas.Dispose()
    End Sub
#End Region

#Region "O R D E N A M I E N T O"
    Private Sub OrdenaDatos()
        'If (GvDatos.Rows.Count > 0) Then
        '    GvDatos.UseAccessibleHeader = True
        '    GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
        '    RegistraScript("OrdenarGV();")
        'End If
    End Sub
#End Region

#Region "G V - D A T O S "
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.DBCampo("CveCliente") = "" Then
                e.Row.CssClass = "Totales"
            ElseIf e.Row.DBCampo("CveVenta") = "" Then
                e.Row.CssClass = "SubTotales2"
                e.Row.Font.Bold = True
                e.Row.Attributes.Add("style", "background:#CCCCCC !important")
            Else
                e.Row.FCLiteral("LtlFolio").Text = "<a class=""Texto"" target=""_blank"" href=""/Ventas/Ventas.aspx?CveVenta=" & e.Row.DBCampo("CveVenta") & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"

                If e.Row.DBCampo("FechaVencimiento").ToDate < NowADS() Then
                    ' e.Row.Cells(2).CssClass = "danger"
                    e.Row.Cells(2).ForeColor = Drawing.Color.Red
                End If

                e.Row.Cells(6).Text = e.Row.Cells(6).Text + "%"
            End If

        End If
    End Sub
#End Region

#Region "CARGA COMBOS FILTRO"
    Private Sub CargaCombos()
        'CargaClientes
        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
        If EsWS Then
            DdlClientes.setEsWebService(True)
        Else
            DdlClientes.setEsWebService(False)
            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
            DdlClientes.DataBind()
            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
        End If

        'Vendedor
        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
        DdlVendedor.DataBind()
        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))

        If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
            DdlVendedor.SelectedValuesIfExistM(UsuarioActual.CveVendedor.ToString())
            DdlVendedor.Attributes.Add("disabled", "disabled")
            DdlVendedor.Enabled = False
        End If

        DdlSubProyectos.DataSource() = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
        DdlSubProyectos.DataBind()
        'DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))

        'DdlEstatusFactura.DataSource = GlobalDTEstatusFactura().FiltraParametros("TipoDocto = 'Cot'")
        'DdlEstatusFactura.DataBind()
        DdlEstatusFactura.Items.Add(New ListItem("Registrada", "2"))
        DdlEstatusFactura.Items.Add(New ListItem("Supervisada", "8"))
        DdlEstatusFactura.Items.Add(New ListItem("Cancelada", "10"))
        DdlEstatusFactura.Items.Insert(0, New ListItem("Todos", "-1"))

    End Sub
#End Region

#Region "PDF"
    'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
    '    If DtVentas IsNot Nothing Then
    '        Dim StrFiltro As New StringBuilder
    '        If DdlSubProyectos.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Sucursal</b>: {0}", DdlSubProyectos.GetSelectedText)
    '        If DdlClientes.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientes.SelectedText)
    '        'If DdlContrato.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Contrato</b>: {0}", DdlContrato.SelectedItem.Text)

    '        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)

    '        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
    '        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

    '        Dim FechaI, FechaF As String
    '        FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
    '        FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)

    '        Dim params As New List(Of ReportParameter)
    '        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", NowADS().ToDateTime.ToShortDateString))
    '        params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
    '        If Imagen.Exists Then
    '            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
    '        Else
    '            params.Add(New ReportParameter("LogoPath", ""))
    '        End If
    '        ImprimirPDF("Empresas/Grales/Formatos/RepRemisiones.rdlc", DtVentas, params, String.Format("ReporteRemisiones-{0}", NowADS().ToDateTime.ToShortDateString))
    '    Else
    '        Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
    '    End If
    'End Sub
#End Region
    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub

    'Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
    '    GvDatos.ExportToExcel("Reporte de Remisiones por Facturar" & NowADS().ToShortDateString)
    'End Sub
End Class