Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones

Partial Class Bancos_PopIE
    Inherits ClsPaginas

#Region "Propiedades"
    Private Property DtDeudores As DataTable
        Get
            Return CType(ViewState("DtDeudores"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtDeudores") = value
        End Set
    End Property
    Private Property DtAcreedores As DataTable
        Get
            Return CType(ViewState("DtAcreedores"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtAcreedores") = value
        End Set
    End Property
    Private Property DtDeudoresDetalle As DataTable
        Get
            Return CType(ViewState("DtDeudoresDetalle"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtDeudoresDetalle") = value
        End Set
    End Property
    'Configuración
    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 CveCompra As Integer
        Get
            Return ViewState("CveCompra").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCompra") = value
        End Set
    End Property
    Private Property IdPoliza As Integer
        Get
            Return ViewState("IdPoliza").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("IdPoliza") = value
        End Set
    End Property
    Private Property FechaCompra As Date
        Get
            Return ViewState("FechaCompra").ToString.ToDate
        End Get
        Set(value As Date)
            ViewState("FechaCompra") = value
        End Set
    End Property
    Private Property CveProveedor As Integer
        Get
            Return ViewState("CveProveedor").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveProveedor") = value
        End Set
    End Property
    Private ReadOnly Property CtaProveedor As Integer
        Get
            Return ViewState("CtaProveedor").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CtaProveedorDeudores As Integer
        Get
            Return ViewState("CtaProveedorDeudores").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CtaProveedorAcreedores As Integer
        Get
            Return ViewState("CtaProveedorAcreedores").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CveCuentaProveedor As Integer
        Get
            Return ViewState("CveCuentaProveedor").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CveCuentaProveedorDeudores As Integer
        Get
            Return ViewState("CveCuentaProveedorDeudores").ToString.ToEntero
        End Get
    End Property
    Private Property CveVenta As Integer
        Get
            Return ViewState("CveVenta").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveVenta") = value
        End Set
    End Property
    Private Property FechaVenta As Date
        Get
            Return ViewState("FechaVenta").ToString.ToDate
        End Get
        Set(value As Date)
            ViewState("FechaVenta") = value
        End Set
    End Property
    Private Property CveCliente As Integer
        Get
            Return ViewState("CveCliente").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCliente") = value
        End Set
    End Property
    Private Property IdCuentaBancaria As Integer
        Get
            Return ViewState("IdCuentaBancaria").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("IdCuentaBancaria") = value
        End Set
    End Property
    Private Property IdCuentaCliente As Integer
        Get
            Return ViewState("IdCuentaCliente").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("IdCuentaCliente") = value
        End Set
    End Property
    Private ReadOnly Property IdCtaContMonedaExtranjera As Integer
        Get
            Return ViewState("IdCtaContMonedaExtranjera").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property IdCtaContComplementaria As Integer
        Get
            Return ViewState("IdCtaContComplementaria").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property IdCtaContRetIVA As Integer
        Get
            Return ViewState("IdCtaContRetIVA").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property IdCtaContRetISR As Integer
        Get
            Return ViewState("IdCtaContRetISR").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property IdCtaAnticipo As Integer
        Get
            Return ViewState("IdCtaAnticipo").ToString.ToEntero
        End Get
    End Property
    Private Property CveCuentaBancaria As Integer
        Get
            Return ViewState("CveCuentaBancaria").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCuentaBancaria") = value
        End Set
    End Property
    Private Property CveCuentaCliente As Integer
        Get
            Return ViewState("CveCuentaCliente").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCuentaCliente") = value
        End Set
    End Property
    Private ReadOnly Property CveCuentaMonedaExtranjera As Integer
        Get
            Return ViewState("CveCuentaMonedaExtranjera").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CveCuentaComplementaria As Integer
        Get
            Return ViewState("CveCuentaComplementaria").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CveCuentaRetIVA As Integer
        Get
            Return ViewState("CveCuentaRetIVA").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CveCuentaRetISR As Integer
        Get
            Return ViewState("CveCuentaRetISR").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CveCuentaAnticipo As Integer
        Get
            Return ViewState("CveCuentaAnticipo").ToString.ToEntero
        End Get
    End Property
    Private Property CveMoneda As Integer
        Get
            Return ViewState("CveMoneda").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMoneda") = value
        End Set
    End Property
    Private Property TipoTransaccion As String
        Get
            Return ViewState("TipoTransaccion").ToString
        End Get
        Set(value As String)
            ViewState("TipoTransaccion") = value
        End Set
    End Property
    Private Property SaldoVenta As Double
        Get
            Return ViewState("SaldoVenta").ToString.ToDouble
        End Get
        Set(value As Double)
            ViewState("SaldoVenta") = value
        End Set
    End Property
    Private Property MovimientoPagar As IEMovimiento
        Get
            Return CType(ViewState("MovimientoPagar"), IEMovimiento)
        End Get
        Set(value As IEMovimiento)
            ViewState("MovimientoPagar") = value
        End Set
    End Property
    Private Property ArrIE As ArrayList
        Get
            Return CType(ViewState("ArrIE"), ArrayList)
        End Get
        Set(value As ArrayList)
            ViewState("ArrIE") = value
        End Set
    End Property
    Private Property ArrIEFuncionariosEmpleados As ArrayList
        Get
            Return CType(ViewState("ArrIEFuncionariosEmpleados"), ArrayList)
        End Get
        Set(value As ArrayList)
            ViewState("ArrIEFuncionariosEmpleados") = value
        End Set
    End Property
    Private Property DTFuenteRecaudacion As DataTable
        Get
            Return CType(ViewState("DTFuenteRecaudacion"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTFuenteRecaudacion") = value
        End Set
    End Property
    Private Property DTFuncionarioEmpleado As DataTable
        Get
            Return CType(ViewState("DTFuncionarioEmpleado"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTFuncionarioEmpleado") = value
        End Set
    End Property
    Private Property EmpresaPrueba As Boolean
        Get
            Return CBool(ViewState("EmpresaPrueba"))
        End Get
        Set(value As Boolean)
            ViewState("EmpresaPrueba") = value
        End Set
    End Property
    Private Property NombreCliente As String
        Get
            Return ViewState("NombreCliente").ToString
        End Get
        Set(value As String)
            ViewState("NombreCliente") = value
        End Set
    End Property
    Private Property NombreProveedor As String
        Get
            Return ViewState("NombreProveedor").ToString
        End Get
        Set(value As String)
            ViewState("NombreProveedor") = value
        End Set
    End Property
    Private Property SerieFolio As String
        Get
            Return ViewState("SerieFolio").ToString
        End Get
        Set(value As String)
            ViewState("SerieFolio") = value
        End Set
    End Property
    Private Property CveMonedaVenta As Integer
        Get
            Return ViewState("CveMonedaVenta").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMonedaVenta") = value
        End Set
    End Property
    Private Property CveMonedaCompra As Integer
        Get
            Return ViewState("CveMonedaVenta").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMonedaVenta") = value
        End Set
    End Property
    Private Property TipoCambioOriginal As Decimal
        Get
            Return ViewState("TipoCambioOriginal").ToString.ToDecimal
        End Get
        Set(value As Decimal)
            ViewState("TipoCambioOriginal") = value
        End Set
    End Property
    Private Property CveMonedaFiltros As Integer
        Get
            Return ViewState("CveMonedaFiltros").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMonedaFiltros") = value
        End Set
    End Property

    <Serializable>
    Public Class Anticipos
        Public Property CveIE As Integer
        Public Property Importe As Double
        Public Property CvePersonal As Integer
    End Class
#End Region

    <Serializable>
    Public Class IEMovimiento
        Public Property SubTotal As Decimal
        Public Property IVA As Decimal
        Public Property RetIVA As Decimal
        Public Property RetISR As Decimal
        Public Property Total As Decimal
        Public Property Saldo As Decimal
        Public Property IEPS As Decimal
    End Class

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
                Response.Redirect($"/Bancos/PopIECompras.aspx?CveCompra={Request("CveCompra")}")
            Else
                If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero > 0 Then
                    Response.Redirect($"/Bancos/PopIEVentas.aspx?CveVenta={Request("CveVenta")}")
                End If
            End If
        End If
    End Sub

    Protected Sub BtnEliminarCompra_Click(sender As Object, e As EventArgs)

    End Sub

    Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs)

    End Sub

    Protected Sub ChkPagarDolares_CheckedChanged(sender As Object, e As EventArgs)

    End Sub

    Protected Sub CVImporteDolares_ServerValidate(source As Object, args As ServerValidateEventArgs)

    End Sub

    Protected Sub CVImportePesos_ServerValidate(source As Object, args As ServerValidateEventArgs)

    End Sub

    Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)

    End Sub

    Protected Sub ChkPagarPesosDeudores_CheckedChanged(sender As Object, e As EventArgs)

    End Sub

    Protected Sub ChkPagarDolaresDeudores_CheckedChanged(sender As Object, e As EventArgs)

    End Sub

    Protected Sub CvImporteDolaresDeudores_ServerValidate(source As Object, args As ServerValidateEventArgs)

    End Sub

    Protected Sub CveImportePesosDeudores_ServerValidate(source As Object, args As ServerValidateEventArgs)

    End Sub
End Class