SIG/Bancos/RepCxCCliente.aspx.vb

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

Partial Class Bancos_RepCxCCliente
    Inherits ClsPaginas

    Private Property DtDatos As DataTable
        Get
            If ViewState("DtDatos") Is Nothing Then
                ViewState("DtDatos") = New DataTable
            End If

            Return CType(ViewState("DtDatos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtDatos") = value
        End Set
    End Property

    Protected Sub Page_Load(Sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            DdlMoneda.DataSource = GlobalDTMonedas()
            DdlMoneda.DataBind()

            DdlClientesWS.setEsWebService(True)

            'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
            'If EsWS Then
            '    DdlClientesWS.setEsWebService(True)
            'Else
            '    DdlClientesWS.setEsWebService(False)
            '    DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
            '    DdlClientesWS.DataBind()
            '    DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
            'End If

            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
            DdlSubProyecto.DataBind()

            'DdlSubProyecto.SelectedValueExist(UsuarioActual.CveSucursal.ToString)
            '[IPP] 8 Enero 2018 - Se quito por que sera reemplazado al cargar solo los subproyectos del usuario
            'If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyecto.Enabled = False
            If UsuarioActual.Sesion("CobroCliente-Sucursal").ToString <> "" Then DdlSubProyecto.SelectedValueExist(UsuarioActual.Sesion("CobroCliente-Sucursal").ToString.Trim)


            InicializaPersonalizarColumnas()
            CargaDatos()

        End If

    End Sub

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub
    Private Sub CargaDatos()
        DtDatos = New DataTable
        Dim Mov As New ClsMovimientos
        Dim FechaI, FechaF As String
        Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)

        If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1"
        If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1"

        Dim Cuenta As String = If(TxtCuenta.Text = "", "-1", TxtCuenta.Text)

        If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1,
                             UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta, EstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then
            GvCxC.DataSource = Mov.DtResultados
            DtDatos = Mov.DtResultados
        End If
        UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue

        Mov.Dispose()
        GvCxC.DataBind()

        If (GvCxC.Rows.Count > 0) Then
            GvCxC.UseAccessibleHeader = True
            If GvCxC.HeaderRow IsNot Nothing Then
                GvCxC.HeaderRow.TableSection = TableRowSection.TableHeader
            End If
            RegistraScript("OrdenarGV();")

        End If
        UPDatos.Update()
    End Sub
    Protected Sub GvCxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCxC.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If UsuarioActual.TienePermisoProceso(100) Then
                e.Row.FCHyperLink("ImgAbonar").Visible = True
            Else
                e.Row.FCHyperLink("ImgAbonar").Visible = False
            End If

            If e.Row.DBCampo("CveCliente") = "" AndAlso e.Row.DBCampo("CveSubProyecto") = "" Then
                e.Row.BackColor = Drawing.Color.LightGray
                e.Row.FCHyperLink("ImgAbonar").Visible = False
                e.Row.FCHyperLink("Hpl").NavigateUrl = ""
                e.Row.FCHyperLink("Hpl").Font.Bold = True
            Else
                If e.Row.DBCampo("CveCliente") = "" AndAlso e.Row.DBCampo("CveSubProyecto") <> "" Then
                    e.Row.BackColor = Drawing.Color.LightGray
                    e.Row.FCHyperLink("ImgAbonar").Visible = False
                    e.Row.FCHyperLink("Hpl").NavigateUrl = ""
                    e.Row.FCHyperLink("Hpl").Font.Bold = True
                End If
            End If

            Dim CveSubProyecto As Integer = If(DdlAgrupador.SelectedValue = "1", e.Row.DBCampo("CveSubProyecto").ToEntero, -1)
            If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red
            '"/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&CveMoneda={4}&Serie={5}&CveUsuario={6}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), DdlUsuarioProgramo.SelectedValue, e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("Serie"), e.Row.DBCampo("CveUsuario")
            e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Ventas/ClientesAbonar.aspx?CveCliente={0}&FechaI={1}&FechaF={2}&CveMoneda={3}&CveUsuario={4}&CveSubProyecto={5}&CveClienteSucursal={6}", e.Row.DBCampo("CveCliente"), e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveMoneda"), UsuarioActual.CveUsuario, CveSubProyecto, e.Row.DBCampo("CveClienteSucursal"))
        End If
    End Sub


#Region "  PERSONALIZAR COLUMNAS  "

    Private Sub InicializaPersonalizarColumnas()
        '[IPP] SI ES JAM POR DEFAULT MUESTRA COLUMNA SUCURSAL
        ChkSucursal.Checked = UsuarioActual.CveEmpresa = 119
        GvCxC.Columns(1).Visible = UsuarioActual.CveEmpresa = 119
    End Sub
    Protected Sub BtnPersonalizarColumnas_Click(sender As Object, e As EventArgs)
        GvCxC.Columns(1).Visible = ChkSucursal.Checked
        CargaDatos()
        RegistraScript("$('#ModalPersonalizarColumnas').modal('hide')", "ModalPersonalizarColumnasHide")
    End Sub
#End Region



#Region " I M P R I M I R   P D F"
    Protected Sub LnkPDF_Click(sender As Object, e As EventArgs)
        GenerarPDFpp()
    End Sub


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

        'OBTENEMOS LOS DATOS
        Dim ObjMovtos As New ClsMovimientos()

        Dim FI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
        Dim FF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
        Dim FechaI, FechaF As String
        Dim CveUsuarioProgramo As Integer = -1
        If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1"
        If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1"
        Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)

        'If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then
        '    DTpp = ObjMovtos.DtResultados
        'Else
        '    DTpp = Nothing
        'End If

        If DtDatos.Rows.Count > 0 Then
            Dim dr As DataRow = DtDatos.Rows(0)
            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("FechaInicio", FI))
            params.Add(New ReportParameter("FechaFin", FF))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))

            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepPagoClientes.rdlc", DtDatos, params, "ReportePagoClientes")
        Else
            Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)
        End If

        ObjMovtos.Dispose()

    End Sub


    Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
        GvCxC.ExportToExcel("CxC Cliente" & NowADS().ToShortDateString)
    End Sub


#End Region




End Class