-- limpieza de cvecuentas de clientes

Ventas/Ventas.aspx.vb

@@ -797,31 +797,19 @@ Partial Class Ventas
             Return ViewState("IdCtaContAnticipos").ToString().ToEntero()
         End Get
     End Property
-    Private ReadOnly Property CveCuentaAnticipos As Integer
-        Get
-            Return ViewState("CveCuentaAnticipos").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 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 ReadOnly Property CodCliente As String
         Get
@@ -5601,15 +5589,11 @@ Partial Class Ventas
                 ViewState("Vendedor") = ObjCliente.Vendedor
                 ViewState("CtaContable") = ObjCliente.CuentaContable
                 ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes
-                ViewState("CveCuentaClientes") = ObjCliente.CveCuentaClientes
                 ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera
                 ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria
                 ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos
-                ViewState("CveCuentaAnticipos") = ObjCliente.CveCuentaAnticipos
                 ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
-                ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
                 ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
-                ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
                 ViewState("CodCliente") = ObjCliente.Codigo
 
                 ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista
@@ -14966,7 +14950,7 @@ Partial Class Ventas
     Private Function AgregarPrePolizasXTrasladar(ObjConta As ClsContabilidad, CvePrePoliza As Integer, PorcentajeAmortizacion As Decimal, TipoCambio As Decimal, ByRef CuentasContablesInvalidas As StringBuilder, ByRef idCuentaContabilizacion As Integer, ByRef CveCuentaContabilizacion As Integer, Importe13 As Decimal, Importe8 As Decimal, Importe9 As Decimal) As Boolean
         Dim ImporteMovimiento As Decimal
         Dim ImporteMX As Decimal
-        Dim IdCtaContable, CveCuenta As Integer
+        Dim IdCtaContable As Integer
         Dim FechaMovimiento As Date = Now
         Dim Concepto As String = ViewState("VentaFolio").ToString()
         Dim PrePolizaCorrecta = True
@@ -14990,7 +14974,7 @@ Partial Class Ventas
             End If
 
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15001,7 +14985,6 @@ Partial Class Ventas
 
         If IdCtaContRetIVA <> 0 Then
             IdCtaContable = IdCtaContRetIVA
-            CveCuenta = CveCuentaRetIVA
         Else
             If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then
                 If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -15016,7 +14999,7 @@ Partial Class Ventas
                 idCuentaContabilizacion = 0
             End If
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 8, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 8, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15043,7 +15026,7 @@ Partial Class Ventas
                 idCuentaContabilizacion = 0
             End If
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 9, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 9, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15056,7 +15039,7 @@ Partial Class Ventas
 
         Dim ImporteMovimiento As Decimal
         Dim ImporteMX As Decimal
-        Dim IdCtaContable, CveCuenta As Integer
+        Dim IdCtaContable As Integer
         Dim FechaMovimiento As Date = Now
         Dim Concepto As String = ViewState("VentaFolio").ToString()
         Dim PrePolizaCorrecta = True
@@ -15082,13 +15065,7 @@ Partial Class Ventas
                 idCuentaContabilizacion = 0
             End If
 
-            ''ContaSIG
-            'If CveCuenta <= 0 Then
-            '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString())
-            '    CveCuentaContabilizacion = 0
-            'End If
-
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15106,27 +15083,13 @@ Partial Class Ventas
             End If
         End If
 
-        ''Conta SIG
-        'If CveCuentaRetIVA <> 0 Then
-        '    CveCuenta = CveCuentaRetIVA
-        'Else
-        '    If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then
-        '        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero()
-        '    End If
-        'End If
-
         If ImporteMovimiento > 0 Then
             If IdCtaContable <= 0 Then
                 CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString())
                 idCuentaContabilizacion = 0
             End If
 
-            'If CveCuenta <= 0 Then
-            '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString())
-            '    CveCuentaContabilizacion = 0
-            'End If
-
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 62, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 62, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15146,15 +15109,6 @@ Partial Class Ventas
             End If
         End If
 
-        'If CveCuentaRetISR <> 0 Then
-        '    CveCuenta = CveCuentaRetISR
-        'Else
-        '    If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then
-        '        If ObjConta.DtResultados.Rows.Count > 0 Then
-        '            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero()
-        '        End If
-        '    End If
-        'End If
 
         If ImporteMovimiento > 0 Then
             If IdCtaContable <= 0 Then
@@ -15162,12 +15116,7 @@ Partial Class Ventas
                 idCuentaContabilizacion = 0
             End If
 
-            'If CveCuenta <= 0 Then
-            '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString())
-            '    CveCuentaContabilizacion = 0
-            'End If
-
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 63, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 63, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
                 PrePolizaCorrecta = False
             End If
         End If