SIG/Bancos/ProductosFinancieros.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
Partial Class Bancos_ProductosFinancieros
    Inherits ClsPaginas

#Region "  PROPIEDADES  "
    Private Property DtPresupuestosEgresos As DataTable
        Get
            Return CType(ViewState("DtPresupuestosEgresos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtPresupuestosEgresos") = value
        End Set
    End Property
    Private Property DtPresupuestosIngresos As DataTable
        Get
            Return CType(ViewState("DtPresupuestosIngresos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtPresupuestosIngresos") = value
        End Set
    End Property
    Private Property CvePresupuestoEgresos As Integer
        Get
            Return ViewState("CvePresupuestoEgresos").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CvePresupuestoEgresos") = value
        End Set
    End Property
    Private Property CvePresupuestoIngresos As Integer
        Get
            Return ViewState("CvePresupuestoIngresos").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CvePresupuestoIngresos") = value
        End Set
    End Property
    Private Property Opcion As String
        Get
            Return ViewState("Opcion").ToString
        End Get
        Set(value As String)
            ViewState("Opcion") = value
        End Set
    End Property

#Region "PROPIEDADES - AC NEW"
    Private Property DtPresupuestos As DataTable
        Get
            Return CType(ViewState("DtPresupuestos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtPresupuestos") = value
        End Set
    End Property
    Private Property EjercicioAC As Integer
        Get
            Return ViewState("EjercicioAC").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("EjercicioAC") = value
        End Set
    End Property
    Private Property IDCtaBeneficiario As Integer
        Get
            Return ViewState("IDCtaBeneficiario").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("IDCtaBeneficiario") = value
        End Set
    End Property
#End Region

#End Region
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Opcion = "-1"
            If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString <> "" Then
                Opcion = Request("Opcion").ToString
                If Opcion = "OE" Then
                    LtTitulo.Text = "Otros Egresos Presupuestales"
                End If
            End If
            ActivaAC()
            CargaDatos()
        End If
    End Sub

#Region "SELECTED INDEX CHANGE"
    Protected Sub DdlTipoMovimiento_SelectedIndexChanged(sender As Object, e As EventArgs)
        TrPI.Visible = False
        TrPE.Visible = False
        If UsuarioActual.Empresa.UsaAC Then
            If DdlTipoMovimiento.SelectedValue = "15" Or DdlTipoMovimiento.SelectedValue = "17" Then
                TrPE.Visible = True
            ElseIf DdlTipoMovimiento.SelectedValue = "16" Then
                TrPI.Visible = True
            End If
        End If
        If DdlTipoMovimiento.SelectedValue = "16" Then
            DivRetISR.Visible = True
        Else
            DivRetISR.Visible = False
        End If
    End Sub

#End Region

#Region "  CARGA DATOS  "
    Private Sub CargaDatos()
        CargaCuentas()
        CargaTipoMovimientos()
        CargaTipoTrasaccion()
    End Sub
    Private Sub CargaCuentas()
        DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlCuentas.DataBind()
        DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
    Private Sub CargaTarjetas()
        Dim ObjCreditos As New ClsBancos
        ObjCreditos.GetTarjetasCreditos(DdlCuentas.SelectedValue.ToEntero)

        DdlTarjeta.Items.Clear()
        DdlTarjeta.DataSource = ObjCreditos.DtResultados
        DdlTarjeta.DataBind()
        DdlTarjeta.Items.Insert(0, New ListItem("Seleccione", "-1"))

        ObjCreditos.Dispose()
        DivTarjeta.Visible = True
    End Sub

    Private Sub CargaTipoMovimientos()
        If Opcion = "OE" Then
            DdlTipoMovimiento.Items.Insert(0, New ListItem("Pago Seguridad Social", "19"))
            DdlTipoMovimiento.Items.Insert(0, New ListItem("Seleccione", "-1"))
        Else
            DdlTipoMovimiento.DataSource = GlobalDTContaPlantillasPolizas(1, -1).FiltraParametros("CvePlantillaPoliza IN (15,16,17,50,67)")
            DdlTipoMovimiento.DataBind()
            DdlTipoMovimiento.Items.Insert(0, New ListItem("Seleccione", "-1"))
        End If
    End Sub

    Private Sub CargaTipoTrasaccion()
        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones() '.FiltraParametros("Tipo='Egs'")
        DdlTipoTransaccion.DataBind()
        DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub

#End Region

#Region "  AC  "
    Private Sub ActivaAC()
        If UsuarioActual.Empresa.UsaAC Then
            HdnEjercicioAC.Value = UsuarioActual.Empresa.EjercicioActual.ToString
            CargaPresupuestoEgresos(UsuarioActual.Empresa.EjercicioActual)
            CargaPresupuestoIngresos()
            LtEjercioTitulo.Visible = True
            LtEjercicio.Text = UsuarioActual.Empresa.EjercicioActual.ToString
            TxtFecha.Attributes.Add("onchange", "CambiaFecha();")
        End If
    End Sub
    Protected Sub BtnCambiaFecha_Click(sender As Object, e As EventArgs)
        If UsuarioActual.Empresa.UsaAC Then
            Dim AC As New ClsAC
            If AC.GetPresupuestoEgresos(-1, True, HdnEjercicioAC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
                DtPresupuestosEgresos = AC.DtResultados.Copy
            Else
                Alert("Ocurrio un error al cargar los Presupuestos de Egresos. Por favor vuelva a cargar la página.", TipoMensaje.MsgError)
            End If
            AC.Dispose()
            If DtPresupuestosEgresos.Rows.Count > 0 Then
                DdlACGeneral1.DataSource = DtPresupuestosEgresos.FiltraParametros("", DistinctColumns:={"CveProgramaOperativo", "ProgramaOperativo"})
                DdlACGeneral1.DataBind()

                CalculaSaldoAC()
            End If
        End If
        LtEjercicio.Text = HdnEjercicioAC.Value
    End Sub

#Region "  PRESUPUESTO EGRESOS  "
    Private Sub CargaPresupuestoEgresos(EjercicioActual As Integer)
        If UsuarioActual.Empresa.UsaAC Then
            Dim AC As New ClsAC
            If AC.GetPresupuestoEgresos(-1, True, EjercicioActual, UsuarioActual.CveEmpresa) Then
                DtPresupuestosEgresos = AC.DtResultados.Copy
            Else
                Alert("Ocurrio un error al cargar los Presupuestos de Egresos. Por favor vuelva a cargar la página.", TipoMensaje.MsgError)
            End If
            AC.Dispose()
            If DtPresupuestosEgresos.Rows.Count > 0 Then
                CargaDdlsAC()
                CalculaSaldoAC()
            End If
        End If
    End Sub

    Private Sub CargaDdlsAC()
        'Panel General
        DdlACGeneral1.DataSource = DtPresupuestosEgresos.FiltraParametros("", DistinctColumns:={"CveProgramaOperativo", "ProgramaOperativo"})
        DdlACGeneral1.DataBind()
        DdlACGeneral2.DataSource = DtPresupuestosEgresos.FiltraParametros("", DistinctColumns:={"CveUnidadAdministrativa", "UnidadAdministrativa"}, Orderby:="UnidadAdministrativa")
        DdlACGeneral2.DataBind()
        DdlACGeneral3.DataSource = DtPresupuestosEgresos.FiltraParametros("", DistinctColumns:={"CveFuenteFinanciamiento", "FuenteFinanciamiento"}, Orderby:="FuenteFinanciamiento")
        DdlACGeneral3.DataBind()
        DdlACGeneral4.DataSource = DtPresupuestosEgresos.FiltraParametros("", DistinctColumns:={"CveTipoGasto", "TipoGasto"})
        DdlACGeneral4.DataBind()
        DdlACGeneral5.DataSource = DtPresupuestosEgresos.FiltraParametros("NOT CodigoCOG like '1%'", DistinctColumns:={"CveClasificacion", "CodigoClasificacion"}, Orderby:="CodigoClasificacion")
        DdlACGeneral5.DataBind()
    End Sub

    Protected Sub DdlACGeneral_SelectedIndexChanged(sender As Object, e As EventArgs)
        CalculaSaldoAC()
    End Sub

    Private Sub CalculaSaldoAC()
        Dim ContPaq As New ClsContPAQi(UsuarioActual.Empresa)
        Dim DtPresupuestosTemp = DtPresupuestosEgresos.FiltraParametros(String.Format("CveProgramaOperativo = {0} and CveUnidadAdministrativa = {1} and CveFuenteFinanciamiento = {2} and CveTipoGasto= {3} and CveClasificacion = {4}", DdlACGeneral1.SelectedValue.ToString, DdlACGeneral2.SelectedValue.ToString, DdlACGeneral3.SelectedValue.ToString, DdlACGeneral4.SelectedValue.ToString, DdlACGeneral5.SelectedValue.ToString))
        If DtPresupuestosTemp.Rows.Count > 0 Then
            Dim IdCuenta = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
            LbACGeneralSaldo.Text = ContPaq.GetSaldoCuenta(IdCuenta, 0, TxtFecha.Text.ToDate.Year).ToString.FormatoNumero
            CvePresupuestoEgresos = DtPresupuestosTemp.Rows(0)("CvePresupuestoEgreso").ToString.ToEntero
        Else
            LbACGeneralSaldo.Text = "0.00"
        End If
        ContPaq.Dispose()
    End Sub
#End Region

#Region "  PRESUPUESTO INGRESOS  "
    Private Sub CargaPresupuestoIngresos()
        Dim AC As New ClsAC
        If AC.GetPresupuestoIngresos(-1, -1, True, UsuarioActual.CveEmpresa) Then
            DdlFuenteRecaudacion.DataSource = AC.DtResultados()
            DtPresupuestosIngresos = AC.DtResultados()
        End If
        AC.Dispose()

        DdlFuenteRecaudacion.DataBind()
    End Sub
#End Region

#End Region

#Region "  CALCULA FOLIO  "
    Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs)
        ObtieneFolio()
    End Sub
    Protected Sub DdlCuentas_SelectedIndexChanged(sender As Object, e As EventArgs)
        ObtieneFolio()
        Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentas.SelectedValue)
        If dr IsNot Nothing Then
            If dr("UsaTarjeta").ToString = "True" Then
                CargaTarjetas()
                DivTarjeta.Visible = True
            Else
                DivTarjeta.Visible = False
            End If
        End If
        UPRegistroIE.Update()
    End Sub
    Private Sub ObtieneFolio()
        Dim Banco As New ClsBancos
        Dim Folio = Banco.GetNextFolio(DdlCuentas.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero)
        Banco.Dispose()
        TxtFolio.Text = Folio.ToString
    End Sub
#End Region

#Region "  GUARDAR  "
    Protected Sub BtnGuardar(sender As Object, e As System.EventArgs)
        'Alert("EN PROCESO...", TipoMensaje.MsgAdvertencia)
        'Exit Sub
        If TrPE.Visible = True AndAlso Not LbACGeneralSaldo.Text.ToDouble > 0 Then
            Alert("El Presupuesto de Egresos Seleccionado debe tener saldo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
            Exit Sub
        End If
        'Objetos Clase
        Dim ObjBancos As New ClsBancos
        Dim ObjMov As New ClsContabilidad(ObjBancos.IniciaTransacSQL)
        Dim ObjContaAC As ClsContPAQi

        If UsuarioActual.Empresa.UsaAC Then
            ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
            ObjContaAC.IniciaTransacSQL()
        Else
            ObjContaAC = Nothing
        End If

        'Variables de controles
        Dim Importe As Double = TxtImporte.Text.ToDouble
        Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero()
        Dim Fecha As Date = TxtFecha.Text.ToDate

        'Variables de error
        Dim ErrorTransaccion As Boolean = False
        Dim ErrorAC As Boolean = False

        Dim CvePrePoliza As Integer = -1
        Dim IdPoliza As Integer = -1
        Dim FolioPoliza As Integer = -1
        Dim CveIE As Integer = -1

        CvePrePoliza = ObjMov.AddPrePolizas("ProductosFinancieros/Registrar", DdlTipoMovimiento.SelectedValue.ToEntero, Importe, Importe, CveMoneda, TxtFecha.Text.ToDate, DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        If Not DdlTarjeta.Visible OrElse DdlTarjeta.SelectedValue.ToEntero < 1 Then
            CveIE = ObjBancos.AddBancos_IE(DdlCuentas.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFecha.Text.ToDate, TxtFolio.Text, "", Importe, CveMoneda, If(CveMoneda = 2, GlobalTipoCambio(TxtFecha.Text.Trim.ToDate).ToString.ToDouble, 0), TxtObservacion.Text.Trim, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        End If

        'OBTIENE LA CUENTA CONTABLE DEL BANCO
        Dim DtCuentas As DataTable = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"})
        Dim CtaCuenta As Integer = -1

        If DtCuentas.Rows.Count = 1 Then
            CtaCuenta = DtCuentas.Rows(0)("Id0CtaContable").ToString.ToEntero
        Else
            ErrorTransaccion = True
        End If

        If CveIE > 0 OrElse (DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0) Then

            Dim CvePlantilaPoliza As Integer = DdlTipoMovimiento.SelectedValue.ToString.ToEntero
            Dim idCuentaContabilizacion As Long = 1
            Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
            Dim CuentasContablesInvalidas As New StringBuilder

            If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantilaPoliza) Then
                For Each Row As DataRow In ObjMov.DtResultados.Rows

                    Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
                    Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
                    Dim importeMovimiento As Decimal = 0
                    Dim FechaMovimiento As Date = NowADS()
                    Dim IdCtaContablePP As Integer = 0

                    Select Case ConceptoContable

                        Case 45, 46, 47, 67
                            importeMovimiento = Importe.ToString.ToDecimal
                        Case 99
                            If DivRetISR.Visible Or CvePlantilaPoliza = 67 Then
                                importeMovimiento = If(CvePlantilaPoliza = 67, Importe.ToString.ToDecimal, TxtRetISR.Text.ToDecimal)
                                IdCtaContablePP = Row("IdCtaContable").ToString.ToEntero
                            End If

                        Case 30
                            If DivRetISR.Visible Then importeMovimiento = Importe.ToString.ToDecimal - TxtRetISR.Text.ToDecimal Else importeMovimiento = Importe.ToString.ToDecimal
                            IdCtaContablePP = CtaCuenta

                    End Select

                    If importeMovimiento <> 0 Then

                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), "", DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), CveIE:=CveIE) Then
                            ErrorTransaccion = True
                        End If
                    End If

                Next

                If Not ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then
                    ErrorTransaccion = True
                End If
            End If
        Else
            ErrorTransaccion = True
        End If


        ''SI USA AC
        If Not ErrorTransaccion AndAlso UsuarioActual.Empresa.UsaAC AndAlso ObjContaAC IsNot Nothing Then

            If DdlTipoMovimiento.SelectedValue = "15" Or DdlTipoMovimiento.SelectedValue = "17" Or DdlTipoMovimiento.SelectedValue = "50" Then
                'PRESUPUESTO EGRESOS
                IdPoliza = ObjContaAC.AddPoliza(3, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
                FolioPoliza = ObjContaAC.Folio
                If IdPoliza > 0 Then
                    FolioPoliza = ObjContaAC.Folio
                    Dim DtPresupuestosTemp As DataTable
                    Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz, IdCuentaEjercido, IdCuentaPagado As Integer

                    DtPresupuestosTemp = DtPresupuestosEgresos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", CvePresupuestoEgresos))
                    If DtPresupuestosTemp.Rows.Count <> 1 Then
                        ErrorAC = True
                    End If

                    If Not ErrorAC Then
                        IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero
                        IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
                        IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
                        IdCuentaEjercido = DtPresupuestosTemp.Rows(0)("IdCuentaEjercido").ToString.ToEntero
                        IdCuentaPagado = DtPresupuestosTemp.Rows(0)("IdCuentaPagado").ToString.ToEntero
                        IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero


                        'COMPROMETIDO
                        If Not ErrorAC Then
                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                    ErrorAC = True
                                End If
                            Else
                                ErrorAC = True
                            End If
                        End If

                        'DEVENGADO
                        If Not ErrorAC Then
                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                    ErrorAC = True
                                End If
                            Else
                                ErrorAC = True
                            End If
                        End If

                        'EJERCIDO
                        If Not ErrorAC Then
                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaEjercido, False, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, True, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                    ErrorAC = True
                                End If
                            Else
                                ErrorAC = True
                            End If
                        End If

                        'PAGADO
                        If Not ErrorAC Then
                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPagado, False, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaEjercido, True, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                    ErrorAC = True
                                End If
                            Else
                                ErrorAC = True
                            End If
                        End If

                        'MATRIZ EGRESOS
                        If Not ErrorAC Then
                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaMatriz, False, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                If Not ObjContaAC.AddMovimiento(IdPoliza, CtaCuenta, True, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                    ErrorAC = True
                                End If
                            Else
                                ErrorAC = True
                            End If
                        End If

                    End If


                Else
                    ErrorAC = True
                End If
                'TERMINA PRESUPUESTO EGRESOS
            End If


            If DdlTipoMovimiento.SelectedValue = "16" Then
                'PRESUPUESTO INGRESOS
                IdPoliza = ObjContaAC.AddPoliza(1, TxtConcepto.Text.Trim, Importe, Importe, UsuarioActual.CveUsuario, Fecha)
                FolioPoliza = ObjContaAC.Folio
                If IdPoliza > 0 Then
                    FolioPoliza = ObjContaAC.Folio
                    Dim DtPresupuestosTemp As DataTable
                    Dim IdCuentaPorEjecutar, IdCuentaDevengado, IdCuentaRecaudado, IdCuentaMatriz As Integer

                    DtPresupuestosTemp = DtPresupuestosIngresos.FiltraParametros(String.Format("CvePresupuestoIngreso = {0}", DdlFuenteRecaudacion.SelectedValue.ToEntero))
                    If DtPresupuestosTemp.Rows.Count <> 1 Then
                        ErrorAC = True
                    End If


                    If Not ErrorAC Then
                        IdCuentaPorEjecutar = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjecutar").ToString.ToEntero
                        IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
                        IdCuentaRecaudado = DtPresupuestosTemp.Rows(0)("IdCuentaRecaudado").ToString.ToEntero
                        IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero

                        'DEVENGADO
                        If Not ErrorAC Then
                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjecutar, False, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, True, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                    ErrorAC = True
                                End If
                            Else
                                ErrorAC = True
                            End If
                        End If

                        'RECAUDADO
                        If Not ErrorAC Then
                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaRecaudado, True, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                    ErrorAC = True
                                End If
                            Else
                                ErrorAC = True
                            End If
                        End If

                        'MATRIZ INGRESOS
                        If Not ErrorAC Then
                            If ObjContaAC.AddMovimiento(IdPoliza, CtaCuenta, False, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaMatriz, True, Importe, "", TxtConcepto.Text.Trim, 0, Fecha, "") Then
                                    ErrorAC = True
                                End If
                            Else
                                ErrorAC = True
                            End If
                        End If

                    End If


                Else
                    ErrorAC = True
                End If
                'TERMINA PRESUPUESTO INGRESOS

            End If

            'AJUSTA POLIZA
            If Not ErrorAC Then
                If Not ObjContaAC.AjustaPoliza(IdPoliza) Then
                    ErrorAC = True
                End If
            End If

            If Not ErrorTransaccion AndAlso Not ErrorAC Then
                If Not ObjMov.UpdatePrePoliza(TxtFecha.Text.ToDate, FolioPoliza, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa) Then
                    ErrorAC = True
                    ErrorTransaccion = True
                End If
            End If

        End If


        If ErrorTransaccion Or ErrorAC Then
            ObjBancos.RollBack()
            If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()

            Alert(If(ErrorTransaccion, "Ocurrió un error al ingresar la PrePoliza. Por favor vuelva a intentar.", "Ocurrió un error al ingresar la Poliza. Por favor vuelva a intentar."), TipoMensaje.MsgError)
        Else
            ObjBancos.Commit()
            If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
            LimpiaDatos()
            UPRegistroIE.Update()

            Dim TextoPoliza = If(UsuarioActual.Empresa.UsaAC, String.Format("<br/> <br/> <a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza), "")

            Alert(String.Format("Movimientos realizados con exito {0}", TextoPoliza), TipoMensaje.MsgInformacion)
        End If

        ObjBancos.Dispose()
        ObjMov.Dispose()
        If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
    End Sub

    Private Sub LimpiaDatos()
        DdlCuentas.SelectedValue = "-1"
        DdlTipoTransaccion.SelectedValue = "-1"
        TxtFolio.Text = ""
        TxtImporte.Text = ""
        TxtFecha.Text = ""
        DdlTipoMovimiento.SelectedValue = "-1"
        TrPE.Visible = False
        TrPI.Visible = False
        DivRetISR.Visible = False
        TxtConcepto.Text = ""
        TxtObservacion.Text = ""
        TxtRetISR.Text = ""
    End Sub

#End Region

End Class