Option Strict On
Option Explicit On

Imports System.Activities.Expressions
Imports System.Data
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports Extensiones
Imports Stimulsoft.Report.StiOptions.Export

Partial Class Bancos_Creditos
    Inherits ClsPaginas

#Region "Propiedades"
    Private Property CveCredito As Integer
        Get
            Return ViewState("CveCredito").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCredito") = value
        End Set
    End Property
    Private Property CveCuentaTarjeta As Integer
        Get
            Return ViewState("CveCuentaTarjeta").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCuentaTarjeta") = value
        End Set
    End Property
    Private Property CveCompra As Integer
        Get
            Return ViewState("CveCompra").ToString.ToEntero
        End Get
        Set(value As Integer)

        End Set
    End Property
    Private Property CveLineaCredito As Integer
        Get
            Return ViewState("CveLineaCredito").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveLineaCredito") = value
        End Set
    End Property
    Private Property CveIE As Integer
        Get
            Return ViewState("CveIE").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveIE") = value
        End Set
    End Property
    Private Property TotalCompra As Double
        Get
            Return ViewState("TotalCompra").ToString.ToDouble
        End Get
        Set(value As Double)
            ViewState("TotalCompra") = value
        End Set
    End Property
    Private Property CveTipoCredito As Integer
        Get
            Return ViewState("CveTipoCredito").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveTipoCredito") = value
        End Set
    End Property
    Private Property DTAmortizacion As DataTable
        Get
            Return CType(ViewState("DTAmortizacion"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTAmortizacion") = value
        End Set
    End Property

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

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

    Private Property DtIE As DataTable
        Get
            Return CType(ViewState("DtIE"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtIE") = value
        End Set
    End Property
    Private Property RegeneraTablaAmortizacion As Boolean
        Get
            Return CBool(ViewState("RegeneraTablaAmortizacion").ToString)
        End Get
        Set(value As Boolean)
            ViewState("RegeneraTablaAmortizacion") = 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

            InicializaValores()

            If Request("CveCredito") IsNot Nothing AndAlso IsNumeric(Request("CveCredito")) AndAlso Request("CveCredito").ToEntero > 0 Then
                ViewState("CveCredito") = Request("CveCredito")
                BtnGuardar.Text = "Actualizar"
                CargaCredito()
            Else
                ViewState("CveCredito") = -1

                CreaDtAF()
                CreaDtIE()


                If Request("CveTipoCredito") IsNot Nothing AndAlso IsNumeric(Request("CveTipoCredito")) AndAlso Request("CveTipoCredito").ToEntero > 0 Then
                    CveTipoCredito = Request("CveTipoCredito").ToString.ToEntero
                    DdlTipoCredito.SelectedValue = CveTipoCredito.ToString
                    DdlTipoCredito_SelectedIndexChanged(DdlTipoCredito, EventArgs.Empty)
                    UpTipoCredito.Visible = False
                Else
                    DdlTipoCredito_SelectedIndexChanged(DdlTipoCredito, EventArgs.Empty)
                End If
                'Carga CtaContable
                CargaCuentasContables()
                ' BtnEliminar.Enabled = False
            End If

            CreaDTAmortizacion()
        End If
    End Sub



#Region "  INICIALIZA VALORES  "
    Private Sub InicializaValores()
        ViewState("CveCompra") = -1
        ViewState("TotalCompra") = -1
        ViewState("CveIE") = -1
        ViewState("CveTipoCredito") = -1
        ViewState("CveLineaCredito") = -1
        ViewState("CveCuentaTarjeta") = -1
        RegeneraTablaAmortizacion = False

        'Fecha Default
        TxtFechaInicio.Text = DateTime.Now().ToString("dd/MM/yyyy")

        'Carga Proveedores | Entidad Financiera
        DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlProveedores.DataBind()

        'DDL PARA GENERAR PREPOLIZA
        DdlAcreedorPrePoliza.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlAcreedorPrePoliza.DataBind()

        'Carga Tipo Moneda
        DdlTipoMoneda.DataSource = GlobalDTMonedas
        DdlTipoMoneda.DataBind()
        DdlCSTipoMoneda.DataSource = GlobalDTMonedas
        DdlCSTipoMoneda.DataBind()

        'Carga CuentasBancarias para CuentaCredito y CuentaDeposito
        DtCuentasBancarias = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
        CargaCuentasDeposito()

    End Sub
#End Region

#Region "  TIPOS DE CRÉDITOS  - MODALIDADES  "
    Protected Sub DdlTipoCredito_SelectedIndexChanged(sender As Object, e As EventArgs)

        If DdlTipoCredito.SelectedValue.ToEntero > 2 Then

            UpCreditosSimples.Visible = False
            UpCuentaCredito.Visible = False
            UpCompra.Visible = False

            trEntidadFinanciera.Visible = True
            UpCreditosComplejos.Visible = True
            UpActivoFijo.Visible = True

            BtnGuardar.Enabled = True

            TrPagueseA.Visible = True
            TxtPagueseA.Text = If(DdlProveedores.SelectedValue.ToEntero > 0, DdlProveedores.SelectedItem.Text, "")

            'TableVinculaAnticipo.Visible = True

            ''Genera Anticipo --- Viejo
            'UpPreguntaAnticipo.Visible = True
            'LbTituloCuentaDeposito.Text = "Pago Anticipo"
            'LtAnticipo.Text = "Aplica anticipo"
        Else
            UpCreditosSimples.Visible = True
            UpCuentaCredito.Visible = True

            trEntidadFinanciera.Visible = False
            UpCreditosComplejos.Visible = False
            UpActivoFijo.Visible = False

            BtnGuardar.Enabled = True

            TrPagueseA.Visible = False
            DdlCSTipoMoneda.Enabled = False
            CargaCuentasBancarias()

            UpVinculaAnticipo.Visible = False

            'CADENA PRODUCTIVA
            If DdlTipoCredito.SelectedValue.ToEntero = 1 Then
                UpCompra.Visible = True
                'UpPagoAnticipo.Visible = False

                TrCadenaProductiva.Visible = True
                TrRevolvente1.Visible = False
                TrRevolvente2.Visible = False
            Else

                'REVOLVENTE
                UpCompra.Visible = False
                'UpPagoAnticipo.Visible = True

                TrCadenaProductiva.Visible = False
                TrRevolvente1.Visible = True
                TrRevolvente2.Visible = True

                'GENERA DEPOSITO SOLO REVOLVENTE
                UpGeneraDeposito.Visible = True
            End If


        End If

        LbTitulo.Text = String.Format("Crédito: {0}", DdlTipoCredito.SelectedItem.Text)
        UpRegistro.Update()

    End Sub
#End Region

#Region "C A R G A - D A T O S - CREDITOS"
    Public Sub CargaCredito()
        Dim ObjCreditos As New ClsBancos

        If ObjCreditos.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
            If ObjCreditos.DtResultados.Rows.Count > 0 Then
                CveTipoCredito = ObjCreditos.DtResultados.Rows(0)("CveTipoCredito").ToString.ToEntero
                CveCuentaTarjeta = ObjCreditos.DtResultados.Rows(0)("CveCuentaTarjeta").ToString.ToEntero
            End If
        End If
        ObjCreditos.Dispose()

        DdlTipoCredito.SelectedValue = CveTipoCredito.ToString
        DdlTipoCredito_SelectedIndexChanged(DdlTipoCredito, EventArgs.Empty)
        UpTipoCredito.Visible = False
        UpGeneraDeposito.Visible = False

        Select Case CveTipoCredito.ToString.ToEntero
            Case 1, 2
                'CREDITOS SIMPLES: CREDIPROVEDORES, REVOLVENTE
                CargaCreditoSencillo()
                BtnEliminar.Visible = True
            Case 3, 4, 5
                'CREDITOS COMPLEJOS: DOCUMENTOS, ARRENDAMIENTO PURO, ARRENDAMIENTO FINANCIERO
                CargaCreditoComplejo()
            Case Else
        End Select
        'Carga CtaContable


    End Sub
    Private Sub CargaCreditoSencillo()
        Dim ObjCreditos As New ClsBancos

        If ObjCreditos.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
            If ObjCreditos.DtResultados.Rows.Count = 1 Then
                Dim dr As DataRow = ObjCreditos.DtResultados(0)

                DdlProveedores.SelectedValue = dr("CveProveedor").ToString
                RBLClasificacionContable.SelectedValue = dr("ClasificacionContable").ToString

                TxtCSFechaVencimiento.Text = dr("FechaVencimiento").ToString
                TxtCSFechaInicio.Text = dr("FechaInicio").ToString
                DdlCSTipoMoneda.SelectedValue = dr("CveMoneda").ToString
                TxtCSTasa.Text = dr("Tasa").ToString.FormatoNumero
                TxtCSSobreTasa.Text = dr("SobreTasa").ToString.FormatoNumero
                TxtCSReferencia.Text = dr("Referencia").ToString
                TxtCSObservaciones.Text = dr("Observaciones").ToString
                TxtCSPlazo.Text = dr("Plazo").ToString

                DdlCuentaCredito.SelectedValue = dr("CveCuenta").ToString
                DdlCuentaCredito_SelectedIndexChanged(DdlCuentaCredito, EventArgs.Empty)

                CargaCuentasContables()

                'CARGA CREDITO DETALLE
                If ObjCreditos.GetCreditosDetalle(dr("CveCredito").ToString.ToEntero, -1) Then
                    If ObjCreditos.DtResultados.Rows.Count = 1 Then
                        Dim DT = ObjCreditos.DtResultados.Rows(0)

                        If DT("Estatus").ToString.Contiene("1", "101", "102") Then
                            trPagar.Visible = True
                            HLPagar.NavigateUrl = String.Format("/Bancos/IE.aspx?Opcion=EGSCREDITO&CveCredito={0}&CveCreditoDetalle={1}", CveCredito, DT("CveCreditoDetalle").ToString)
                        End If

                        If CveTipoCredito = 2 Then
                            Dim TotalCredi = 0
                            'TxtCSPeriodos.Text = ObjCreditos.DtResultados.Rows.Count.ToString
                            'TxtCSFechaInicio.Text = ObjCreditos.DtResultados.FiltraParametros("Periodo = 1").Rows(0)("Fecha").ToString

                            For index = 1 To ObjCreditos.DtResultados.Rows.Count
                                TotalCredi += ObjCreditos.DtResultados.Rows(index - 1)("Capital").ToString.ToEntero
                            Next
                            TxtCSTotalCredito.Text = TotalCredi.ToString.FormatoNumero
                        End If

                    End If
                End If

                If CveTipoCredito = 1 Then
                    HdnCveCompra.Value = dr("CveCompra").ToString
                    VinculaCompra()
                End If

                If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjCreditos.GetBancosIE(dr("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
                    If ObjCreditos.DtResultados.Rows.Count = 1 Then
                        TxtFechaDeposito.Text = ObjCreditos.DtResultados.Rows(0)("FechaDocumento").ToString

                        DdlCuentaDeposito.SelectedValue = ObjCreditos.DtResultados.Rows(0)("CveCuenta").ToString
                        DdlCuentaDeposito_SelectedIndexChanged(DdlCuentaDeposito, EventArgs.Empty)
                    End If
                End If

                ''Bloquear datos que no se pueden editar

                TxtFechaDeposito.Enabled = False
                DdlCuentaDeposito.Enabled = False
            Else
                Alert("Ocurrio un error al cargar el crédito. Por favor recargue la página.", TipoMensaje.MsgError)
            End If
        End If

        ObjCreditos.Dispose()
    End Sub
    Private Sub CargaCreditoComplejo()
        Dim ObjCreditos As New ClsBancos
        'Dim ObjPrepoliza As New ClsContabilidad

        If ObjCreditos.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
            If ObjCreditos.DtResultados.Rows.Count > 0 Then
                Dim dr As DataRow = ObjCreditos.DtResultados(0)

                DdlProveedores.SelectedValue = dr("CveProveedor").ToString
                RBLClasificacionContable.SelectedValue = dr("ClasificacionContable").ToString

                CargaCuentasContables()

                TxtReferencia.Text = dr("Referencia").ToString
                TxtObservaciones.Text = dr("Observaciones").ToString
                TxtPlazo.Text = dr("Plazo").ToString

                TxtIVA.Text = (dr("PorIVA").ToString.ToDouble * 100).ToString
                TxtTasa.Text = dr("Tasa").ToString.FormatoNumero(4)
                TxtSobreTasa.Text = dr("SobreTasa").ToString.FormatoNumero
                TxtFechaInicio.Text = dr("FechaInicio").ToString
                TxtTotalCredito.Text = dr("CreditoValor").ToString.FormatoNumero

                TxtVehiculoValor.Text = dr("CreditoValor").ToString.FormatoNumero
                TxtVehiculoAnticipo.Text = dr("CreditoAnticipo").ToString.FormatoNumero
                TxtComisionValor.Text = dr("ComisionApertura").ToString.FormatoNumero
                TxtComisionAnticipo.Text = dr("ComisionAnticipo").ToString.FormatoNumero
                TxtSeguroValor.Text = dr("SeguroValor").ToString.FormatoNumero
                TxtSeguroAnticipo.Text = dr("SeguroAnticipo").ToString.FormatoNumero
                TxtOtrosGastosValor.Text = dr("OtrosGastos").ToString.FormatoNumero
                TxtOtrosGastosAnticipo.Text = dr("OtrosGastosAnticipo").ToString.FormatoNumero

                TxtFondoGarantia.Text = dr("FondoGarantia").ToString.FormatoNumero
                LbFondoGarantía.Text = dr("FondoGarantia").ToString.FormatoNumero
                TxtSeguroMensual.Text = dr("Seguro").ToString.FormatoNumero
                ChkTipoInteres.Checked = Boolean.Parse(dr("TipoInteres").ToString)
                ' TxtPagueseA.Text = dr("PagueseA").ToString
                'TxtFechaPago.Text = ObjCreditos.DtResultados(0)("FechaDocumento").ToString
                RegistraScript("Sumador(1);")


                If TxtFondoGarantia.Text.ToDecimal > 0 Then
                    HLAplicarGarantia.Visible = True
                End If


                If ObjCreditos.CveCompraFactura > 0 Then
                    UpFacturaCompra.Visible = True
                    LbFacturaProveedor.Text = ObjCreditos.FacturaProveedor
                    LbFacturaSerieFolio.Text = ObjCreditos.FacturaSerieFolio
                    LbFacturaDescripcion.Text = ObjCreditos.FacturaDescripcion
                    LbFacturaFecha.Text = ObjCreditos.FacturaFecha.ToShortDateString
                    HLFacturaCompra.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={ObjCreditos.CveCompraFactura}"
                End If

                If ObjCreditos.CvePrePoliza > 0 Then
                    UpSaldo.Visible = True
                    LbFacturaFecha.Text = ObjCreditos.FacturaFecha.ToShortDateString
                    HLSaldoPrePoliza.NavigateUrl = $"/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={ObjCreditos.CvePrePoliza}"
                    LbSaldo.Text = $"Saldo <b>Acreedor</b> "

                    If ObjCreditos.GetBancosIEMovimientos(dr("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjCreditos.DtResultados.Rows.Count > 0 Then
                        LbSaldoAcreedor.Text = ObjCreditos.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 42").FormatoNumero
                        LbSaldoDocxPagar.Text = ObjCreditos.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 50").FormatoNumero
                    End If

                Else
                    HLAplicarSaldo.Visible = True
                End If


                If ObjCreditos.GetActivosFijosCreditos(CveCredito, -1) Then
                    DtAF = ObjCreditos.DtResultados
                    DtAF.Columns.Add("Estatus", GetType(Integer))
                    GvAF.DataSource = DtAF
                    GvAF.DataBind()
                End If

                If ObjCreditos.GetAnticiposCreditos(CveCredito, -1) Then
                    DtIE = ObjCreditos.DtResultados
                    DtIE.Columns.Add("Estatus", GetType(Integer))
                    GvIE.DataSource = DtIE
                    GvIE.DataBind()

                    If DtIE.Rows.Count > 0 Then
                        DivVinculaAnticipo.Visible = True
                        RBLAnticipo.SelectedValue = "1"
                    End If
                End If

                ''CARGA PAGO ANTICIPO - VIEJO
                'If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjCreditos.GetBancosIE(dr("CveIE").ToString, UsuarioActual.CveEmpresa) Then
                '    If ObjCreditos.DtResultados.Rows.Count = 1 Then
                '        TxtFechaDeposito.Text = ObjCreditos.DtResultados.Rows(0)("FechaDocumento").ToString

                '        DdlCuentaDeposito.SelectedValue = ObjCreditos.DtResultados.Rows(0)("CveCuenta").ToString
                '        DdlCuentaDeposito_SelectedIndexChanged(DdlCuentaDeposito, EventArgs.Empty)
                '    End If
                'Else
                '    UpPagoAnticipo.Visible = False
                'End If

                If dr("AplicaAnticipo").ToString = "True" Then
                    RBLAnticipo.SelectedValue = "1"
                    RBLAnticipo_SelectedIndexChanged(RBLAnticipo, EventArgs.Empty)
                End If

                'CARGA ANTICIPOS
                If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjCreditos.GetBancosIEMovimientos(dr("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
                    If ObjCreditos.DtResultados.Rows.Count > 0 Then
                        TxtVehiculoAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 53").Rows(0)("Importe").ToString.FormatoNumero
                        TxtComisionAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 54").Rows(0)("Importe").ToString.FormatoNumero
                        TxtSeguroAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 55").Rows(0)("Importe").ToString.FormatoNumero
                        Dim dtt As DataTable = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 58")
                        If dtt.Rows.Count > 0 Then
                            TxtFondoGarantia.Text = dtt.Rows(0)("Importe").ToString.FormatoNumero
                        End If

                    End If
                End If

                'CARGA CREDITO DETALLE
                If ObjCreditos.GetCreditosDetalle(CveCredito, -1) Then
                    If ObjCreditos.DtResultados.Rows.Count > 0 Then
                        TxtMensualidad.Text = ObjCreditos.DtResultados.Rows(0)("Mensualidad").ToString.FormatoNumero
                        DTAmortizacion = ObjCreditos.DtResultados
                        GvTA.DataSource = DTAmortizacion
                        GvAplicarGarantia.DataSource = ObjCreditos.DtResultados.FiltraParametros("Estatus = 1")

                        If DTAmortizacion.MAX("CveIE").ToEntero > 0 Then
                            BtnGenerar.Enabled = False
                        End If

                        If ObjCreditos.DtResultados.SUM("ImporteGarantia") > 0 Then
                            LbFondoGarantía.Text = (LbFondoGarantía.Text.ToDouble - ObjCreditos.DtResultados.SUM("ImporteGarantia")).FormatoNumero
                            GvTA.Columns(9).Visible = True
                            GvTA.Columns(10).Visible = True
                        End If

                    End If

                    GvTA.DataBind()
                    RowTA.Visible = True
                    UpGVDocumentos.Update()

                    GvAplicarGarantia.DataBind()
                    UpAplicarGarantia.Update()
                End If

            End If
        End If

        ObjCreditos.Dispose()
    End Sub
#End Region

#Region "  RBLS  "
    Protected Sub RBLAnticipo_SelectedIndexChanged(sender As Object, e As EventArgs)
        If RBLAnticipo.SelectedValue.ToEntero > 0 Then
            DivVinculaAnticipo.Visible = True
            TdBuscaAnticipo.Visible = True
        Else
            DivVinculaAnticipo.Visible = False
            TdBuscaAnticipo.Visible = False
            DdlCuentaDeposito.SelectedValue = "-1"
            DdlCuentaDeposito_SelectedIndexChanged(DdlCuentaDeposito, EventArgs.Empty)
        End If

        UpVinculaAnticipo.Update()
        UpRegistro.Update()
        RegistraScript("Sumador(1);")
    End Sub
    Private Sub RBLClasificacionContable_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLClasificacionContable.SelectedIndexChanged
        CargaCuentasContables()
    End Sub
#End Region

#Region " CARGA COMBOS | D D L S - C U E N T A S (BANCARIAS-DEPOSITO)"
    Private Sub CargaCuentasContables()

        If Not (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
            Exit Sub
        End If

        DdlCtaContable.Items.Clear()
        Dim IdCuentaPadre As Integer = If(RBLClasificacionContable.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(203).ToEntero, UsuarioActual.Empresa.Funcionalidad(202).ToEntero)

        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso IdCuentaPadre > 0 Then
            Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
            If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then
                DdlCtaContable.DataSource = ObjContabilidad.DtResultados
                DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
                DdlCtaContable.DataBind()
                UpCtaContable.Update()
            Else
                Alert("No se cargaron las Cuentas Contables. Por favor recargue la página", TipoMensaje.MsgAdvertencia)
            End If
            ObjContabilidad.Dispose()
        End If

    End Sub
    Private Sub CargaCuentasBancarias()
        DdlCuentaCredito.Items.Clear()
        DdlCuentaCredito.DataSource = DtCuentasBancarias.FiltraParametros(String.Format("CveTipoCuenta = {0} OR UsaTarjeta = 1", If(DdlTipoCredito.SelectedValue.ToEntero = 1, 7, 6)))
        DdlCuentaCredito.DataBind()
        DdlCuentaCredito.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
    Protected Sub DdlCuentaCredito_SelectedIndexChanged(sender As Object, e As EventArgs)
        Dim ObjCreditos As New ClsBancos
        Dim DtTemp As New DataTable

        If DdlCuentaCredito.SelectedValue = "-1" Then
            LtCCBanco.Text = ""
            LtCCCuenta.Text = ""
            LtCCLimiteCredito.Text = ""
            'LtCCSaldo.Text = ""
        Else
            If ObjCreditos.GetLineasCreditos(UsuarioActual.CveEmpresa) Then
                DtTemp = ObjCreditos.DtResultados.FiltraParametros(String.Format("CveCuenta = {0}", DdlCuentaCredito.SelectedValue.ToString.ToEntero))
                If DtTemp.Rows.Count = 1 Then
                    LtCCBanco.Text = DtTemp(0)("Banco").ToString
                    LtCCCuenta.Text = DtTemp(0)("NumCuenta").ToString
                    LtCCLimiteCredito.Text = DtTemp(0)("LimiteCredito").ToString.FormatoNumero
                    HdnCveProveedor.Value = DtTemp(0)("CveProveedor").ToString
                    'LtCCSaldo.Text = DtTemp(0)("Saldo").ToString.FormatoNumero

                    DdlCSTipoMoneda.SelectedValue = DtTemp(0)("CveMoneda").ToString

                    If DtTemp(0)("UsaTarjeta").ToString = "True" Then
                        CargaTarjetas()
                    Else
                        trTarjetas.Visible = False
                    End If

                Else
                    Alert("Ocurrio un error al carga la Linea de Crédito. Por favor intente nuevamente", TipoMensaje.MsgError)
                End If
            Else
                Alert("Ocurrio un error al carga la Linea de Crédito. Por favor intente nuevamente", TipoMensaje.MsgError)
            End If
        End If
    End Sub

    Private Sub CargaTarjetas()
        Dim ObjCreditos As New ClsBancos
        ObjCreditos.GetTarjetasCreditos(DdlCuentaCredito.SelectedValue.ToEntero)

        DdlTarjetaCredito.DataSource = ObjCreditos.DtResultados
        DdlTarjetaCredito.DataBind()

        UpCuentaCredito.Update()
        trTarjetas.Visible = True

        DdlTarjetaCredito.SelectedValueExist(CveCuentaTarjeta)

        ObjCreditos.Dispose()
    End Sub

    Protected Sub CargaCuentasDeposito()
        DdlCuentaDeposito.Items.Clear()
        DdlCuentaDeposito.DataSource = DtCuentasBancarias.FiltraParametros("CveTipoCuenta <> 7 And CveTipoCuenta <> 6")
        DdlCuentaDeposito.DataBind()
        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
    Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
        Dim DtTemp As New DataTable
        If DdlCuentaDeposito.SelectedValue.ToString = "-1" Then
            LtBancoDeposito.Text = ""
            LtTipoCuentaDeposito.Text = ""
            LtCuentaDeposito.Text = ""
        Else
            DtTemp = DtCuentasBancarias.FiltraParametros(String.Format("CveCuenta = {0}", DdlCuentaDeposito.SelectedValue.ToString.ToEntero))
            If DtTemp.Rows.Count = 1 Then
                LtBancoDeposito.Text = DtTemp.Rows(0)("Banco").ToString
                LtTipoCuentaDeposito.Text = DtTemp.Rows(0)("TipoCuenta").ToString
                LtCuentaDeposito.Text = DtTemp.Rows(0)("NumCuenta").ToString
            End If
        End If
    End Sub
    Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs)
        If DivVinculaAnticipo.Visible = True Then
            TxtPagueseA.Text = DdlProveedores.SelectedItem.Text
            'UpPagoAnticipo.Update()
        End If
    End Sub
#End Region

#Region "G U A R D A R - U P D A T E"
    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
        If CveCredito > 0 Then
            If DdlTipoCredito.SelectedValue.ToEntero > 2 Then
                UpdateCreditoComplejo()
            Else
                UpdateCreditoSimple()
            End If
        Else
            If DdlTipoCredito.SelectedValue.ToEntero > 2 Then
                GuardaCreditoComplejo()
            Else
                GuardaCreditoSimple()
            End If
        End If

    End Sub

    Private Sub GuardaCreditoSimple()
        If DdlTipoCredito.SelectedValue.ToEntero > 1 AndAlso TxtCSTotalCredito.Text.ToString.ToDouble <= 0 Then
            Alert("El total del credito debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim ObjCredito As New ClsBancos
        Dim ObjMov As New ClsContabilidad(ObjCredito.IniciaTransacSQL())
        Dim ErrorCredito = False
        Dim Folio As String = ""
        Dim CvePrePoliza As Integer = 0

        If CveCredito = -1 Then
            Dim TipoCreditoTemp = DdlTipoCredito.SelectedValue.ToEntero

            'Credito Revolvente -- ADD IE
            If TipoCreditoTemp = 2 AndAlso DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then
                Folio = ObjCredito.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8).ToString
                If Folio <> "" Then
                    CvePrePoliza = ObjMov.AddPrePolizas("Creditos", 2, 0, 0, 1, TxtFechaDeposito.Text.ToDate, TxtCSReferencia.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)

                    CveIE = ObjCredito.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                    If CveIE < 0 Then
                        ErrorCredito = True
                    End If
                    'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToString.ToDouble, "Crédito", 50, "", Now, 0, -1, CveIE, ImporteMX:=TxtCSTotalCredito.Text.ToString.ToDouble) Then
                    '    ErrorCredito = True
                    'End If
                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "", CveIE:=CveIE) Then
                        ErrorCredito = True
                    End If
                Else
                    ErrorCredito = True
                End If
            End If

            'Credito Generico
            If Not ErrorCredito Then
                Dim CveProveedor As Integer = -1

                If HdnCveProveedor.Value.ToEntero > 0 Then
                    CveProveedor = HdnCveProveedor.Value.ToEntero
                End If

                CveIE = ObjCredito.AddBancos_IE(DdlCuentaCredito.SelectedValue.ToString.ToEntero, 2, TxtFechaDeposito.Text.ToDate, Folio, LtBancoDeposito.Text, TxtCSTotalCredito.Text.ToString.ToDouble, 1, 1, "Credito Revolvente", "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                If CveIE < 0 Then
                    ErrorCredito = True
                End If
                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "Crédito") Then
                    ErrorCredito = True
                End If

                If ObjCredito.AddCreditos(TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate,
                                          TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra),
                                          -1, -1, -1, CveProveedor, RBLClasificacionContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero,
                                          AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) > 0 Then
                    'Dim Fecha = If(TipoCreditoTemp = 2, TxtCSFechaDeposito.Text.ToDate, TxtCSFechaVencimiento.Text.ToDate)
                    'For i = 1 To If(TipoCreditoTemp = 2, TxtCSPeriodos.Text.Trim.ToEntero, 1)
                    'DateAdd("d", TxtPlazo.Text.ToEntero, Fecha)
                    If Not ObjCredito.AddCreditosDetalle(ObjCredito.CveCredito, TxtCSFechaVencimiento.Text.ToDate, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToString.ToEntero, TotalCompra), 0.0, 0.0, 0.0, 0.0, 0.0, If(TipoCreditoTemp = 1, 101, 1)) Then
                        ErrorCredito = True
                        'Exit For
                    End If
                    'Next

                Else
                    ErrorCredito = True
                End If
            End If

        End If

        If Not ErrorCredito Then
            ObjCredito.Commit()
            ', TipoMensaje.MsgInformacion, String.Format("document.location.href=""/Bancos/CatCreditos.aspx?CveLineaCredito={0}"";", CveLineaCredito)
            Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepCreditos.aspx"";")
        Else
            ObjCredito.RollBack()
        End If

        ObjCredito.Dispose()
        ObjMov.Dispose()
    End Sub

    Private Sub UpdateCreditoSimple()
        If DdlTipoCredito.SelectedValue.ToEntero > 1 AndAlso TxtCSTotalCredito.Text.ToString.ToDouble <= 0 Then
            Alert("El total del credito debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim ObjCredito As New ClsBancos
        ObjCredito.IniciaTransacSQL()
        Dim ErrorCredito = False

        If CveCredito > 0 Then
            Dim TipoCreditoTemp = DdlTipoCredito.SelectedValue.ToEntero

            If ObjCredito.UpdateCreditos(CveCredito, TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate,
                                         TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra),
                                         -1, -1, -1, -1, RBLClasificacionContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero,
                                         AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) Then
                If Not ObjCredito.UpdateCreditosDetalle(ObjCredito.CveCredito, TxtCSFechaVencimiento.Text.ToDate, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToString.ToEntero, TotalCompra), 0.0, 0.0, 0.0, 0.0, 0.0, If(TipoCreditoTemp = 1, 101, 1)) Then
                    ErrorCredito = True
                End If
            Else
                ErrorCredito = True
            End If
        End If

        If Not ErrorCredito Then
            ObjCredito.Commit()
            Alert("El Crédito se Actualizo correctamente.", TipoMensaje.MsgInformacion)
        Else
            ObjCredito.RollBack()
        End If

        ObjCredito.Dispose()
    End Sub

    Private Sub GuardaCreditoComplejo()
        Dim TotalAnticipo = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble

        If TxtTotalCredito.Text.ToString.ToDouble <= 0 Then
            Alert("El total del credito debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
            Exit Sub
            'ElseIf TotalAnticipo > 0 AndAlso DdlCuentaDeposito.SelectedValue.ToEntero < 0 Then
            '    Alert("Se tiene que especificar de donde se pago el anticipo.", TipoMensaje.MsgAdvertencia)
            '    Exit Sub
        End If

        Dim ObjCredito As New ClsBancos
        Dim ObjMov As New ClsContabilidad(ObjCredito.IniciaTransacSQL())
        Dim ErrorCredito = False
        Dim folio = ""
        Dim CveIE = -1
        Dim CvePrePoliza = 0
        Dim CveMoneda As Integer = 1
        Dim FechaVencimiento = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate)
        FechaVencimiento = DateSerial(Year(FechaVencimiento), Month(FechaVencimiento) + 1, 0)

        'If (DdlTipoCredito.SelectedValue.ToEntero = 3 Or DdlTipoCredito.SelectedValue.ToEntero = 5) AndAlso HdnCveAF.Value.ToEntero > -1 Then
        '    Alert("Debe seleccionar un ActivoFijo")
        'End If

        If CveCredito = -1 Then

            ''Genera ANTICIPO -- Forma Antigua
            'Dim CvePrePoliza As Integer
            ''Insertar IE -- ANTICIPO
            'If TotalAnticipo > 0 Then
            '    folio = ObjCredito.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8).ToString
            '    If folio <> "" Then
            '        CvePrePoliza = ObjMov.AddPrePolizas("Banc", 2, TotalAnticipo, TotalAnticipo, 1, TxtFechaDeposito.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
            '        CveIE = ObjCredito.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToString.ToEntero, 8, TxtFechaDeposito.Text.ToDate, folio, TxtPagueseA.Text, TotalAnticipo, CveMoneda, 1, TxtReferencia.Text.Trim, "", True, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
            '        If CveIE < 0 Then
            '            ErrorCredito = True
            '        End If
            '    Else
            '        ErrorCredito = True
            '    End If
            'End If

            'Insertar en Creditos
            If Not ErrorCredito Then

                CveCredito = ObjCredito.AddCreditos(DdlTipoCredito.SelectedValue.ToEntero, TxtReferencia.Text, TxtObservaciones.Text, -1, -1, -1, DdlTipoMoneda.SelectedValue.ToEntero, TxtFechaInicio.Text.ToString.ToDate, FechaVencimiento, TxtTasa.Text.Trim.ToDouble, TxtSobreTasa.Text.Trim.ToDouble, TxtIVA.Text.ToDouble / 100,
                                          TxtPlazo.Text.Trim.ToEntero, CveIE, TxtVehiculoValor.Text.ToString.ToDouble, TxtComisionValor.Text.ToString.ToDouble, TxtSeguroMensual.Text.ToString.ToDouble, TxtOtrosGastosValor.Text.ToString.ToDouble,
                                          DdlProveedores.SelectedValue.ToEntero, RBLClasificacionContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False),
                                          CreditoAnticipo:=TxtVehiculoAnticipo.Text.ToDouble, ComisionAnticipo:=TxtComisionAnticipo.Text.ToDouble, SeguroAnticipo:=TxtSeguroAnticipo.Text.ToDouble, OtrosGastosAnticipo:=TxtOtrosGastosAnticipo.Text.ToDouble, FondoGarantia:=TxtFondoGarantia.Text.ToDouble, SeguroValor:=TxtSeguroValor.Text.ToDouble, TipoInteres:=ChkTipoInteres.Checked)
                If CveCredito > 0 Then
                    For Each gvr As GridViewRow In GvTA.Rows

                        If Not ObjCredito.AddCreditosDetalle(CveCredito, gvr.FCTextBox("TxtFecha").Text.ToDate, gvr.FCTextBox("TxtCapital").Text.ToDouble, gvr.FCTextBox("TxtIntereses").Text.ToDouble,
                                                             gvr.FCTextBox("TxtSeguro").Text.ToDouble, gvr.FCTextBox("TxtIVACapital").Text.ToDouble,
                                                              gvr.FCTextBox("TxtIVAIntereses").Text.ToDouble, gvr.FCTextBox("TxtIVASeguro").Text.ToDouble, 1) Then
                            ErrorCredito = True
                            Exit For
                        End If

                    Next
                Else
                    ErrorCredito = True
                End If

            End If

            'INSERTA AF
            If Not ErrorCredito Then
                For Each dr As DataRow In DtAF.Rows
                    If Not ObjCredito.AddActivosFijosCreditos(CveCredito, dr("CveActivoFijo").ToString.ToEntero) Then
                        ErrorCredito = True
                        Exit For
                    End If
                Next
            End If

            'INSERTA ANTICIPOS - IE
            If Not ErrorCredito Then
                For Each dr As DataRow In DtIE.Rows
                    If Not ObjCredito.AddAnticiposCreditos(CveCredito, dr("CveIE").ToString.ToEntero) Then
                        ErrorCredito = True
                        Exit For
                    End If
                Next
            End If





            ''Genera ANTICIPO -- Forma Antigua
            ''Insertar en Prepoliza
            'If Not ErrorCredito AndAlso CveIE > 0 Then

            '    If CvePrePoliza > 0 Then
            '        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtVehiculoAnticipo.Text.ToDouble, "Enganche", 53, "", Now, 0, -1, CveIE) Then
            '            ErrorCredito = True
            '        End If
            '        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtComisionAnticipo.Text.ToDouble, "Comisión", 54, "", Now, 0, -1, CveIE) Then
            '            ErrorCredito = True
            '        End If
            '        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtSeguroAnticipo.Text.ToDouble, "Seguro", 55, "", Now, 0, -1, CveIE) Then
            '            ErrorCredito = True
            '        End If
            '        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtFondoGarantia.Text.ToDouble, "Fondo en Garantía", 58, "", Now, 0, -1, CveIE) Then
            '            ErrorCredito = True
            '        End If
            '        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TotalAnticipo, "Banco", 30, "", Now, 0, -1, CveIE) Then
            '            ErrorCredito = True
            '        End If
            '    Else
            '        ErrorCredito = True
            '    End If
            'End If

        Else

            ''UPDATE
            'If ObjCredito.UpdateCreditos(-1, -1, HdnCveAF.Value.ToEntero, FechaVencimiento, TxtTasa.Text.Trim.ToDouble, TxtSobreTasa.Text.Trim.ToDouble, "-1", 2, TxtPlazo.Text.Trim.ToEntero, CveCredito) Then
            '    Alert("Los Cambios  se Guardaron Correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepCreditos.aspx"";")
            '    ObjCredito.Commit()
            '    ObjCredito.Dispose()
            '    Exit Sub
            'Else
            '    ErrorCredito = True
            'End If
        End If

        If Not ErrorCredito Then
            ObjCredito.Commit()
            ', TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepCreditos.aspx"";"
            Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepCreditos.aspx"";")
        Else
            ObjCredito.RollBack()
            Alert("Ocurrio un error al registrar el Crédito.", TipoMensaje.MsgError)
        End If
        ObjCredito.Dispose()
    End Sub

    Private Sub UpdateCreditoComplejo()
        Dim TotalAnticipo = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble
        Dim TotalAnticipoVinculado = 0.0

        If TxtTotalCredito.Text.ToString.ToDouble <= 0 Then
            Alert("El total del credito debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
            Exit Sub
            'ElseIf TotalAnticipo > 0 AndAlso DdlCuentaDeposito.SelectedValue.ToEntero < 0 Then
            '    Alert("Se tiene que especificar de donde se pagó el anticipo.", TipoMensaje.MsgAdvertencia)
            '    Exit Sub
        End If

        'RMF. Créditos sin desglosar el interes, y lo ingresa todo en capital, ignorar condición
        If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 126) Then
            Dim TotalDetalle As Double = GvTA.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.FCTextBox("TxtCapital").Text.ToDouble + gvr.FCTextBox("TxtSeguro").Text.ToDouble)
            If TotalDetalle > TxtTotalCredito.Text.ToString.ToDouble + 1 Or TotalDetalle < TxtTotalCredito.Text.ToString.ToDouble - 1 Then
                Alert($"El total de capital (más seguro financiado) no cuadra con el total a financiar, favor de corregir la información(${TotalDetalle.FormatoNumero})", TipoMensaje.MsgAdvertencia)
                Exit Sub
            End If
        End If


        'VALIDA ANTICIPOS VINCULADOS
        For Each dr As DataRow In DtIE.FiltraParametros("Estatus IN (0,1) Or Estatus Is null").Rows
            TotalAnticipoVinculado += dr("Importe").ToString.ToDouble
        Next

        If TotalAnticipoVinculado > TotalAnticipo Then
            Alert("El anticipo vinculado no puede exceder el anticipo especificado.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim ObjCredito As New ClsBancos
        ObjCredito.IniciaTransacSQL()
        Dim ErrorCredito = False
        'Dim CveIE = -1
        Dim CveMoneda As Integer = 1
        Dim FechaVencimiento = DateAdd("m", TxtPlazo.Text.ToDouble, TxtFechaInicio.Text.ToDate)
        FechaVencimiento = DateSerial(Year(FechaVencimiento), Month(FechaVencimiento) + 1, 0)

        If CveCredito > 0 Then
            If ObjCredito.UpdateCreditos(CveCredito, DdlTipoCredito.SelectedValue.ToEntero, TxtReferencia.Text, TxtObservaciones.Text, -1, -1, -1, DdlTipoMoneda.SelectedValue.ToEntero, TxtFechaInicio.Text.ToString.ToDate, FechaVencimiento, TxtTasa.Text.Trim.ToDouble, TxtSobreTasa.Text.Trim.ToDouble, TxtIVA.Text.ToDouble / 100,
                                      TxtPlazo.Text.Trim.ToEntero, -1, TxtVehiculoValor.Text.ToString.ToDouble, TxtComisionValor.Text.ToString.ToDouble, TxtSeguroMensual.Text.ToString.ToDouble, TxtOtrosGastosValor.Text.ToString.ToDouble,
                                      DdlProveedores.SelectedValue.ToEntero, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False),
                                      CreditoAnticipo:=TxtVehiculoAnticipo.Text.ToDouble, ComisionAnticipo:=TxtComisionAnticipo.Text.ToDouble, SeguroAnticipo:=TxtSeguroAnticipo.Text.ToDouble, OtrosGastosAnticipo:=TxtOtrosGastosAnticipo.Text.ToDouble, FondoGarantia:=TxtFondoGarantia.Text.ToDouble, SeguroValor:=TxtSeguroValor.Text.ToDouble, TipoInteres:=ChkTipoInteres.Checked) Then

                If RegeneraTablaAmortizacion Then
                    If ObjCredito.RemoveCreditosDetalleALL(CveCredito) Then
                        For Each gvr As GridViewRow In GvTA.Rows
                            If Not ObjCredito.AddCreditosDetalle(CveCredito, gvr.FCTextBox("TxtFecha").Text.ToString.ToDate, gvr.FCTextBox("TxtCapital").Text.ToString.ToDouble, gvr.FCTextBox("TxtIntereses").Text.ToString.ToDouble,
                                                                 gvr.FCTextBox("TxtSeguro").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVACapital").Text.ToString.ToDouble,
                                                                  gvr.FCTextBox("TxtIVAIntereses").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVASeguro").Text.ToString.ToDouble, 1) Then
                                ErrorCredito = True
                                Exit For
                            End If
                        Next
                    Else
                        ErrorCredito = True
                    End If
                Else
                    For Each gvr As GridViewRow In GvTA.Rows
                        If Not ObjCredito.UpdateCreditosDetalle(gvr.DataKey("CveCreditoDetalle").ToString.ToEntero, gvr.FCTextBox("TxtFecha").Text.ToString.ToDate, gvr.FCTextBox("TxtCapital").Text.ToString.ToDouble, gvr.FCTextBox("TxtIntereses").Text.ToString.ToDouble,
                                                             gvr.FCTextBox("TxtSeguro").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVACapital").Text.ToString.ToDouble,
                                                              gvr.FCTextBox("TxtIVAIntereses").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVASeguro").Text.ToString.ToDouble, -1) Then
                            ErrorCredito = True
                            Exit For
                        End If
                    Next
                End If


            Else
                ErrorCredito = True
            End If

            'INSERTA AF
            If Not ErrorCredito Then
                For Each dr As DataRow In DtAF.FiltraParametros("Estatus IN (1,2)").Rows
                    If dr("Estatus").ToString.ToEntero = 1 Then
                        If Not ObjCredito.AddActivosFijosCreditos(CveCredito, dr("CveActivoFijo").ToString.ToEntero) Then
                            ErrorCredito = True
                            Exit For
                        End If
                    Else
                        If Not ObjCredito.RemoveActivosFijosCreditos(CveCredito, dr("CveActivoFijo").ToString.ToEntero) Then
                            ErrorCredito = True
                            Exit For
                        End If
                    End If
                Next
            End If

            'INSERTA ANTICIPOS - IE
            If Not ErrorCredito Then
                For Each dr As DataRow In DtIE.FiltraParametros("Estatus IN (1,2)").Rows
                    If dr("Estatus").ToString.ToEntero = 1 Then
                        If Not ObjCredito.AddAnticiposCreditos(CveCredito, dr("CveIE").ToString.ToEntero) Then
                            ErrorCredito = True
                            Exit For
                        End If
                    Else
                        If Not ObjCredito.RemoveAnticiposCreditos(CveCredito, dr("CveIE").ToString.ToEntero) Then
                            ErrorCredito = True
                            Exit For
                        End If
                    End If
                Next
            End If

        End If

        If Not ErrorCredito Then
            ObjCredito.Commit()
            ', TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepCreditos.aspx"";"
            Alert("El Crédito se Actualizo correctamente.", TipoMensaje.MsgInformacion)
        Else
            ObjCredito.RollBack()
            Alert("Ocurrio un error al Actualizar el Crédito.", TipoMensaje.MsgError)
        End If
        ObjCredito.Dispose()
    End Sub
#End Region

#Region "  ELIMINAR  "
    Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
        Dim Cred As New ClsBancos

        If Cred.RemoveCreditos(CveCredito) Then
            Alert("Movimiento Eliminado", TipoMensaje.MsgInformacion)
        End If
        Cred.Dispose()
    End Sub
#End Region

#Region "G E N E R A - T A B L A - A M O R T I Z A C I O N"
    Protected Sub BtnGenerar_Click(sender As Object, e As EventArgs) Handles BtnGenerar.Click
        GenerarTabla()
    End Sub
    Private Sub CreaDTAmortizacion()
        If DTAmortizacion Is Nothing Then
            DTAmortizacion = New DataTable
            DTAmortizacion.Columns.Add("Periodo", GetType(Integer))
            DTAmortizacion.Columns.Add("Fecha", GetType(Date))
            DTAmortizacion.Columns.Add("Capital", GetType(Double))
            DTAmortizacion.Columns.Add("Intereses", GetType(Double))
            DTAmortizacion.Columns.Add("Seguro", GetType(Double))
            DTAmortizacion.Columns.Add("IVACapital", GetType(Double))
            DTAmortizacion.Columns.Add("IVAIntereses", GetType(Double))

            DTAmortizacion.Columns.Add("IVASeguro", GetType(Double))
            DTAmortizacion.Columns.Add("IVA", GetType(Double))

            DTAmortizacion.Columns.Add("Mensualidad", GetType(Double))
            DTAmortizacion.Columns.Add("SaldoInsoluto", GetType(Double))
            DTAmortizacion.Columns.Add("FechaPago", GetType(Date))

            DTAmortizacion.Columns.Add("CveCreditoDetalle", GetType(Integer))
            DTAmortizacion.Columns.Add("Estatus", GetType(Integer)) 'solo para el get
            DTAmortizacion.Columns.Add("CveIE", GetType(Integer)) 'solo para el get
            DTAmortizacion.Columns.Add("CveCompra", GetType(Integer)) 'solo para el get
            DTAmortizacion.Columns.Add("CveCompraInteres", GetType(Integer)) 'solo para el get


            DTAmortizacion.Columns.Add("MensualidadOriginal", GetType(Double)) 'solo para el get - agregadas el 20 Mayo 2017, ya lo traia get pero no el generar
            DTAmortizacion.Columns.Add("ImporteGarantia", GetType(Double)) 'solo para el get - agregadas el 20 Mayo 2017, ya lo traia get pero no el generar
            DTAmortizacion.Columns.Add("ImportePago", GetType(Double))

        End If
    End Sub
    Protected Sub GenerarTabla()
        If TxtTotalCredito.Text.ToString.ToDouble <= 0 Then
            Alert("El total del credito debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If
        Dim Tasa As Double = 0

        If TxtMensualidad.Text.ToDouble <= 0 Then
            Dim Mensualidad = Pmt((TxtTasa.Text.ToDouble / 100) / 12, TxtPlazo.Text.ToDouble, TxtTotalCredito.Text.ToDouble) * -1
            TxtMensualidad.Text = Mensualidad.ToString.FormatoNumero
        End If

        Try
            Tasa = Rate(TxtPlazo.Text.ToEntero, -1 * (TxtMensualidad.Text.ToDouble), TxtTotalCredito.Text.ToDouble)
        Catch ex As Exception
            Alert("La tasa no se puede calcular con los datos proporcionados. Por favor corrija los datos", TipoMensaje.MsgAdvertencia)
        End Try
        TxtTasa.ToolTip = Tasa.ToString
        'UpRegistro.Update()

        'TASA 0 PARA ARRENDAMIENTO PURO
        Tasa = If(CveTipoCredito = 4, 0, Tasa)

        Dim Row As DataRow = Nothing
        DTAmortizacion.Rows.Clear()


        Dim MensajeImportesIncorrectos As Boolean = False

        For i = 1 To TxtPlazo.Text.ToEntero
            Row = DTAmortizacion.NewRow()

            'Datos en comun
            Row("Periodo") = DTAmortizacion.Rows.Count + 1
            Row("Fecha") = TxtFechaInicio.Text.ToDate.AddMonths(i - 1)
            Row("Mensualidad") = TxtMensualidad.Text.ToDouble
            Row("Seguro") = TxtSeguroMensual.Text.ToDouble

            If CveTipoCredito = 4 Or DdlTipoCredito.SelectedValue.ToEntero = 4 Then
                Row("Intereses") = 0.0
                Row("Capital") = TxtMensualidad.Text.ToDouble / ((TxtIVA.Text.ToDouble / 100) + 1)
            Else
                Row("Intereses") = IPmt(Tasa, i.ToString.ToDouble, TxtPlazo.Text.ToDouble, TxtTotalCredito.Text.ToDouble) * -1
                Row("Capital") = PPmt(Tasa, i, TxtPlazo.Text.ToDouble, TxtTotalCredito.Text.ToDouble) * -1 'TxtMensualidad.Text.ToDouble - Row("Intereses").ToString.ToDouble
                'Row("Capital") = TxtMensualidad.Text.ToDouble - Row("Intereses").ToString.ToDouble
                ' Row("IVA") = 0.0
            End If

            Row("SaldoInsoluto") = If(i > 1, DTAmortizacion(i - 2)("SaldoInsoluto").ToString.ToDouble, TxtTotalCredito.Text.ToDouble) - If(i > 1, DTAmortizacion(i - 2)("Capital").ToString.ToDouble, 0)

            Row("IVACapital") = Row("Capital").ToString.ToDouble * TxtIVA.Text.ToDouble / 100
            Row("IVAIntereses") = Row("Intereses").ToString.ToDouble * TxtIVA.Text.ToDouble / 100
            Row("IVASeguro") = Row("Seguro").ToString.ToDouble * TxtIVA.Text.ToDouble / 100

            Row("ImportePago") = 0

            Row("Mensualidad") = Row("Capital").ToString.ToDecimal + Row("Intereses").ToString.ToDecimal + Row("Seguro").ToString.ToDecimal + Row("IVACapital").ToString.ToDecimal + Row("IVAIntereses").ToString.ToDecimal + Row("IVASeguro").ToString.ToDecimal

            Dim ImporteMensualidad As Decimal = Row("Capital").ToString.ToDecimal + Row("Intereses").ToString.ToDecimal + Row("Seguro").ToString.ToDecimal + Row("IVACapital").ToString.ToDecimal + Row("IVAIntereses").ToString.ToDecimal + Row("IVASeguro").ToString.ToDecimal

            Dim diferencia As Decimal = Math.Abs(ImporteMensualidad - TxtMensualidad.Text.ToDecimal)
            If diferencia > 1 And Not MensajeImportesIncorrectos Then
                Alert("El calculo de la mensualiadad  Capital, Interes, seguro, IVA Capital, IVA Interes, IVA Seguro no coincide.", TipoMensaje.MsgAdvertencia)
                MensajeImportesIncorrectos = True
            End If


            DTAmortizacion.Rows.Add(Row)

        Next

        RegeneraTablaAmortizacion = True
        GvTA.DataSource = DTAmortizacion
        GvTA.DataBind()
        RowTA.Visible = True
        UpGVDocumentos.Update()

        BtnGuardar.Enabled = True
        UpGuardar.Update()
    End Sub
    Protected Sub GvTA_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvTA.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            e.Row.FCTextBox("TxtCapital").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CTabla({0}, 1);", e.Row.RowIndex))
            e.Row.FCTextBox("TxtIntereses").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CTabla({0},2);", e.Row.RowIndex))
            e.Row.FCTextBox("TxtSeguro").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CTabla({0},3);", e.Row.RowIndex))

            If CveCredito > 0 Then

                If e.Row.DBCampo("Estatus").ToEntero = 1 Or e.Row.DBCampo("Estatus").ToEntero = 4 Or e.Row.DBCampo("Estatus").ToEntero = 101 Or e.Row.DBCampo("Estatus").ToEntero = 102 Then

                    e.Row.FCHyperLink("HLAccion").NavigateUrl = String.Format("/Bancos/IE.aspx?Opcion=EGSCREDITO&CveCredito={0}&CveCreditoDetalle={1}", CveCredito, e.Row.DBCampo("CveCreditoDetalle"))
                    e.Row.FCHyperLink("HLAccion").Text = "<img src='/Imagenes/Money_Add.png' alt='Pagar periodo' />"

                ElseIf e.Row.DBCampo("Estatus").ToEntero = 2 Or e.Row.DBCampo("Estatus").ToEntero = 103 Then
                    BtnGenerar.Enabled = False
                Else
                    'e.Row.FCHyperLink("HLAccion").NavigateUrl = "#"
                    e.Row.FCHyperLink("HLAccion").Text = ""
                End If


            Else
                GvTA.Columns(10).Visible = False
            End If
        End If

        If e.Row.RowType = DataControlRowType.Footer Then
            If GvTA.DataSource IsNot Nothing Then
                e.Row.FCLabel("LblTot2").Text = DirectCast(GvTA.DataSource, DataTable).SUM("Capital").FormatoNumero
                e.Row.FCLabel("LblTot3").Text = DirectCast(GvTA.DataSource, DataTable).SUM("Intereses").FormatoNumero
                e.Row.FCLabel("LblTot4").Text = DirectCast(GvTA.DataSource, DataTable).SUM("Seguro").FormatoNumero
                e.Row.FCLabel("LblTot5").Text = DirectCast(GvTA.DataSource, DataTable).SUM("IVACapital").FormatoNumero
                e.Row.FCLabel("LblTot6").Text = DirectCast(GvTA.DataSource, DataTable).SUM("IVAIntereses").FormatoNumero
                e.Row.FCLabel("LblTot7").Text = DirectCast(GvTA.DataSource, DataTable).SUM("IVASeguro").FormatoNumero
            End If
        End If

    End Sub
#End Region

#Region "V I N C U L A - A F"
    Private Sub CreaDtAF()
        DtAF = New DataTable
        DtAF.Columns.Add("CveCredito", GetType(Integer))
        DtAF.Columns.Add("CveActivoFijo", GetType(Integer))
        DtAF.Columns.Add("Codigo", GetType(String))
        DtAF.Columns.Add("Descripcion", GetType(String))
        DtAF.Columns.Add("TipoActivoFijo", GetType(String))
        DtAF.Columns.Add("Estatus", GetType(Integer))
        DtAF.Columns.Add("valorCompra", GetType(Double))
    End Sub
    Protected Sub ImgAF_Click(sender As Object, e As ImageClickEventArgs)
        RegistraScript(String.Format("AbrirVentana('/AF/PopUpBuscarAF.aspx?Tipo=C',750,500,'N');", "aa"))
    End Sub
    Protected Sub BtnVincularAF_Click(sender As Object, e As EventArgs)
        VinculaAF()
    End Sub

    Private Sub CargarAF()
        'If HdnCveAF.Value <> "-1" AndAlso IsNumeric(HdnCveAF.Value) AndAlso HdnCveAF.Value.ToEntero > 0 Then
        '    Dim ObjAF As New ClsAF
        '    If ObjAF.GetActivosFijos(HdnCveAF.Value.ToString.ToEntero, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "") Then

        '        If DtAF Is Nothing Then
        '            DtAF = ObjAF.DtResultados.Clone
        '        End If
        '        Dim RowAF2 = ObjAF.DtResultados.Rows(0)

        '        TxtAF.Text = RowAF2("CodDesc").ToString
        '        LtCodigoAF.Text = RowAF2("Codigo").ToString
        '        LtDescripcionAF.Text = RowAF2("Descripcion").ToString
        '        LtFechaAF.Text = RowAF2("FechaCompra").ToString.Substring(1, 10)
        '        LtValorCompraAF.Text = RowAF2("ValorCompra").ToString.FormatoNumero

        '        BtnConfimaAF.Visible = True
        '    End If
        '    ObjAF.Dispose()
        'Else
        'End If
    End Sub
    Protected Sub BtnConfimaAF_Click(sender As Object, e As EventArgs)
        VinculaAF()
    End Sub
    Private Sub VinculaAF()
        Dim RowAF As DataRow
        Dim ObjAF As New ClsAF
        If ObjAF.GetActivosFijos(HdnCveAF.Value.ToString.ToEntero, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1) AndAlso ObjAF.DtResultados.Rows(0) IsNot Nothing Then
            RowAF = ObjAF.DtResultados.Rows(0)
        Else
            Alert("Ocurrió un error al vincular el Activo Fijo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
            Exit Sub
        End If
        ObjAF.Dispose()


        Dim Repetido = False

        'Valida si ya esta vinculado el AF
        For Each dr As DataRow In DtAF.Rows
            If dr("CveActivoFijo").ToString = RowAF("CveActivoFijo").ToString Then
                Repetido = True
                Exit For
            End If
        Next

        If Repetido Then
            'Valida si esta escondido
            For Each dr As DataRow In DtAF.FiltraParametros("Estatus IN (2,3)").Rows
                If dr("CveActivoFijo").ToString = RowAF("CveActivoFijo").ToString Then
                    dr("Estatus") = If(dr("Estatus").ToString.ToEntero = 2, 0, 1)
                    Repetido = False
                    Exit For
                End If
            Next

            If Repetido Then
                Alert("El Activo Fijo que intenta vincular ya se encuentra vinculado.", TipoMensaje.MsgAdvertencia)
            End If
        Else
            'DtAF.ImportRow(RowAF)

            Dim Row As DataRow = Nothing
            Row = DtAF.NewRow()

            Row("CveCredito") = -1
            Row("CveActivoFijo") = RowAF("CveActivoFijo")
            Row("Codigo") = RowAF("Codigo")
            Row("Descripcion") = RowAF("Descripcion")
            Row("TipoActivoFijo") = RowAF("TipoActivoFijo")
            Row("valorCompra") = RowAF("valorCompra")
            Row("Estatus") = 1

            DtAF.Rows.Add(Row)
        End If

        ''Limpia
        'TxtAF.Text = ""
        'LtCodigoAF.Text = ""
        'LtDescripcionAF.Text = ""
        'LtFechaAF.Text = ""
        'LtValorCompraAF.Text = ""

        GvAF.DataSource = DtAF.FiltraParametros("Estatus IN (0,1) OR Estatus is null")
        GvAF.DataBind()
        UpActivoFijo.Update()
        'BtnConfimaAF.Visible = False
    End Sub
    Protected Sub GvAF_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvAF.RowDeleting
        Dim DbRow As DataRow = Nothing
        DbRow = DtAF.Rows(e.RowIndex)

        DbRow("Estatus") = If(DbRow("Estatus").ToString.ToEntero = 0, 2, -1)

        'Elimina el agrega en el momento
        If DbRow("Estatus").ToString.ToEntero = -1 Then
            DtAF.Rows.Remove(DbRow)
        End If

        GvAF.DataSource = DtAF.FiltraParametros("Estatus IN (0,1) OR Estatus is null")
        GvAF.DataBind()
    End Sub
#End Region

#Region "   V I N C U L A - A N T I C I P O - I E"
    Private Sub CreaDtIE()
        DtIE = New DataTable
        DtIE.Columns.Add("CveCredito", GetType(Integer))
        DtIE.Columns.Add("CveIE", GetType(Integer))
        DtIE.Columns.Add("CveCuenta", GetType(Integer))
        DtIE.Columns.Add("NumCuenta", GetType(String))
        DtIE.Columns.Add("Folio", GetType(Integer))
        DtIE.Columns.Add("FechaDocumento", GetType(String))
        DtIE.Columns.Add("Importe", GetType(Double))
        DtIE.Columns.Add("Moneda", GetType(String))
        DtIE.Columns.Add("Estatus", GetType(Integer))
    End Sub
    Protected Sub ImgAnticipo_Click(sender As Object, e As ImageClickEventArgs)
        RegistraScript(String.Format("AbrirVentana('/Bancos/PopUpBuscarIE.aspx?OPCION=Creditos',750,500,'N');", "aa"))
    End Sub
    Protected Sub BtnVincularIE_Click(sender As Object, e As EventArgs)
        VinculaIE()
    End Sub
    Private Sub CargaIE()
        If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then
            Dim ObjBancosIE As New ClsBancos

            If ObjBancosIE.GetBancosIE(HdnCveIE.Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then

                If DtIE Is Nothing Then
                    DtIE = ObjBancosIE.DtResultados.Clone
                End If

                Dim RowIE = ObjBancosIE.DtResultados.Rows(0)

                LtBancoIE.Text = RowIE("Banco").ToString
                LtCuentaIE.Text = RowIE("NumCuenta").ToString
                LtFolioIE.Text = RowIE("Folio").ToString
                LtFechaIE.Text = RowIE("FechaDocumento").ToString.Substring(1, 10)
                LtImporteIE.Text = RowIE("Importe").ToString.FormatoNumero
                LtMonedaIE.Text = RowIE("Moneda").ToString.FormatoNumero

                BtnConfirmaIE.Visible = True
            End If
            ObjBancosIE.Dispose()
        Else
        End If
    End Sub
    Protected Sub BtnConfirmaIE_Click(sender As Object, e As EventArgs)
        VinculaIE()
    End Sub
    Private Sub VinculaIE()
        Dim RowIE As DataRow = Nothing

        Dim ObjBancosIE As New ClsBancos
        If ObjBancosIE.GetBancosIE(HdnCveIE.Value.ToString.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjBancosIE.DtResultados.Rows IsNot Nothing Then
            RowIE = ObjBancosIE.DtResultados.Rows(0)
        End If
        ObjBancosIE.Dispose()

        Dim Repetido = False

        Dim TotalAnticipoVinculado = 0.0
        Dim TotalAnticipo = TxtVehiculoAnticipo.Text.ToDouble + TxtComisionAnticipo.Text.ToDouble + TxtSeguroAnticipo.Text.ToDouble

        For Each dr As DataRow In DtIE.FiltraParametros("Estatus IN (0,1) OR Estatus is null").Rows
            TotalAnticipoVinculado += dr("Importe").ToString.ToDouble
        Next
        TotalAnticipoVinculado += RowIE("Importe").ToString.ToDouble


        Dim TotalAnticipoMasTolerancia As Decimal = TotalAnticipo.ToDecimal + (TotalAnticipo * 0.16).ToDecimal

        If TotalAnticipoVinculado > TotalAnticipoMasTolerancia Then
            Alert($"El anticipo vinculado ({TotalAnticipoVinculado.ToString("###,###,###.00")}) no puede exceder el anticipo especificado ({TotalAnticipoMasTolerancia.ToString("###,###,###.00")} tolerancia de 16% incluida).", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        'Valida si ya esta vinculado el Anticipo
        For Each dr As DataRow In DtIE.Rows
            If dr("CveIE").ToString = RowIE("CveIE").ToString Then
                Repetido = True
                Exit For
            End If
        Next

        If Repetido Then
            'Valida si esta escondido
            For Each dr As DataRow In DtIE.FiltraParametros("Estatus IN (2,3)").Rows
                If dr("CveIE").ToString = RowIE("CveIE").ToString Then
                    dr("Estatus") = If(dr("Estatus").ToString.ToEntero = 2, 0, 1)
                    Repetido = False
                    Exit For
                End If
            Next

            If Repetido Then
                Alert("El Anticipo que intenta vincular ya se encuentra vinculado.", TipoMensaje.MsgAdvertencia)
            End If
        Else
            'DtIE.ImportRow(RowIE)

            Dim Row As DataRow = Nothing
            Row = DtIE.NewRow()

            Row("CveCredito") = -1
            Row("CveIE") = RowIE("CveIE")
            Row("CveCuenta") = RowIE("CveCuenta")
            Row("NumCuenta") = RowIE("NumCuenta")
            Row("Folio") = RowIE("Folio")
            Row("FechaDocumento") = RowIE("FechaDocumento")
            Row("Importe") = RowIE("Importe")
            Row("Moneda") = RowIE("Moneda")
            Row("Estatus") = 1

            DtIE.Rows.Add(Row)
        End If

        'Limpia
        LtBancoIE.Text = ""
        LtCuentaIE.Text = ""
        LtFolioIE.Text = ""
        LtFechaIE.Text = ""
        LtImporteIE.Text = ""
        LtMonedaIE.Text = ""

        GvIE.DataSource = DtIE.FiltraParametros("Estatus IN (0,1) OR Estatus is null")
        GvIE.DataBind()
        BtnConfirmaIE.Visible = False

        RegistraScript("Sumador(1);")

    End Sub
    Protected Sub GvIE_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvIE.RowDeleting
        Dim DbRow As DataRow = Nothing
        DbRow = DtIE.Rows(e.RowIndex)

        DbRow("Estatus") = If(DbRow("Estatus").ToString.ToEntero = 0, 2, -1)

        'Elimina el agrega en el momento
        If DbRow("Estatus").ToString.ToEntero = -1 Then
            DtIE.Rows.Remove(DbRow)
        End If

        GvIE.DataSource = DtIE.FiltraParametros("Estatus IN (0,1) OR Estatus is null")
        GvIE.DataBind()
    End Sub
#End Region

#Region "V I N C U L A - C O M P R A"
    Protected Sub ImgBtnBuscarOC_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarCompra.Click
        RegistraScript(String.Format("AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?opt=Fact',750,500,'N');", "aa"))
    End Sub
    Protected Sub BtnBuscarCompra_Click(sender As Object, e As EventArgs) Handles BtnBuscarCompra.Click
        VinculaCompra()
    End Sub
    Private Sub VinculaCompra()
        If HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0 Then
            Dim ObjCompras As New ClsCompras
            If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
                LtlProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
                LtlFecha.Text = ObjCompras.DtResultados.Rows(0)("Fecha").ToString.ToDate.ToShortDateString
                LtlSerieFolio.Text = If(ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString.Length > 0, ObjCompras.DtResultados.Rows(0)("Serie").ToString & "-" & ObjCompras.DtResultados.Rows(0)("Folio").ToString, ObjCompras.DtResultados.Rows(0)("Folio").ToString)
                CveCompra = HdnCveCompra.Value.ToEntero
                TotalCompra = ObjCompras.DtResultados.Rows(0)("Total").ToString.ToDouble
            End If
            ObjCompras.Dispose()
        Else
        End If
    End Sub
#End Region

#Region "  APLICAR GARANTIA  "
    Protected Sub GvAplicarGarantia_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then

            e.Row.FCTextBox("TxtPago").Attributes.Add("onkeyup", String.Format("ValidaCantidad({0},{1});", e.Row.FCTextBox("TxtPago").ClientID, e.Row.DBCampo("Mensualidad")))

        End If
    End Sub
    Protected Sub BtnAplicarGarantia_Click(sender As Object, e As EventArgs)
        Dim ImporteVinculado = 0.0

        For Each Gvr As GridViewRow In GvAplicarGarantia.Rows
            If Gvr.FCTextBox("TxtPago").Text.ToDecimal > 0 Then
                ImporteVinculado += Gvr.FCTextBox("TxtPago").Text.ToDouble
            End If
        Next

        If ImporteVinculado > LbFondoGarantía.Text.ToDouble Then
            Alert("El importe a aplicar de garantia debe ser menor o igual al fondo en garantía. Rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim ObjBancos As New ClsBancos
        ObjBancos.IniciaTransacSQL()
        Dim TieneError = False

        For Each Gvr As GridViewRow In GvAplicarGarantia.Rows
            If Gvr.FCTextBox("TxtPago").Text.ToDecimal > 0 Then
                If Not ObjBancos.AplicarGarantiaCreditos(Gvr.DataKey("CveCreditoDetalle").ToString.ToEntero, Gvr.FCTextBox("TxtPago").Text.ToDouble) Then
                    TieneError = True
                    Exit For
                End If
            End If
        Next

        If Not TieneError Then
            ObjBancos.Commit()
            Alert("Se aplico correctamente el fondo de garantía al crédito")
        Else
            ObjBancos.RollBack()
            Alert("Ocurrió un error al aplicar el fondo de garantia al crédito. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If

        ObjBancos.Dispose()
    End Sub

#End Region

#Region "  APLICAR SALDO  "
    Protected Sub BtnAplicarSaldo_Click(sender As Object, e As EventArgs)

        'If Not DdlCtaContable.SelectedValue.ToEntero > 0 Then
        '    Alert("Es necesario indicar la cuenta contable del crédito en la sección de <b>""Entidad Financiera""</b>. ", TipoMensaje.MsgAdvertencia)
        '    Exit Sub
        'End If

        Dim ObjContabilidad As New ClsContabilidad()
        Dim ObjProveedor As New ClsCompProveedores(ObjContabilidad.IniciaTransacSQL())
        Dim ObjBancos As New ClsBancos(ObjContabilidad.IniciaTransacSQL())
        Dim ErrorPrePoliza = False
        Dim CvePrePoliza = 0

        'GENERA PREPOLIZA


        Dim importeMovimiento = 0.0D
        Dim ConceptoContable = 0
        Dim TipoMovimiento = False
        Dim Concepto = ""
        Dim Referencia = $"Crédito: {TxtReferencia.Text}"
        Dim FechaMovimiento = Now.ToDate
        Dim MsgError As String = ""

        CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        Dim ImporteDocXPagar = TxtTotalCredito.Text.ToDecimal
        Dim CveProveedor = -1
        Dim CveCreditoPrePoliza = -1

        If CvePrePoliza > 0 Then
            importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.ToDecimal  'importe financiado
            Concepto = $"Crédito: {TxtReferencia.Text}"
            Dim Pago As New CompraPago
            Pago.Fecha = Now
            Pago.CveIE = CveIE

            Dim ObjCompra As New ClsCompras

            If ObjCompra.GetCompras(DdlCompras.SelectedValue.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
                Dim dr As DataRow = ObjCompra.DtResultados.FiltroPrimero("")
                Dim CompraActual As New Compra
                CompraActual.CveCompra = dr("CveCompra").ToString.ToEntero
                CompraActual.CveTipoConceptoProveedor = dr("CveTipoConcepto").ToString.ToEntero
                CompraActual.CveProveedor = dr("CveProveedor").ToString.ToEntero
                CompraActual.CveMoneda = dr("CveMoneda").ToString.ToEntero
                CompraActual.Fecha = dr("Fecha").ToString.ToDate
                CompraActual.SerieFolio = dr("SerieFolio").ToString
                CompraActual.ProveedorNombre = dr("RazonSocial").ToString
                CompraActual.TC = dr("TipoCambioOriginal").ToString.ToDecimal
                CompraActual.Total = dr("Total").ToString.ToDecimal
                CompraActual.IVA = dr("IVA").ToString.ToDecimal
                CompraActual.IVADeducible = dr("IVADeducible").ToString.ToDecimal
                CompraActual.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal
                CompraActual.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero
                CompraActual.IEPS = dr("IEPS").ToString.ToDecimal
                CompraActual.RetIVA = dr("RetIVA").ToString.ToDecimal
                CompraActual.RetISR = dr("RetISR").ToString.ToDecimal
                CompraActual.CveConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero
                CompraActual.CveConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero
                CompraActual.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
                CompraActual.EsImportacion = dr("EsImportacion").ToString = "1"
                CompraActual.UsuarioActual = UsuarioActual
                CompraActual.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
                Pago.CveMonedaPago = CompraActual.CveMoneda
                Pago.ImportePago = importeMovimiento

                If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjContabilidad) Then
                    MsgError = "No se pudo insertar la póliza"
                    ErrorPrePoliza = True
                End If

                If Not ErrorPrePoliza Then
                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMovimiento, 50, Referencia, Concepto, CveProveedor:=CveProveedor, CveCredito:=CveCreditoPrePoliza) Then
                        MsgError = "No se pudo insertar la póliza"
                        ErrorPrePoliza = True
                    End If
                End If

            End If



            'For Each Row As DataRow In DtPlantilla.Rows
            '    ConceptoContable = Row("CveConcepto").ToString.ToEntero
            '    TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
            '    importeMovimiento = 0

            '    CveActivoFijo = -1
            '    CveProveedor = -1
            '    CveCreditoPrePoliza = -1

            '    Select Case ConceptoContable
            '        Case 50
            '            importeMovimiento = ImporteDocXPagar
            '            CveCreditoPrePoliza = CveCredito
            '            CveProveedor = DdlProveedores.SelectedValue.ToEntero
            '        Case 42
            '            importeMovimiento = ImporteDocXPagar
            '            If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlAcreedorPrePoliza.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) AndAlso ObjProveedor.DtResultados.Rows.Count > 0 Then
            '                CveProveedor = ObjProveedor.CveProveedor
            '            End If
            '    End Select
            '    If importeMovimiento <> 0 Then
            '        If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, 0, -1, ImporteMX:=importeMovimiento, CveProveedor:=CveProveedor, CveCredito:=CveCreditoPrePoliza) Then
            '            ErrorPrePoliza = True
            '        End If
            '    End If
            'Next
        Else
            MsgError = "No se registró la prepóliza"
        End If

        If Not ErrorPrePoliza Then
            If Not ObjBancos.UpdateCreditosPrePoliza(CveCredito, CvePrePoliza) Then
                MsgError = "."
                ErrorPrePoliza = True
            End If
        End If

        If ErrorPrePoliza Then
            ObjContabilidad.RollBack()
            Alert("Ocurrió un error al aplicar el saldo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        Else
            ObjContabilidad.Commit()
            Alert("El saldo se aplicó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepCreditos.aspx"";")
        End If

    End Sub

    Private Sub DdlAcreedorPrePoliza_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAcreedorPrePoliza.SelectedIndexChanged
        If DdlAcreedorPrePoliza.SelectedValue.ToEntero > 0 Then
            Dim ObjCompras As New ClsCompras

            DdlCompras.ClearSelection()
            If ObjCompras.GetCompras(-1, "-1", "-1", DdlAcreedorPrePoliza.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
                DdlCompras.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0")
            Else
                DdlCompras.DataSource = Nothing
            End If
            ObjCompras.Dispose()
            DdlCompras.DataBind()
            DdlCompras.Items.Insert(0, New ListItem("  -  ", "-1"))
        End If
    End Sub
#End Region


End Class