diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9d649fb1c..52003642f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -34586,6 +34586,7 @@ Partial Class Ventas
             If DrPS IsNot Nothing Then
                 CveUM = drPSFlete("CveUnidadMedida").ToString().ToEntero()
                 CveClasificacion = drPSFlete("CveClasificacion").ToString().ToEntero()
+                UnidadMedida = drPSFlete("UnidadMedida").ToString()
             End If
 
             Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()