--

2022-10-14 16:28:10 -07:00
parent 8a818eb874
commit 9855ba45bb
1 changed files with 49 additions and 49 deletions
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9632,70 +9632,70 @@ Public Class ClsPaginas

            'si tiene iva y su proporcion
            If Not ErrorMovtos AndAlso CompraActual.IVA <> 0 Then
-            ImporteMovimiento = (PorcentajePago * CompraActual.IVA).RoundSQL
-            ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
-            If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-
-            Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaIVA
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
-
-            If CompraActual.IVADeducible > 0 Then
-
-                ImporteMovimiento = (PorcentajePago * CompraActual.IVADeducible).RoundSQL
-                ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
-                'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-                If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento.RoundSQL * Pago.TCPago).RoundSQL
-
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
-            End If
-
-            If CompraActual.IVANoDeducible > 0 Then
-
-                ImporteMovimiento = (PorcentajePago * CompraActual.IVANoDeducible).RoundSQL
+                ImporteMovimiento = (PorcentajePago * CompraActual.IVA).RoundSQL
                ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
                If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento

-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaIVA
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+
+                If CompraActual.IVADeducible > 0 Then
+
+                    ImporteMovimiento = (PorcentajePago * CompraActual.IVADeducible).RoundSQL
+                    ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+                    'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
+                    If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento.RoundSQL * Pago.TCPago).RoundSQL
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                End If
+
+                If CompraActual.IVANoDeducible > 0 Then
+
+                    ImporteMovimiento = (PorcentajePago * CompraActual.IVANoDeducible).RoundSQL
+                    ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+                    If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+
+                End If

            End If

-        End If
+            'si tiene RET IVA y su proporcion
+            If Not ErrorMovtos AndAlso CompraActual.RetIVA > 0 Then
+                ImporteMovimiento = (PorcentajePago * CompraActual.RetIVA).RoundSQL
+                ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+                If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento

-        'si tiene RET IVA y su proporcion
-        If Not ErrorMovtos AndAlso CompraActual.RetIVA > 0 Then
-            ImporteMovimiento = (PorcentajePago * CompraActual.RetIVA).RoundSQL
-            ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
-            If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+                Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetIVA
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True

-            Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetIVA
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
+                If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL

-            'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-            If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True

-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
-
-        End If
-
-        'si tiene Ret ISR y su proporcion
-        If Not ErrorMovtos AndAlso CompraActual.RetISR > 0 Then
-            ImporteMovimiento = (PorcentajePago * CompraActual.RetISR).RoundSQL
-            ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
-            If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
-            Dim ContabilizableISR As Boolean = False
-            If UsuarioActual.CveEmpresa = 140 Then
-                ContabilizableISR = True
            End If

-            Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetISR
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+            'si tiene Ret ISR y su proporcion
+            If Not ErrorMovtos AndAlso CompraActual.RetISR > 0 Then
+                ImporteMovimiento = (PorcentajePago * CompraActual.RetISR).RoundSQL
+                ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+                If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+                Dim ContabilizableISR As Boolean = False
+                If UsuarioActual.CveEmpresa.Contiene(140, 7, 11, 12, 122, 145) Then
+                    ContabilizableISR = True
+                End If

-            'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-            If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
+                Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetISR
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True

-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+                'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
+                If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL

-        End If
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+
+            End If

            'si tiene IEPS y su proporcion
            If Not ErrorMovtos AndAlso CompraActual.IEPS > 0 Then