Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms


Partial Class Bancos_RepSaldosDetalle
    Inherits ClsPaginas


#Region "PROPIEDADES"

    Private Property FechaI As String
        Get
            FechaI = ViewState("FechaI").ToString
        End Get
        Set(value As String)
            ViewState("FechaI") = value
        End Set
    End Property
    Private Property FechaF As String
        Get
            FechaF = ViewState("FechaF").ToString
        End Get
        Set(value As String)
            ViewState("FechaF") = value
        End Set
    End Property

    Private Property Opcion As Integer
        Get
            Opcion = ViewState("Opcion").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("Opcion") = value
        End Set
    End Property

    Private Property CveBanco As Integer
        Get
            CveBanco = ViewState("CveBanco").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveBanco") = value
        End Set
    End Property

    Private Property CveCuenta As Integer
        Get
            CveCuenta = ViewState("CveCuenta").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCuenta") = value
        End Set
    End Property

    Private Property CveMoneda As Integer
        Get
            CveMoneda = ViewState("CveMoneda").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMoneda") = value
        End Set
    End Property
    Private Property Cuenta As String
        Get
            Cuenta = ViewState("Cuenta").ToString
        End Get
        Set(value As String)
            ViewState("Cuenta") = value
        End Set
    End Property
    Private Property CLABE As String
        Get
            CLABE = ViewState("CLABE").ToString
        End Get
        Set(value As String)
            ViewState("CLABE") = value
        End Set
    End Property
    Private Property Banco As String
        Get
            Banco = ViewState("Banco").ToString
        End Get
        Set(value As String)
            ViewState("Banco") = value
        End Set
    End Property
