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