visualización litraje

Ventas/ProductosServicios.aspx.vb

@@ -245,6 +245,8 @@ Partial Class ProductosyServicios
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 DivPSAdicionalVigencia.Visible = True
                 divCodigo2.Visible = True
+                divLitraje.Visible = True
+
                 CargaPSAdicionalesVigencias()
             End If
 
@@ -846,6 +848,7 @@ Partial Class ProductosyServicios
                 TxtCodigo2.Text = ObjProductosServicios.Codigo2
                 TxtCodigoBarras.Text = ObjProductosServicios.CodigoBarras
                 CodigoBarrasCargado = ObjProductosServicios.CodigoBarras
+                TxtLitraje.Text = ObjProductosServicios.DtResultados.Rows(0)("Litraje").ToString
 
                 TxtPS.Text = ObjProductosServicios.PS
                 TxtPrecio.Text = ObjProductosServicios.Precio.ToString("F4") 'no usa N4, porque pone comma