From 9030a3230fa7d0f8935f58968ebe68a8a4f2d537 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 2 May 2025 07:02:10 -0700
Subject: [PATCH] -- si es moneda en pesos, limpiar el campo ImporteME

---
 App_Code/ClsContPAQi.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index cfcc0c792..7b91269ca 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -2278,6 +2278,7 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("             @NumMovto           INT,")
         StrSQL.AppendLine("             @IdDiario           INT,")
         StrSQL.AppendLine("             @SegNegMovtos       INT,")
+        StrSQL.AppendLine("             @IdMoneda           INT,")
         StrSQL.AppendLine("             @Fecha              DATETIME,")
         StrSQL.AppendLine("             @IDEjercicio INT,")
         StrSQL.AppendLine("             @TimeStamp          NVARCHAR (200);")
@@ -2288,10 +2289,11 @@ Public Class ClsContPAQi
         StrSQL.AppendLine("       SET @Fecha          = @FechaMov;")
         StrSQL.AppendLine("       SET @IdDiario       = 0;")
         StrSQL.AppendLine("       SELECT @Ejercicio   = P.Ejercicio, @Periodo = P.Periodo, @TipoPol = TipoPol, @Folio = P.Folio FROM Polizas P WHERE Id = @IdPoliza;")
-        StrSQL.AppendLine("       SELECT @SegNegMovtos = SegNegMovtos FROM Cuentas C WHERE Id = @IdCuenta;")
+        StrSQL.AppendLine("       SELECT @SegNegMovtos = SegNegMovtos, @IdMoneda = IdMoneda FROM Cuentas C WHERE Id = @IdCuenta;")
         StrSQL.AppendLine("")
         StrSQL.AppendLine("       BEGIN TRY")
         StrSQL.AppendLine("       ")
+        StrSQL.AppendLine("       IF (@IdMoneda = 1)  SET @ImporteME = 0; ")
 
         ''DESCOMENTAR PARA CIERRE PERIODO
         'StrSQL.AppendLine("DECLARE")