From c312c34b24f3d020b93b74b9168228516c086d2a Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 24 Dec 2024 05:26:15 -0700 Subject: [PATCH] -- formateo en precio sugerencia --- Ventas/Ventas.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 547a40cf8..fa3137a2b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -18767,7 +18767,7 @@ Partial Class Ventas If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido - GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere + GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere End If End If End If @@ -34994,7 +34994,7 @@ Partial Class Ventas If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido - Row("Precio") = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere + Row("Precio") = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere End If Next End If @@ -38256,7 +38256,7 @@ Partial Class Ventas If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido - TxtPrecioMercancia.Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere + TxtPrecioMercancia.Text = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere End If End If @@ -38609,7 +38609,7 @@ Partial Class Ventas Dim ObjPrecioSugerido As Modelos.MPrecioSugerido = CalculaPrecioSugerido(drPS("CvePS").ToString().ToEntero(), drPS("CveClasificacion").ToString().ToEntero(), CvePrecioListaSugerido:=DdlPrecioLista.SelectedValue.ToEntero()) If ObjPrecioSugerido.PrecioSugerido > 0 Then - TxtPrecio.Text = ObjPrecioSugerido.PrecioSugerido.ToString("#,###.####") + TxtPrecio.Text = ObjPrecioSugerido.PrecioSugerido.ToString("#,##0.####") Else Alert("El Producto no tiene especificado precio en la lista de precio.") End If @@ -39266,7 +39266,7 @@ Partial Class Ventas End If If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido - GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,###.####") + GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,##0.####") End If Next