SIG/Inventarios/RepNotasSinAlmacen.aspx.vb

Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports Stimulsoft.Report.QuickButtons.StiWpfQuickButtonAttribute
Partial Class RepNotasSinAlmacen
    Inherits ClsPaginas

#Region "propiedades"

    Private Property dt As DataTable
        Get
            Try
                dt = DirectCast(ViewState("dt"), DataTable)
                Return DirectCast(ViewState("dt"), DataTable)
            Catch ex As Exception
                Return Nothing
            End Try
        End Get
        Set(value As DataTable)
            ViewState("dt") = value
        End Set
    End Property
    Public Property DtEquivalencias() As DataTable
        Get
            Return CType(ViewState("dtReporte"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("dtReporte") = value
        End Set
    End Property
    Public Property FechaInicial As Date
        Get
            Return ViewState("FechaInicial").ToString.ToDate
        End Get
        Set(value As Date)
            ViewState("FechaInicial") = value
        End Set
    End Property
    Public Property FechaFinal As Date
        Get
            Return ViewState("FechaFinal").ToString.ToDate
        End Get
        Set(value As Date)
            ViewState("FechaFinal") = value
        End Set
    End Property
    Private Property DtNotasSinAlmacenVentas As DataTable
        Get
            Return DirectCast(ViewState("DtNotasSinAlmacenVentas"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtNotasSinAlmacenVentas") = value
        End Set
    End Property
    Private Property DtNotasSinAlmacenCompras As DataTable
        Get
            Return DirectCast(ViewState("DtNotasSinAlmacenCompras"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtNotasSinAlmacenCompras") = value
        End Set
    End Property


#End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then

            CargaCombos()
            'CargaDatos()
            CargaPermisos()
        End If
    End Sub
    Private Sub CargaPermisos()
        Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
        Dim TienePermisoDesmarcar As Boolean = UsuarioActual.TienePermisoProceso(278)
        GvVentas.Columns(5).Visible = TienePermisoImportes
        GvCompras.Columns(4).Visible = TienePermisoImportes
        GvCompras.Columns(5).Visible = TienePermisoDesmarcar

        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria
            GvVentas.Columns(2).HeaderText = "Fecha Cirugía"
            GvVentas.Columns(3).HeaderText = "Hospital"
            GvVentas.Columns(6).Visible = True
            GvVentas.Columns(7).Visible = True
            TxtFechaF.Text = NowADS.AddDays(3).ToShortDateString

            GvVentas.Columns(0).ItemStyle.Width = Unit.Pixel(120)
            'CType(GvVentas.Columns(2), Literal).DataFormatString = "{0:dd/MM/yyyy HH:mm}"
            'CType(GvVentas.Columns(2), Literal).ItemStyle.Width = Unit.Pixel(120)
        End If

    End Sub
    Private Sub CargaCombos()
        TxtFechaF.Text = NowADS().ToShortDateString
        TxtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString

        DdlCliente.setEsWebService(True)
        DdlCliente.Attributes.Add("data-metodo", "getcliente")
        DdlCliente.SelectedText = "Todos"
        DdlCliente.SelectedValue = "-1"

        DdlProveedor.setEsWebService(True)
        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
        DdlProveedor.SelectedText = "Todos"
        DdlProveedor.SelectedValue = "-1"

        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)

    End Sub

    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
        CargaDatos()
    End Sub

    Private Sub CargaDatos()
        Dim Reporte As New ClsInventarios
        Dim CveClienteProveedor As Integer = -1

        Dim TipoDocumento As String = DdlTipoDocto1.SelectedValue
        Dim Opcion As Integer = 1

        FechaInicial = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text.ToDate, MinFecha)
        FechaFinal = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text.ToDate.AddDays(1), MaxFecha)

        If Tab.ActiveTabIndex = 0 Then
            'Ventas
            If Not DdlCliente.SelectedValue.ToEntero > 0 Then
                CveClienteProveedor = -1
            Else
                CveClienteProveedor = DdlCliente.SelectedValue.ToEntero
            End If

            If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
                GvVentas.DataSource = Reporte.DtResultados
                DtNotasSinAlmacenVentas = Reporte.DtResultados
            Else
                GvVentas.DataSource = Nothing
            End If

            GvVentas.DataBind()

        Else
            'Compras
            If Not DdlProveedor.SelectedValue.ToEntero > 0 Then
                CveClienteProveedor = -1
            Else
                CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
            End If

            If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
                GvCompras.DataSource = Reporte.DtResultados
                DtNotasSinAlmacenCompras = Reporte.DtResultados
            Else
                GvCompras.DataSource = Nothing
            End If

            GvCompras.DataBind()

            'If (GvCompras.Rows.Count > 0) Then
            '    GvCompras.UseAccessibleHeader = True
            '    GvCompras.HeaderRow.TableSection = TableRowSection.TableHeader
            '    RegistraScript("OrdenarGvCompras();")
            'End If
        End If

        UpDatosGvVentas.Update()
        UpDatosGvCompras.Update()
        Reporte.Dispose()
    End Sub


    Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
        DivCliente1.Visible = False
        DivCliente2.Visible = False
        DivProveedor1.Visible = False
        DivProveedor2.Visible = False
        DivTipoDoctoVenta.Visible = False
        DivTipoDocto1.Visible = False
        DivTipoDoctoCompra.Visible = False
        DivTipoDoctoCompra2.Visible = False
        DivSubProyecto.Visible = True
        DivSubProyecto2.Visible = True


        If Tab.ActiveTabIndex = 0 Then
            DivCliente1.Visible = True
            DivCliente2.Visible = True
            DivTipoDoctoVenta.Visible = True
            DivTipoDocto1.Visible = True
            DivSubProyecto.Visible = True
            DivSubProyecto2.Visible = True
        Else
            DivProveedor1.Visible = True
            DivProveedor2.Visible = True
            DivTipoDoctoCompra.Visible = True
            DivTipoDoctoCompra2.Visible = True

        End If

        UpFiltros.Update()
    End Sub


#Region " EXPORTAR - PDF - EXCEL "
    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
        ImprimirPDFExcel("Excel")
    End Sub

#Region "P D F"
    Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
        ImprimirPDFExcel()
    End Sub

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

        'OBTENEMOS LOS DATOS
        'Dim CveCliente As Integer = -1

        'If DdlCliente.SelectedIndex = 0 Then
        '    CveCliente = -1
        'Else
        '    CveCliente = DdlCliente.SelectedValue.ToEntero

        'End If


        FechaInicial = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text.ToDate, MinFecha)
        FechaFinal = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text.ToDate.AddDays(1), MaxFecha)
        Dim Filtros As String = ""

        If Tab.ActiveTabIndex = 0 Then
            Filtros = "<b>Filtros:</b> " & "  cliente: " & DdlCliente.SelectedText & ", Tipo: " & DdlTipoDocto1.SelectedItem.Text & ", Fecha I: " & TxtFechaI.Text & " Fecha F: " & TxtFechaF.Text
        Else
            Filtros = "<b>Filtros:</b> " & "  cliente: " & DdlCliente.SelectedText & ", Tipo: " & DdlTipoDocto2.SelectedItem.Text & ", Fecha I: " & TxtFechaI.Text & " Fecha F: " & TxtFechaF.Text
        End If
        'If Reporte.RepNotasSinAlmacen(1, CveCliente, FechaInicial, FechaFinal, 1, 1, UsuarioActual.Empresa.CveEmpresa) Then
        '    rpt = Reporte.DtResultados
        'Else
        '    rpt = Nothing
        'End If


        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("AgrupadoPor", Filtros))
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
        params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString()))
        params.Add(New ReportParameter("FechaInicio", FechaInicial.ToShortDateString))
        params.Add(New ReportParameter("FechaFin", FechaFinal.ToShortDateString))

        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        If Tab.ActiveTabIndex = 0 Then
            ImprimirPDF("Empresas/Grales/Formatos/RepNotasSinAlmacenVentas.rdlc", DtNotasSinAlmacenVentas, params, "RepNotasSinAlmacenVentas", Formato:=Formato)
        Else
            ImprimirPDF("Empresas/Grales/Formatos/RepNotasSinAlmacenCompras.rdlc", DtNotasSinAlmacenCompras, params, "RepNotasSinAlmacenCompras", Formato:=Formato)
        End If

    End Sub
