AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- nuevo método SubString

Browse Source
This commit is contained in:
rrene
2024-01-08 11:05:29 -07:00
parent 6704d38b99
commit 6769d82e23
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/modExtensiones.vb
View File

@@ -821,6 +821,10 @@ Namespace Extensiones
End If End If
Return Tmp Return Tmp
End Function 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()> <Runtime.CompilerServices.Extension()>
Public Function Texto2Letras(ByVal Importe As Decimal, Optional CveMoneda As Integer = 1) As String Public Function Texto2Letras(ByVal Importe As Decimal, Optional CveMoneda As Integer = 1) As String

2
Ventas/Ventas.aspx.vb
View File

@@ -5194,7 +5194,7 @@ Partial Class Ventas
HdnTotalVenta.Value = DbRowVenta("Total").ToString().FormatoNumero(2) HdnTotalVenta.Value = DbRowVenta("Total").ToString().FormatoNumero(2)
TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString() TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString()
TxtObsFact.Text = DbRowVenta("Observaciones").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 LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString().ToDate.ToShortDateString
LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString() LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString()
LblMail.Text = DbRowVenta("EnvioMail").ToString() LblMail.Text = DbRowVenta("EnvioMail").ToString()