Cambios de BDH

Ventas/PV.aspx.vb

@@ -1062,7 +1062,7 @@ Partial Class PV
             'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")
             'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();")
             TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();")
-            TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();")
+            TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuentoMonto();")
             TxtFechaAjuste.Attributes.Add("onchange", "CalculaMesesUso();")
 
             CreaDTmpC()
@@ -2771,6 +2771,9 @@ Partial Class PV
             Exit Sub
         End If
 
+        TxtDescuento.Text = FormatoNumero(0, 2)
+        TxtPrecio.Text = ""
+
         If CvePSParametro > 0 Then
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
 
@@ -5102,7 +5105,7 @@ Partial Class PV
         Dim NoMesesTrascurridos2 = DateDiff(DateInterval.Month, FechaI, FechaF)
 
         'TxtMesesUso.Text = If(Diff > 0.5, NoMesesTrascurridos, NoMesesTrascurridos2).ToString()
-        TxtMesesUso.Text = NoMesesTrascurridos2
+        TxtMesesUso.Text = NoMesesTrascurridos2.ToString
         CalculaPorcentajeAjuste()
     End Sub