Commit inicial Ventas Productivo

Bancos/PopIE.aspx.vb

@@ -0,0 +1,366 @@
+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
+End Class