- nuevo método SubString

App_Code/modExtensiones.vb

@@ -821,6 +821,10 @@ Namespace Extensiones
             End If
             Return Tmp
         End Function
+        <Runtime.CompilerServices.Extension()>
+        Public Function SubStringADS(Str As String, Longitud As Integer) As String
+            Return Str.Substring(0, If(Str.Length > 30, 30, Str.Length))
+        End Function
 
         <Runtime.CompilerServices.Extension()>
         Public Function Texto2Letras(ByVal Importe As Decimal, Optional CveMoneda As Integer = 1) As String

Ventas/Ventas.aspx.vb

@@ -5194,7 +5194,7 @@ Partial Class Ventas
             HdnTotalVenta.Value = DbRowVenta("Total").ToString().FormatoNumero(2)
             TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString()
             TxtObsFact.Text = DbRowVenta("Observaciones").ToString()
-            LblUsuario.Text = DbRowVenta("Nombre").ToString().Substring(0, If(DbRowVenta("Nombre").ToString.Length > 30, 30, DbRowVenta("Nombre").ToString.Length))
+            LblUsuario.Text = DbRowVenta("Nombre").ToString().SubStringADS(30)
             LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString().ToDate.ToShortDateString
             LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString()
             LblMail.Text = DbRowVenta("EnvioMail").ToString()