#End Region


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

            If Request("CveBanco") IsNot Nothing AndAlso Request("CveCuenta") IsNot Nothing Then
                FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1")
                FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1")
                Opcion = IfNull(Request("Opcion"), "0").ToString.ToEntero
                CveBanco = Request("CveBanco").ToEntero
                CveCuenta = Request("CveCuenta").ToEntero
                CveMoneda = IfNull(Request("CveMoneda"), "-1").ToString.ToEntero

                CargaDatos(Request("CveBanco").ToEntero, Request("CveCuenta").ToEntero, IfNull(Request("CveMoneda"), "-1").ToString.ToEntero, FechaI, FechaF, Opcion)
                '  CargaDatosReporteConciliaciones(Request("CveCuenta").ToEntero, FechaI, FechaF)
            Else
                FechaI = ""
                FechaF = ""
            End If

        End If
    End Sub

    Protected Sub GvCxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvS.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.RowIndex = 1 Then
                e.Row.Cells(0).Width = Unit.Pixel(50)
                e.Row.Cells(1).Width = Unit.Pixel(70)
                e.Row.Cells(2).Width = Unit.Pixel(80)
                e.Row.Cells(3).Width = Unit.Pixel(250)
                e.Row.Cells(4).Width = Unit.Pixel(250)
                e.Row.Cells(5).Width = Unit.Pixel(80)
                e.Row.Cells(6).Width = Unit.Pixel(100)
                e.Row.Cells(7).Width = Unit.Pixel(100)
                'e.Row.Cells(6).Width = Unit.Pixel(100)

            End If

            If e.Row.FCLiteral("LtlCargo").Text = "0.00" Then e.Row.FCLiteral("LtlCargo").Text = ""
            If e.Row.FCLiteral("LtlAbono").Text = "0.00" Then e.Row.FCLiteral("LtlAbono").Text = ""
        End If

        If e.Row.RowType = DataControlRowType.Footer Then
            e.Row.Cells(7).Font.Bold = True
            e.Row.Cells(8).Font.Bold = True
            e.Row.Cells(7).Text = HdnTotalCargo.Value.FormatoNumero
            e.Row.Cells(8).Text = HdnTotalAbono.Value.FormatoNumero
            e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right
        End If
    End Sub

    Private Sub CargaDatos(CveBanco As Integer, CveCuenta As Integer, CveMoneda As Integer, FechaInicio As String, FechaFin As String, Opcion As Integer)


        Dim Ban As New ClsBancos
        If Ban.GetBancosSaldosDetalle(CveBanco, CveCuenta, CveMoneda, FechaInicio, FechaFin, Opcion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then


            GvS.DataSource = Ban.DtResultados

            If Ban.DtResultados.Rows.Count > 0 Then
                'Campos requeridos para reporte PDF
                Dim dr As DataRow = Ban.DtResultados.Rows(0)
                Cuenta = dr("NumCuenta").ToString
                CLABE = dr("CLABE").ToString
                Banco = dr("Banco").ToString
                lbBancoNombre.Text = Banco
                LblFechaI.Text = FechaInicio
                LblFechaF.Text = FechaFin
                If CveCuenta > 0 Then
                    LblCuenta.Text = dr("NumCuenta").ToString
                    LblSaldoInicial.Text = dr("SaldoInicial").ToString.ToDouble.FormatoNumero
                    HdnTotalCargo.Value = Ban.DtResultados.SUM("Cargo").ToString
                    HdnTotalAbono.Value = Ban.DtResultados.SUM("Abono").ToString
                Else
                    GvS.Columns(0).Visible = True
                    Cuenta = ""
                End If


            End If
        End If
        Ban.Dispose()

        GvS.DataBind()
    End Sub

    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
        ImprimirReporte("Excel")
    End Sub

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

    Private Sub ImprimirReporte(formato As String)
        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        'OBTENEMOS LOS DATOS
        Dim dt As DataTable
        Dim Ban As New ClsBancos

        If Ban.GetBancosSaldosDetalle(CveBanco, CveCuenta, CveMoneda, FechaI, FechaF, Opcion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            dt = Ban.DtResultados
        Else
            dt = Nothing
        End If

        Dim NombreCuenta As String = String.Format("{0} - {1}", Banco, Cuenta)


        Dim params As New List(Of ReportParameter)
        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", Now.ToDateTime.ToString()))
        params.Add(New ReportParameter("FechaInicio", FechaI))
        params.Add(New ReportParameter("FechaFin", FechaF))

        params.Add(New ReportParameter("NombreCuenta", NombreCuenta))
        params.Add(New ReportParameter("SaldoInicial", LblSaldoInicial.Text))

        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato)

        Ban.Dispose()
    End Sub

#End Region

#Region "  COMENTADO  "
    'Private Sub CargaDatosReporteConciliaciones(CveCuenta As Integer, FechaInicio As String, FechaFin As String)
    '    If CveCuenta < 0 Then Exit Sub

    '    Dim ObjBancos As New ClsBancos

    '    If ObjBancos.GetConciliacionesReporte(CveCuenta, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then
    '        DtConciliaciones = ObjBancos.DtResultados
    '        ' GvRepConciliaciones.DataSource = DtConciliaciones
    '    Else
    '        DtConciliaciones = Nothing
    '    End If
    '    ObjBancos.Dispose()

    '    '    'DatosGenerales
    '    '    If DtConciliaciones.Rows.Count > 0 Then
    '    '        LtTotalConciliaciones.Text = DtConciliaciones.Rows(0)("Total").ToString.FormatoNumero
    '    '        LtTotalNoConciliado.Text = DtConciliaciones.Rows(0)("NoConciliado").ToString.FormatoNumero
    '    '        LtTotalConciliado.Text = DtConciliaciones.Rows(0)("Conciliado").ToString.FormatoNumero
    '    '    End If


    '    '    'Llena grid
    '    '    GvRepConciliaciones.DataBind()
    '    '    UpRepConciliaciones.Update()

    'End Sub

    'Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
    '    'GvS.ExportToExcel("ReporteSaldos" & Now.ToShortDateString)
    '    'GvRepConciliaciones.ExportToExcel("ReporteConciliacionBancaria" & Now.ToShortDateString)
    '    ExportExcel()
    'End Sub

    'Private Sub ExportExcel()
    '    'If Not DtConciliaciones.Rows.Count > 0 Then
    '    '    Alert("No hay detalles para generar el reporte.")
    '    '    Exit Sub
    '    'End If

    '    If Not File.Exists(String.Format("{0}Formatos\ReporteConciliaciones.xlsm", UsuarioActual.Empresa.Ruta)) Then
    '        Alert("El archivo base del documento no existe, por favor contacte al administrador.")
    '        Exit Sub
    '    End If

    '    Dim Excel As msExcel.Application = New msExcel.Application()
    '    Dim VB_Module As VBComponent = Nothing
    '    Excel.Visible = True
    '    Excel.ScreenUpdating = True
    '    Excel.DisplayAlerts = True

    '    Dim NombreArchivo = String.Format("Conciliacion-{0}-{1}", Cuenta, Date.Now.ToShortDateString.Replace("/", ""))

    '    Dim ArchivoBase As New System.IO.FileInfo(String.Format("{0}Formatos\ReporteConciliaciones.xlsm", UsuarioActual.Empresa.Ruta))
    '    ArchivoBase.CopyTo(String.Format("{0}Formatos\{1}.xlsm", UsuarioActual.Empresa.Ruta, NombreArchivo), True)
    '    Dim ArchivoTemp As New System.IO.FileInfo(String.Format("{0}Formatos\{1}.xlsm", UsuarioActual.Empresa.Ruta, NombreArchivo))

    '    Dim Libro As msExcel.Workbook = Excel.Workbooks.Open(ArchivoTemp.FullName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
    '    Libro.Activate()

    '    Dim Hoja As msExcel.Worksheet = CType(Libro.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
    '    Hoja.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible
    '    Hoja.Activate()

    '    'Cuenta
    '    Hoja.Range("B6:B6").Value = Cuenta
    '    Hoja.Range("F6:F6").Value = CLABE
    '    Hoja.Range("B7:B7").Value = Banco

    '    'Fechas
    '    Hoja.Range("G2:G2").Value = FechaI.ToDate.ToString("MM/dd/yyyy")
    '    Hoja.Range("G4:G4").Value = FechaF.ToDate.ToString("MM/dd/yyyy")

    '    'Totales
    '    Hoja.Range("G9:G9").Value = DtConciliaciones.Rows(0)("Conciliado").ToString.FormatoNumero
    '    Hoja.Range("G15:G15").Value = DtConciliaciones.Rows(0)("NoConciliado").ToString.FormatoNumero
    '    Hoja.Range("G18:G18").Value = DtConciliaciones.Rows(0)("Total").ToString.FormatoNumero

    '    VB_Module = CType(Libro.VBProject.VBComponents.Add(Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule), VBComponent)
    '    VB_Module.CodeModule.AddFromString(GetMacro)

    '    Dim CeldaI As Integer = 13
    '    Dim CeldaF As Integer = 13

    '    'Conceptos
    '    For Each Row As DataRow In DtConciliaciones.Rows
    '        Hoja.Range(String.Format("A{0}:A{0}", CeldaF)).Value = Row("FechaDocumento").ToString.ToDate.ToShortDateString
    '        Hoja.Range(String.Format("B{0}:B{0}", CeldaF)).Value = Row("IdPoliza").ToString
    '        Hoja.Range(String.Format("C{0}:C{0}", CeldaF)).Value = Row("PagueseA").ToString
    '        Hoja.Range(String.Format("G{0}:G{0}", CeldaF)).Value = Row("Importe").ToString.FormatoNumero

    '        If DtConciliaciones.Rows.Count > 1 AndAlso CeldaF - CeldaI < DtConciliaciones.Rows.Count - 1 Then
    '            CeldaF = CeldaF + 1
    '            Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,
    '                                 missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
    '            Libro.Save()
    '            Libro.Application.DisplayAlerts = False
    '            Libro.Application.ScreenUpdating = False
    '        End If
    '    Next

    '    Dim EsVistaPrevia As Boolean = True

    '    'Exportar PDF
    '    Dim pdfFileOut As String = String.Format("{0}PDF\ReporteConciliacion-{1}.pdf", UsuarioActual.Empresa.Ruta, NombreArchivo)
    '    Dim outputFileName As Object = pdfFileOut
    '    Dim fileFormat As msExcel.XlFixedFormatType = msExcel.XlFixedFormatType.xlTypePDF
    '    Hoja.ExportAsFixedFormat(fileFormat, outputFileName, missing, missing, missing, missing, missing, missing, missing)

    '    System.Runtime.InteropServices.Marshal.ReleaseComObject(Hoja)
    '    Hoja = Nothing
    '    Dim saveChanges As Object = msExcel.XlSaveAction.xlDoNotSaveChanges
    '    CType(Libro, msExcel._Workbook).Close(saveChanges, missing, missing)
    '    System.Runtime.InteropServices.Marshal.ReleaseComObject(Libro)
    '    Libro = Nothing
    '    Excel.Quit()
    '    System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel)
    '    Excel = Nothing
    '    GC.Collect()
    '    GC.WaitForPendingFinalizers()

    '    ArchivoTemp.Delete()

    '    Dim Descargas As New StringBuilder()
    '    Descargas.AppendFormat("<li><a class=""Texto"" href=""/Empresas/{0}/PDF/ReporteConciliacion-{1}.pdf?Id={2}"" target='_blank'>PDF</a></li>", UsuarioActual.CveEmpresa, NombreArchivo, now.Ticks)


    '    Alert(String.Format("<br />El reporte se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Descargas), TipoMensaje.MsgInformacion)

    'End Sub
    'Private Function GetMacro() As String
    '    Dim SB As New StringBuilder
    '    SB.Append(" Sub AddRow(Row As String) " & vbLf)
    '    SB.Append("     Rows(Row & "":"" & Row).Select " & vbLf)
    '    SB.Append("     Selection.Copy " & vbLf)
    '    SB.Append("     Selection.Insert Shift:=xlDown " & vbLf)
    '    SB.Append(" End Sub ")
    '    Return SB.ToString
    'End Function

#End Region



End Class