From 4f090d0c9531e1734ca0979c28a254569b2b9698 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Jan 2025 09:18:55 -0700
Subject: [PATCH] -- mejora

---
 Compras/Compras.aspx.vb | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 63b5902ff..133156eb5 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7768,7 +7768,7 @@ Partial Class Compras_Compras
 
 
                                     If UsuarioActual.Empresa.Funcionalidad(574) = "1" AndAlso (ImporteRNC > 0 Or ImporteRNCProntoPago > 0) Then
-                                        If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, ObjConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero,
+                                        If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, ObjConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero, TxtTC.Text.ToDecimal,
                                                          TxtSerie.Text, TxtFolio.Text) Then
                                             TieneError = True
                                         End If
@@ -19132,7 +19132,7 @@ Partial Class Compras_Compras
                     CompraActual.CveSubProyecto = tCveSubProyeto
                     CompraActual.EsImportacion = chkImportacion.Checked
 
-                    If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, objConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero,
+                    If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, objConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero, TxtTC.Text.ToDecimal,
                                                             TxtSerie.Text, TxtFolio.Text, EsDRMN:=True) Then
                         TieneError = True
                     End If
@@ -21895,13 +21895,13 @@ Partial Class Compras_Compras
 #Region "PRONTO PAGO"
 
     Public Function GeneraRNC(ByRef sqltransaccion As SqlTransaction, CveCompraRegistrada As Integer, ByRef CompraActual As Compra, ByRef ObjConta As ClsContabilidad, CvePrePoliza As Integer,
-                              CveProveedor As Integer, NombreProveedor As String, Fecha As Date, Descripcion As String, CveMoneda As Integer, Serie As String, Folio As String, Optional EsDRMN As Boolean = False, Optional TmpListadoPS As DataTable = Nothing) As Boolean
+                              CveProveedor As Integer, NombreProveedor As String, Fecha As Date, Descripcion As String, CveMoneda As Integer, TipoCambio As Decimal, Serie As String, Folio As String, Optional EsDRMN As Boolean = False, Optional TmpListadoPS As DataTable = Nothing) As Boolean
         CveCompraDRMC = -1
         Dim respuesta As Boolean = True
         Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
 
         Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
-        Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
+        Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
         Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
         Dim SubProyecto As String = ""
 
@@ -21920,7 +21920,6 @@ Partial Class Compras_Compras
         If PSRow IsNot Nothing Then
 
             Dim CompraRNC As New ClsCompraManagerCompras(UsuarioActual) With {
-                .CveFactura = -1,
                 .TipoDocto = "RNC",
                 .CveProveedor = CveProveedor,
                 .CveTipoProveedor = CveTipoProveedor,
@@ -21929,19 +21928,20 @@ Partial Class Compras_Compras
                 .NombreProveedor = NombreProveedor,
                 .Fecha = Fecha,
                 .CveMoneda = CveMoneda,
+                .TipoCambio = If(CveMoneda = 1, 1, TipoCambio),
                 .Serie = $"D-{Serie}",
                 .Folio = Folio,
                 .CveCompraAmortizacion = CveCompraRegistrada
             }
 
-            Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
-            If PSRow("CvePSCargo").ToString <> "" Then
-                CveTipoPS = 2
-            End If
+            'Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
+            'If PSRow("CvePSCargo").ToString <> "" Then
+            '    CveTipoPS = 2
+            'End If
 
             Dim CveClasificacion As Integer = PSRow("CveClasificacion").ToString.ToEntero
             Dim Clasificacion As String = PSRow("Clasificacion").ToString
-            Dim PS As String = PSRow("PS").ToString
+            Dim PS As String = PSRow("PSCodigo").ToString
             Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero
             Dim UM As String = PSRow("UnidadMedida").ToString
             Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
@@ -21975,6 +21975,7 @@ Partial Class Compras_Compras
                     .NombreProveedor = NombreProveedor,
                     .Fecha = Fecha,
                     .CveMoneda = CveMoneda,
+                    .TipoCambio = If(CveMoneda = 1, 1, TipoCambio),
                     .Serie = $"PP-{Serie}",
                     .Folio = $"{Folio}",
                     .CveCompraAmortizacion = CveCompraRegistrada