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

Correcion Pago electronico grupus trim observacion

Browse Source
This commit is contained in:
Oscar Irigoyen
2025-07-04 10:20:03 -07:00
parent 7b8ca51445
commit 635f757742
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -2037,15 +2037,15 @@ Partial Class Bancos_PagoElectronicoGrupos
'Motivo de pago 'Motivo de pago
If drow("Observaciones").ToString.Trim.Length > 30 Then If drow("Observaciones").ToString.Trim.Length > 30 Then
RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30)) RegistrosPago.Append(drow("Observaciones").ToString.Trim.Substring(0, 30))
Else Else
RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno)) RegistrosPago.Append(drow("Observaciones").ToString.Trim.PadRight(30, EspacioRelleno))
End If End If
If drow("Referencia").ToString.Trim.Length > 7 Then If drow("Referencia").ToString.Trim.Length > 7 Then
RegistrosPago.Append(drow("Referencia").ToString.Substring(0, 7)) RegistrosPago.Append(drow("Referencia").ToString.Trim.Substring(0, 7))
Else Else
RegistrosPago.Append(drow("Referencia").ToString.PadRight(7, EspacioRelleno)) RegistrosPago.Append(drow("Referencia").ToString.Trim.PadRight(7, EspacioRelleno))
End If End If
RegistrosPago.Append("H") RegistrosPago.Append("H")