-- limpieza de código de mandar idcta de contpaq

Bancos/PopIECompras.aspx.vb

@@ -80,78 +80,7 @@ Partial Class Bancos_PopIECompras
         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 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 IdCuentaBancariaComplementaria As Integer
-        Get
-            Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("IdCuentaBancariaComplementaria") = 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 IdCtaProveedorExtranjera As Integer
-        Get
-            Return ViewState("IdCtaProveedorExtranjera").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 IdCtaContRetIVAAcreditable As Integer
-        Get
-            Return ViewState("IdCtaContRetIVAAcreditable").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property IdCtaContRetISRAcreditable As Integer
-        Get
-            Return ViewState("IdCtaContRetISRAcreditable").ToString.ToEntero
-        End Get
-    End Property
-
     Private Property CveMoneda As Integer
         Get
             Return ViewState("CveMoneda").ToString.ToEntero
@@ -288,33 +217,7 @@ Partial Class Bancos_PopIECompras
         Set(value As String)
             ViewState("RFCProveedor") = 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 IdCtaContRetIVACliente As Integer
-        Get
-            Return ViewState("IdCtaContRetIVACliente").ToString.ToEntero
-        End Get
     End Property
-
-    Private ReadOnly Property IdCtaContComplementariaCliente As Integer
-        Get
-            Return ViewState("IdCtaContComplementariaCliente").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property IdCtaContMonedaExtranjeraCliente As Integer
-        Get
-            Return ViewState("IdCtaContMonedaExtranjeraCliente").ToString.ToEntero
-        End Get
-    End Property
-
     Private ReadOnly Property NombreCliente As String
         Get
             Return ViewState("NombreCliente").ToString
@@ -334,7 +237,6 @@ Partial Class Bancos_PopIECompras
             ViewState("NotificarA") = value
         End Set
     End Property
-
     Private Property CveSubProyecto As Integer
         Get
 
@@ -349,7 +251,6 @@ Partial Class Bancos_PopIECompras
             ViewState("CveSubProyecto") = value
         End Set
     End Property
-
     Private Property EsImportacion As Boolean
         Get
 
@@ -364,8 +265,6 @@ Partial Class Bancos_PopIECompras
             ViewState("EsImportacion") = value
         End Set
     End Property
-
-
     Private Property DtCheques As DataTable
         Get
 
@@ -380,26 +279,13 @@ Partial Class Bancos_PopIECompras
         End Set
     End Property
 
-
-
 #End Region
 
     Private Sub Bancos_PopIECompras_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
             If Not UsuarioActual.Empresa.UsaAC Then
-
-                ViewState("IdCtaContMonedaExtranjera") = 0
-                ViewState("IdCtaContComplementaria") = 0
-                ViewState("IdCtaContRetIVA") = 0
-                ViewState("IdCtaContRetISR") = 0
-                ViewState("IdCuentaBancaria") = 0
-                ViewState("IdCuentaBancariaComplementaria") = 0
-                ViewState("IdCtaAnticipo") = 0
-
-                ViewState("CtaProveedorDeudores") = 0
-                ViewState("CtaProveedorAcreedores") = 0
-                ViewState("CveCuentaProveedorDeudores") = 0
+
                 ViewState("NombreProveedor") = ""
             End If
 
@@ -634,8 +520,6 @@ Partial Class Bancos_PopIECompras
                 CompraActual.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
                 CompraActual.UsuarioActual = UsuarioActual
                 CompraActual.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
-                CompraActual.IdCtaContableProv = CtaProveedor
-                CompraActual.IdCtaContableProvComplementaria = IdCtaProveedorExtranjera
                 CompraActual.EsImportacion = CBool(dr("EsImportacion"))
                 CompraActual.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero
 
@@ -670,18 +554,6 @@ Partial Class Bancos_PopIECompras
             If ObjProveedor.DtResultados.Rows.Count > 0 Then
                 TxtPagueseA.Text = ObjProveedor.RazonSocial
                 RFCProveedor = ObjProveedor.RFC
