diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d0c65fca6..5fad3f3ff 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2671,6 +2671,7 @@ Partial Class Ventas
                 If UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 Then
                     ViewState("CveCliente") = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
                     HdnCveCliente.Value = UsuarioActual.Empresa.Funcionalidad(714)
+                    RBLPago.SelectedValue = "2"
                     CargaCliente(CveCliente)
                 End If
             End If
@@ -3532,11 +3533,11 @@ Partial Class Ventas
     Private Sub ValidaUsuarioAcceso()
         'VERIFICAR SI LA SESION SE ENCUENTRA BLOQUEADA
         If UsuarioActual.Empresa.Funcionalidad(599) = "1" Then
-            Dim DrUsuario As DataRow = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
+            Dim DrUsuario As DataRow = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
 
-            If DrUsuario("CodigoAcceso").ToString() <> "" Then
+            If DrUsuario IsNot Nothing AndAlso DrUsuario("CodigoAcceso").ToString() <> "" Then
                 If UsuarioActual.SesionBloqueada Then
-                    DivBloqueoacceso.Visible = False
+                    DivBloqueoAcceso.Visible = False
                     Dim strScript As New StringBuilder
                     strScript.Append("window.onload = function MuestraBloqueo() { document.getElementById(""C_BtnShowBloqueoAcceso"").click(); setTimeout(function(){ $('#C_TxtCodigoAcceso').focus(); ")
                     If UsuarioActual.ErrorDesbloqueo Then
@@ -3553,10 +3554,10 @@ Partial Class Ventas
                     BtnEmitirImprimir.Visible = False
                     Exit Sub
                 Else
-                    DivBloqueoacceso.Visible = True
+                    DivBloqueoAcceso.Visible = True
                 End If
             Else
-                DivBloqueoacceso.Visible = False
+                DivBloqueoAcceso.Visible = False
             End If
         Else
             DivBloqueoacceso.Visible = False
@@ -12903,6 +12904,13 @@ Partial Class Ventas
             'si el codigo objeto impuesto es 02 y no tiene desglose de impuestos por el descuento, debe asignar el valor 04 - Si objeto de impuesto y no causa impuesto
             If concepto.Impuestos.Count = 0 AndAlso concepto.ObjetoImpuesto = "02" AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(2) = 0.00D Then
                 concepto.ObjetoImpuesto = "04"
+                'se ajusta a un centavo, para que se pueda emitir con un centavo.
+                If UsuarioActual.CveEmpresa = 140 Then
+                    concepto.ObjetoImpuesto = "02"
+                    concepto.Descuento = concepto.Descuento - 0.01D
+                    Obj.SubTotal = Obj.SubTotal + 0.01D
+                    Obj.Total = Obj.Total + 0.01D
+                End If
             End If
 
             Timbre.Conceptos.Add(concepto)
@@ -37164,7 +37172,7 @@ Partial Class Ventas
         If HdnDescPS.Value.ToEntero() > 0 Then
             Dim RowUpdate As DataRow = TmpDT.Select($"Consec = {HdnConsecPS.Value}").FirstOrDefault()
             If RowUpdate IsNot Nothing Then
-                If HdnDescPS.Value.ToDecimal().RoundSQL(2) < RowUpdate("Total").ToString().ToDecimal() Then
+                If HdnDescPS.Value.ToDecimal().RoundSQL(2) <= RowUpdate("Total").ToString().ToDecimal() Then
                     RowUpdate("Descuento") = HdnDescPS.Value.ToDecimal().RoundSQL(2)
 
                     Dim TotalCalculableImpuestos = (RowUpdate("Cantidad").ToString().ToDecimal * RowUpdate("PU").ToString().ToDecimal) - RowUpdate("Descuento").ToString().ToDecimal()
@@ -37177,7 +37185,7 @@ Partial Class Ventas
                     CalculaTotalesVenta()
                     RegistraScript("$('#ModalDescPS').modal('hide');")
                 Else
-                    Alert("El descuento no puede ser mayor o igual al total.", TipoMensaje.MsgAdvertencia)
+                    Alert("El descuento no puede ser mayor al total.", TipoMensaje.MsgAdvertencia)
                 End If
 
             End If