SIG/Bancos/DepositosCaja.aspx.vb

Option Explicit On
Option Strict On

Imports Extensiones
Imports System.Data
Partial Class Bancos_DepositosCaja
    Inherits ClsPaginas

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

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            FacturasCheckadas = 0
            TxtFecha.Text = Now.ToShortDateString
            CargaCuentas()
        End If
    End Sub

    Private Sub CargaCuentas()
        DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
        DdlCuentaDeposito.DataBind()

        DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
        DdlCajaChica.DataBind()
    End Sub

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub

    Private Sub CargaDatos()
        Dim ObjBancos As New ClsBancos
        Dim FechaI, FechaF As String
        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")

        ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero)

        GvFacturas.DataSource = ObjBancos.DtResultados
        ObjBancos.Dispose()

        UpGvFacturas.Update()
        GvFacturas.DataBind()
        divLabelTotal.Visible = True
    End Sub

    Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click

        Dim TotalImporte As Decimal = 0
        For Each Gvr As GridViewRow In GvFacturas.Rows
            If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
        Next

        If TotalImporte = 0 Then
            Alert("Seleccion una factura para realizar el deposito", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If


        Dim OcurrioError As Boolean = False
        Dim ObjContabilidad As New ClsContabilidad()
        Dim ObjBancos As New ClsBancos(ObjContabilidad.IniciaTransacSQL())

        Dim CveIEOrigen As Integer 'CajaChica
        Dim CveIEDestino As Integer 'Banco
        Dim NuevaCvePrePoliza As Integer
        Dim FolioIE As Long = -1
        Dim CveMoneda As Integer = 1
        Dim TipoCambio As Decimal = 1
        Dim Fecha As Date = TxtFecha.Text.ToDate
        Dim IdCuentaBancariaOrigen As Integer = 0
        Dim IdCuentaBancariaDestino As Integer = 0
        Dim CveCuentaBancariaOrigen As Integer = 0
        Dim CveCuentaBancariaDestino As Integer = 0
        Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero($"CveCuenta = {DdlCajaChica.SelectedValue}")
        Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero($"CveCuenta = {DdlCuentaDeposito.SelectedValue}")

        If drOrigen IsNot Nothing Then
            CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
            IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero
            CveCuentaBancariaOrigen = drOrigen("IdCtaContableSIG").ToString.ToEntero
        End If

        If drDestino IsNot Nothing Then
            CveMoneda = drDestino("CveMoneda").ToString.ToEntero
            IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero
            CveCuentaBancariaDestino = drDestino("IdCtaContableSIG").ToString.ToEntero
        End If

        NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImporte, TotalImporte, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)

        'Salida de Caja Chica
        FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
        If Not FolioIE > 0 Then
            OcurrioError = True
        End If
        CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)


        'Entrada a Bancos
        FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 8)
        If Not FolioIE > 0 Then
            OcurrioError = True
        End If
        CveIEDestino = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 8, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)


        For Each Gvr As GridViewRow In GvFacturas.Rows

            If Gvr.FCCheckBox("ChkFactura").Checked Then
                'Datos de las Nuevas PrePolizas

                Dim Importe As Double = Gvr.DataKey("Importe").ToDouble

                'Datos de las Prepolizas A Cancelar
                Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
                Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero
                Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero

                'Asignamos la cuenta Deposito
                If Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then
                    OcurrioError = True
                End If

            End If

        Next

        If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
            If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaDestino, -1, CveIE:=CveIEDestino, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
                OcurrioError = True
            End If
        Else OcurrioError = True
        End If

        If OcurrioError Then
            ObjContabilidad.RollBack()
            Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError)
        Else
            ObjContabilidad.Commit()
            CargaDatos()
            Dim SbMensaje As New StringBuilder()
            Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
            SbMensaje.Append("Los Depósitos se realizaron exitósamente<br/><br/>")
            SbMensaje.AppendFormat("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Documento</a> &nbsp &nbsp ", CveIEDestino)
            SbMensaje.AppendFormat("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", StrEncript)
            Alert(SbMensaje.ToString)

        End If

        ObjContabilidad.Dispose()
    End Sub

    Private Sub ObtenerTotalImporta()

        Dim Total As Double = 0
        For Each Gvr As GridViewRow In GvFacturas.Rows
            If Gvr.FCCheckBox("ChkFactura").Checked Then
                Total += Gvr.DataKey("Importe").ToDouble
            End If
        Next
        lblValorTotal.Text = Total.ToString
        UpGvFacturas.Update()
    End Sub

    Public Sub ChkFactura_Click(sender As Object, e As EventArgs)
        ObtenerTotalImporta()
    End Sub

End Class