From 1d7ab74791f4aa66be4bea57037eb25925fc7abc Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 13 Feb 2023 10:16:38 -0700
Subject: [PATCH] Aplicacion de NC concepto 294

---
 Ventas/Ventas.aspx.vb | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9a0ea378f..85d999ca5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13939,7 +13939,10 @@ Partial Class Ventas
                                 Dim ImporteConcepto12 As Decimal = 0
                                 Dim ImporteAcumulado91 As Decimal = 0
                                 Dim CveUltimaVenta As Integer = 0
-                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+                                If tipoCambio > 1 Then
+                                    Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+                                    ConceptoContable = 293
+                                End If
                                 If tipoCambio = 1 Then
                                     IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
                                 ElseIf UsaComplementariaClientes Then
@@ -14054,7 +14057,13 @@ Partial Class Ventas
                                                     Exit For
                                                 End If
                                             End If
-                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then
+                                            Dim CveConceptoAplicacionNC As Integer = 91
+                                            'SI LA NOTA DE CREDITO ES EN MONEDA EXTRANGERA UTILIZAR EL CONCEPTO DE APLICACION ME
+                                            If ConceptoContable = 293 Then
+                                                CveConceptoAplicacionNC = 294
+                                            End If
+
+                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, CveConceptoAplicacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then
                                                 ErrorPrepoliza = True
                                                 Exit For
                                             End If