-- unidad de medida visual, en carta porte

2022-06-20 16:20:32 -07:00
parent a3be267309
commit dbadc2d80f
1 changed files with 1 additions and 0 deletions
--- 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()