From cc714c2ea44877dd18af4e4d985f1490954204c7 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 11 Aug 2020 17:58:27 -0700
Subject: [PATCH] -- que tome la cuenta de proveedor o acredor, segun el tipo
 de factura

---
 Compras/Compras.aspx.vb | 46 +++++++++++------------------------------
 1 file changed, 12 insertions(+), 34 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5d65c848e..9db681e2b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5714,7 +5714,7 @@ Partial Class Compras_Compras
                                                                 importeMovimiento = importeMovimiento / TipoCambioCompra
                                                             End If
                                                             importeMN = importeMovimiento * TipoCambioCompra * Multiplicador
-                                                            IdCtaContable = CtaProveedor
+                                                            IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor)
                                                             CveCuenta = CveCuentaProveedor
 
 
@@ -5755,11 +5755,7 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                            CveCuentaContabilizacion = 0
-                                                                        End If
+
                                                                     End If
                                                                 Next
 
@@ -6371,11 +6367,7 @@ Partial Class Compras_Compras
                                                                                 CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
                                                                                 idCuentaContabilizacion = 0
                                                                             End If
-                                                                            'Conta SIG
-                                                                            If CveCuenta = 0 Then
-                                                                                CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
-                                                                                CveCuentaContabilizacion = 0
-                                                                            End If
+
                                                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                                 ErrorPrepoliza = True
                                                                             End If
@@ -6817,7 +6809,7 @@ Partial Class Compras_Compras
                                                                 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307
 
                                                                 If tipoCambioActual = 1 Then
-                                                                    IdCtaContable = CtaProveedor
+                                                                    IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor)
                                                                     CveCuenta = CveCuentaProveedor
                                                                 Else
                                                                     IdCtaContable = CtaProveedorComplementaria
@@ -6860,11 +6852,6 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                            CveCuentaContabilizacion = 0
-                                                                        End If
 
                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
@@ -7120,11 +7107,6 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                            idCuentaContabilizacion = 0
-                                                                        End If
 
                                                                         'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
                                                                         If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
@@ -7457,11 +7439,7 @@ Partial Class Compras_Compras
                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                             idCuentaContabilizacion = 0
                                                         End If
-                                                        'COnta SIG
-                                                        If CveCuenta = 0 Then
-                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                            CveCuentaContabilizacion = 0
-                                                        End If
+
 
                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
                                                             ErrorPrepoliza = True
@@ -16874,14 +16852,8 @@ Partial Class Compras_Compras
         'VALIDA IMPORTES
         'VALIDA TOTAL CON LOS IMPORTES TOTALES
         Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double
-        'Dim TempPorcentajeRetIVA = LblRetIVA.Text.ToDouble / 100
-        'Dim TempPorcentajeRetISR = LblRetISR.Text.ToDouble / 100
-        Dim Amortizacion As Decimal = 0
-        If UsuarioActual.CveEmpresa = 119 Then
-            Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
-            TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
-        End If
 
+        Dim Amortizacion As Decimal = 0
         Dim TieneAmortizacion As Boolean = False
         If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
             TieneAmortizacion = True
@@ -16891,6 +16863,12 @@ Partial Class Compras_Compras
             LblAmortizacion.Text = "0.00"
         End If
 
+        If UsuarioActual.CveEmpresa = 119 AndAlso TieneAmortizacion Then
+            Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
+            TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
+        End If
+
+
         TempSubTotal = TxtSubTotal.Text.ToDouble
         SubTotalOriginal = TxtSubTotal.Text.ToDouble
         SubTotal2Original = TxtSubTotal2.Text.ToDouble