diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e573663a5..750625e13 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2719,6 +2719,7 @@ Partial Class Ventas
                         TmpDT.Columns.Add("AFValorInicial", GetType(Decimal))
                         TmpDT.Columns.Add("NumTurnos", GetType(Decimal))
                         TmpDT.Columns("NumTurnos").DefaultValue = 0D
+                        TmpDT.Columns.Add("NumeroPedimento", GetType(String))
 
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
@@ -3421,7 +3422,7 @@ Partial Class Ventas
                 UPObservaciones.Update()
             End If
 
-            If UsuarioActual.CveEmpresa = 13 Then
+            If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then
                 TrDescripcionVenta.Visible = True
                 If CveVenta <= 0 Then
                     TxtDescripcionVenta.Enabled = True
@@ -4817,7 +4818,7 @@ Partial Class Ventas
                             End If
                         End If
 
-                        If UsuarioActual.CveEmpresa = 13 Then
+                        If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then
                             TrDescripcionVenta.Visible = True
                             TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
                         End If
@@ -19825,7 +19826,7 @@ Partial Class Ventas
             If Indice >= 0 Then
                 ' rowSurtidos("Surtido").ToString().ToDouble < rowSurtidos("Cantidad").ToString().ToDouble AndAlso (dr("CantidadDisponible").ToString().ToDouble - rowSurtidos("Surtido").ToString().ToDouble > 0 Or dr("Serie").ToString() <> "")
                 If rowSurtidos("Surtido").ToString().ToDecimal < rowSurtidos("Cantidad").ToString().ToDecimal Then
-                    Dim CantidadSurtida As Double = If(dr("CantidadDisponible").ToString().ToDecimal < rowSurtidos("Cantidad").ToString().ToDouble, dr("CantidadDisponible").ToString().ToDecimal, rowSurtidos("Cantidad").ToString().ToDecimal)
+                    Dim CantidadSurtida As Decimal = If(dr("CantidadDisponible").ToString().ToDecimal < rowSurtidos("Cantidad").ToString().ToDouble, dr("CantidadDisponible").ToString().ToDecimal, rowSurtidos("Cantidad").ToString().ToDecimal)
 
                     'SI LA CANTIDAD SURTIDA SUPERA LO REQUERIDO, TOMA SOLO LO NECESARIO PARA COMPLETAR
                     If (rowSurtidos("Surtido").ToString().ToDecimal + CantidadSurtida) > rowSurtidos("Cantidad").ToString().ToDecimal Then
@@ -20155,7 +20156,7 @@ Partial Class Ventas
                     If CveMovimientoVirtual > 0 Then
                         For Each RowUsado As DataRow In DtPSVirtual.Rows
                             Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
-                            Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
+                            Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
                             Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
                             Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()