From a7b98b224437a3da520ee9fe3ebc867d2215532e Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Thu, 22 Dec 2022 11:01:49 -0700
Subject: [PATCH] =?UTF-8?q?PopIECompras.=20pago=20con=20acreedores=20Diver?=
 =?UTF-8?q?sos,=20que=20usen=20el=20concepto=2056,346(en=20d=C3=B3lares)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/PopIECompras.aspx.vb | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 9c2195276..9d8b173be 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1464,7 +1464,7 @@ Partial Class Bancos_PopIECompras
             Case "5" 'Acreedores Diversos
                 ImportePagado = TxtImporte.Text.Trim.ToDecimal
                 CveConcepto = 17
-                CveConcepto2 = 41
+                CveConcepto2 = 56
                 CveProveedor2 = DdlAcreedor.SelectedValue.ToEntero
                 CveIE = -1
                 'verifica que se halla selccionado algun acreedor
@@ -1779,7 +1779,7 @@ Partial Class Bancos_PopIECompras
                                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
-
+                                                        '123456789
                                                         If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                             IdCtaContable = IdCtaContComplementaria
                                                             If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
@@ -2736,6 +2736,8 @@ Partial Class Bancos_PopIECompras
 
                                                         CveIE = rw.DataKey("CveIE").ToString.ToEntero
 
+                                                        ConceptoContable = If(CveMoneda <> 1, 346, 56)
+
                                                         IdCtaContable = CtaProveedorAcreedores
                                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then
                                                             MsgError = "No se pudo insertar la póliza"