-- cambio en variables cvecuenta

Inventarios/Remanufactura.aspx.vb

@@ -22,22 +22,12 @@ Partial Class Inventarios_Remanufactura
             Return ViewState("IdCtaContRetIVA").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 IdCtaContRetISR As Integer
         Get
             Return ViewState("IdCtaContRetISR").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaRetISR As Integer
-        Get
-            Return ViewState("CveCuentaRetISR").ToString.ToEntero
-        End Get
-    End Property
-
     Private Property MensajeAlert As StringBuilder
         Get
             Return CType(ViewState("MensajeAlert"), StringBuilder)
@@ -539,9 +529,7 @@ Partial Class Inventarios_Remanufactura
                 ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
 
                 ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
-                ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
                 ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
-                ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
             End If
         End If
 
@@ -774,7 +762,6 @@ Partial Class Inventarios_Remanufactura
         Dim importeMovimiento As Decimal
         Dim FechaMovimiento As Date = Date.Today
         Dim IdCtaContable As Integer
-        Dim CveCuenta As Integer
         Dim IdCtaContableCliente As Integer
         Dim Concepto As String = ViewState("VentaFolio").ToString
         Dim Referencia As String = ViewState("VentaFolio").ToString
@@ -790,7 +777,6 @@ Partial Class Inventarios_Remanufactura
                 TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
                 importeMovimiento = 0
                 IdCtaContable = 0
-                CveCuenta = 0
                 Multiplicador = (Row("Multiplicador").ToString.ToEntero)
                 Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", "")
 
@@ -891,16 +877,6 @@ Partial Class Inventarios_Remanufactura
                                 End If
                             End If
 
-                            'Contabilidad SIG
-                            If CveCuentaRetIVA > 0 Then
-                                CveCuenta = CveCuentaRetIVA
-                            Else
-                                If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
-                                    If ObjConta.DtResultados.Rows.Count > 0 Then
-                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                    End If
-                                End If
-                            End If
                         End If
 
                     Case 9 'Ret ISR por Trasladar
@@ -921,16 +897,6 @@ Partial Class Inventarios_Remanufactura
                                 End If
                             End If
 
-                            'Contabilidad SIG
-                            If CveCuentaRetISR > 0 Then
-                                CveCuenta = CveCuentaRetISR
-                            Else
-                                If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
-                                    If ObjConta.DtResultados.Rows.Count > 0 Then
-                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                    End If
-                                End If
-                            End If
                         End If
 
 
@@ -950,7 +916,6 @@ Partial Class Inventarios_Remanufactura
                             If importeMovimiento > 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
                                 If ObjConta.DtResultados.Rows.Count > 0 Then
                                     IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
-                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString.ToEntero
                                 End If
                             End If
                         End If

PortalCliente/PortalCliente.aspx.vb

@@ -726,28 +726,20 @@ Partial Class Ventas_PortalCliente
 
                         Dim MensajeAlert As New StringBuilder
                         Dim ObjConta As New ClsContabilidad
-                        Dim ObjCliente As New ClsClientes(ObjConta.IniciaTransacSQL)
+                        Dim ObjCliente As New ClsClientes(ObjConta.IniciaTransacSQL)
-
+
-                        Dim CveCuentacliente = -1
+
                         Dim IdCuentaCliente = -1
-                        Dim IdCtaContMonedaExtranjera = -1
+                        Dim IdCtaContMonedaExtranjera = -1
-                        Dim CveCuentaComplementaria = -1
-                        Dim CveCuentaMonedaExtranjera = -1
                         Dim IdCtaContRetIVA = -1
-                        Dim IdCtaContRetISR = -1
+                        Dim IdCtaContRetISR = -1
-                        Dim CveCuentaRetIVA = -1
+
-                        Dim CveCuentaRetISR = -1
+
-
                         If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjCliente.DtResultados.Rows.Count > 0 Then
                             IdCuentaCliente = ObjCliente.IdCtaContClientes
-                            CveCuentacliente = ObjCliente.CveCuentaClientes
                             IdCtaContMonedaExtranjera = ObjCliente.IdCtaContMonedaExtranjera
-                            CveCuentaMonedaExtranjera = ObjCliente.CveCuentaMonedaExtranjera
-                            CveCuentaComplementaria = ObjCliente.CveCuentaComplementaria
                             IdCtaContRetIVA = ObjCliente.IdCtaContRetIVA
                             IdCtaContRetISR = ObjCliente.IdCtaContRetISR
-                            CveCuentaRetIVA = ObjCliente.CveCuentaRetIVA
-                            CveCuentaRetISR = ObjCliente.CveCuentaRetISR
                         Else
                             TieneError = True
                             MensajeError.Append("Ocurrió un error al cargar la información contable del cliente. Por favor vuelva a intentar<br>")
@@ -3154,9 +3146,7 @@ Partial Class Ventas_PortalCliente
                 End If
 
                 ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
-                ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
                 ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
-                ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
             End If
         End If
         ObjCliente.Dispose()