#End Region

#End Region


    Protected Sub GvCompras_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            If Not e.Row.DBCampo("CveCompraDetalle").ToEntero > 0 Then
                e.Row.CssClass = "Totales"
                e.Row.Cells(0).Text = "<a class=""Texto"" href=""/Compras/Compras.aspx?CveCompra=" & e.Row.DBCampo("CveCompra") & """>" & e.Row.DBCampo("SerieFolio") & "</a>"
                e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
                e.Row.Cells(1).Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString
                e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
                e.Row.Cells(2).Text = "<a class=""Texto"" href=""/Compras/Proveedores.aspx?CveProveedor=" & e.Row.DBCampo("CveProveedor") & """>" & e.Row.DBCampo("RazonSocial") & "</a>"
                e.Row.FCLinkButton("lnkAccion").Visible = False
                If GvCompras.Columns(4).Visible Then
                    e.Row.Cells(4).Text = ""
                End If



            End If
        End If
    End Sub

    Protected Sub BtnActulizarEstatus_Click(sender As Object, e As EventArgs)
        If UsuarioActual.TienePermisoProceso(278) Then
            Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

            Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle").ToEntero()
            Dim CveCompra As Integer = GvRow.DataKey("CveCompra").ToEntero()
            Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero()

            Dim PS As String = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")

            Dim ObjCompras As New ClsCompras
            Dim ObjEventos As New ClsOIEventos
            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1, UsuarioActual.CveUsuario) Then
                If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibido", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
                    Alert("El producto se marcó como 'no recibido' correctamente.")
                End If
            End If
            ObjCompras.Dispose()
            ObjEventos.Dispose()

            CargaDatos()
        End If


    End Sub


    Protected Sub GvVentas_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then

            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria
                e.Row.Cells(2).Text = $"<div style='display:none'>{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}</div> {e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy HH:mm")}"
            Else
                e.Row.Cells(2).Text = $"{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}"
            End If

        End If
    End Sub
End Class