-
-                'Conta ContPAQ
-                ViewState("CtaProveedor") = ObjProveedor.IdCtaContProveedores
-                ViewState("CtaProveedorDeudores") = ObjProveedor.IdCtaContDeudor
-                ViewState("CtaProveedorAcreedores") = ObjProveedor.IdCtaContAcreedor
-                ViewState("IdCtaContRetISR") = ObjProveedor.IdCtaContRetISR
-                ViewState("IdCtaContRetISRAcreditable") = ObjProveedor.IdCtaContRetISRAcreditable
-                ViewState("IdCtaContRetIVA") = ObjProveedor.IdCtaContRetIVA
-                ViewState("IdCtaContRetIVAAcreditable") = ObjProveedor.IdCtaContRetIVAAcreditable
-                ViewState("IdCtaProveedorExtranjera") = ObjProveedor.IdCtaContProveedoresExtranjera
-                ViewState("IdCtaContComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
-
             Else
                 Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
             End If
@@ -816,11 +688,6 @@ Partial Class Bancos_PopIECompras
         Dim dtc As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("RFC = '{0}'", RFCProveedor))
         If dtc IsNot Nothing AndAlso dtc.Rows.Count = 1 Then
             Dim CveCliente As Integer = dtc.Rows(0)("CveCliente").ToString.ToEntero
-            ViewState("IdCuentaCliente") = dtc.Rows(0)("IdCtaContClientes")
-            ViewState("IdCtaContRetIVACliente") = dtc.Rows(0)("IdCtaContRetIVA")
-            ViewState("IdCtaContRetISRCliente") = dtc.Rows(0)("IdCtaContRetISR")
-            ViewState("IdCtaContComplementariaCliente") = dtc.Rows(0)("IdCtaContComplementaria")
-            ViewState("IdCtaContMonedaExtranjeraCliente") = dtc.Rows(0)("IdCtaContMonedaExtranjera")
             ViewState("NombreCliente") = dtc.Rows(0)("Nombre")
 
             If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1) Then
@@ -1010,10 +877,7 @@ Partial Class Bancos_PopIECompras
             Else
                 CveMoneda = dr("CveMoneda").ToString.ToEntero
                 RegistraScript("CambiaDolaresPesos();")
-            End If
-
-            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
-            IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
+            End If
 
             If dr("UsaTarjeta").ToString = "True" Then
                 CargaGridTarjetas()
@@ -1442,7 +1306,6 @@ Partial Class Bancos_PopIECompras
                     MsgError = "No se pudo insertar la póliza"
                 End If
                 'AGREGO PREPOLIZA  BANCOS
-                Dim IdCuenta As Integer = 0
                 Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145, 13, 83)
                 Dim ConceptoMovimiento As String = $"{TxtPagueseA.Text.Trim} - {TxtObservaciones.Text} {If(Pago.TCPago > 1, $" TC:{Pago.TCPago}", "")}"
                 Dim Referencia As String = TxtFolio.Text.Trim
@@ -1453,14 +1316,10 @@ Partial Class Bancos_PopIECompras
                     Dim ObjCreditos As New ClsBancos
                     ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
 
-                    If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0) Then
-                        IdCuenta = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero
-                    End If
-
                     Dim Importe42 As Decimal = Pago.ImportePago + Pago.OtroGastoIngreso
                     tImporteMN = If(Pago.CveMonedaPago = 2, If(DivTipoCambio.Visible, Importe42 / TxtTipoCambio.Text.ToDecimal * Pago.TCPago, Importe42 * Pago.TCPago), Importe42)
 
-                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe42, tImporteMN, 42, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
+                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe42, tImporteMN, 42, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
                         MsgError = "No se pudo insertar la póliza"
                     End If
 
@@ -1472,12 +1331,12 @@ Partial Class Bancos_PopIECompras
                         tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
                     End If
 
-                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago.RoundSQL, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
+                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago.RoundSQL, tImporteMN, 30, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
                         MsgError = "No se pudo insertar la póliza"
                     End If
 
                     If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then
-                        If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, IdCuentaBancariaComplementaria, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
+                        If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
                             MsgError = "No se pudo insertar la póliza"
                         End If
                     End If