diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index dcf8f8b3d..29ad9b268 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -7378,50 +7378,56 @@ Partial Class PV
                         Dim strDate As Date = ($"20{TxtEtiqueta.Text.Substring(2, 2)}/{TxtEtiqueta.Text.Substring(0, 2)}/01").ToDate
                         Dim drg As DataRow = dtt.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# >= FechaInicioVigencia ", "FechaInicioVigencia DESC")
                         If drg IsNot Nothing Then
-
-                            TxtPorcentajeAjuste.Text = (drg("Valor").ToString.ToDouble / 100).ToString
+                            Dim PorcentajeAjuste As Decimal = drg("Valor").ToString.ToDecimal
+                            TxtPorcentajeAjuste.Text = (PorcentajeAjuste / 100).ToString
                             TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
                             ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
 
+                            ''ajustar un centavo
+                            If PorcentajeAjuste = 0 Then 'PONE UN PAGO DE UN CENTAVO, PARA EL TIMBRADO
+                                '    TxtImporteAjuste.Text = (TxtImporteAjuste.Text.ToDecimal - 0.01D).FormatoNumero
+                                TxtImporteAjuste.Text = "0.01"
+                            End If
+
                             Dim CargoVendido As Decimal = 0
-                            Dim CargoGarantia As Decimal = 0
+                                Dim CargoGarantia As Decimal = 0
                             Dim CveTamaño As Integer = 0
 
                             If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
-                                Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
-                                If Dr IsNot Nothing Then
-                                    CargoGarantia = Dr("Cargo").ToString.ToDecimal
+                                    Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
+                                    If Dr IsNot Nothing Then
+                                        CargoGarantia = Dr("Cargo").ToString.ToDecimal
+                                    End If
                                 End If
-                            End If
 
-                            If DdlPS.SelectedValue.ToEntero > 0 Then
-                                Dim Dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
-                                If Dr IsNot Nothing Then
-                                    CveTamaño = Dr("CveTamaño").ToString.ToEntero
+                                If DdlPS.SelectedValue.ToEntero > 0 Then
+                                    Dim Dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+                                    If Dr IsNot Nothing Then
+                                        CveTamaño = Dr("CveTamaño").ToString.ToEntero
+                                    End If
                                 End If
-                            End If
 
-                            Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"  CveTamaño = {CveTamaño}")
-                            If DrCargo IsNot Nothing Then
+                                Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"  CveTamaño = {CveTamaño}")
+                                If DrCargo IsNot Nothing Then
 
-                                CargoVendido = DrCargo("Cargo").ToString.ToDecimal
+                                    CargoVendido = DrCargo("Cargo").ToString.ToDecimal
 
-                            End If
+                                End If
 
-                            'el ajuste no puede ser mayor al precio de lo vendido de nuevo
-                            If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
+                                'el ajuste no puede ser mayor al precio de lo vendido de nuevo
+                                If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
 
-                                TxtImporteAjuste.Text = "0.00"
-                                CargoGarantia = CargoVendido
-                                ImportePagarCliente = 0
-                            End If
-                            ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
+                                    TxtImporteAjuste.Text = "0.00"
+                                    CargoGarantia = CargoVendido
+                                    ImportePagarCliente = 0
+                                End If
+                                ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
 
-                            TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
-                            TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
-                            'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
-                        Else
-                            Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
+                                TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
+                                TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
+                                'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
+                            Else
+                                Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
                             'cuando no está registrada, no da ajuste
                             TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
                             TxtImporteAjuste.Text = "0.00"