From 1ba150f8ebd94e52ec3dd42a74d742ace643c62f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Apr 2024 19:43:41 -0700
Subject: [PATCH] -- mejora en RNC

---
 Compras/Compras.aspx.vb            | 2 +-
 Contabilidad/RegPrePolizaS.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 21147d7f7..ace5f8509 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -20931,7 +20931,7 @@ Partial Class Compras_Compras
 
                 CompraRNCProntoPago.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago, PorcentajeIVA)
                 If CompraRNCProntoPago.AddCompra(sqltransaccion) Then
-                    Dim tImporteRNCProntoPago = ImporteRNCProntoPago + IVARNC ' le agrego el importe del iva
+                    Dim tImporteRNCProntoPago = ImporteRNCProntoPago + IVARNCProntoPago ' le agrego el importe del iva
                     Dim Pago As New CompraPago
                     Pago.ImportePago = tImporteRNCProntoPago
                     Pago.CveMonedaPago = CompraActual.CveMoneda
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index d3f7770d9..bbf936287 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -451,7 +451,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtFolio.Text = dr("FolioPoliza").ToString
                 TxtUsuarioElaboro.Text = dr("Usuario").ToString
                 TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
-                TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToShortTimeString
+                TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToString("HH:mm:ss")
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero
                 DdlPlantilla.SelectedValueExist(CvePlantillaPoliza)
                 HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}"