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

Pago electronico tamaño usuario cabecera, ddltipotransaccion error al seleccionar layout

Browse Source
This commit is contained in:
Rakcsle Supertramp
2019-11-06 14:01:44 -07:00
parent ec13d9d1e6
commit 6dd75ae103
3 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Bancos/PagoElectronico.aspx.vb
View File

@@ -798,9 +798,14 @@ Partial Class Bancos_PagoElectronico
'''''' LLENADO HEADER
Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
'Campos #1-4 del Header
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
'Campo #5 del Header
HeaderTexto &= String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
'Campo #5 del Header
Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").ToUpper.Trim
IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario)
' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")))
HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
HeaderTexto &= String.Format("00").PadRight(586)
Dim HeaderLength = HeaderTexto.Length

7
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -2298,7 +2298,12 @@ Partial Class Bancos_ProveedoresAbonar
End If
DdlCuentaDeposito.DataBind()
DdlCuentaDeposito.SelectedIndex = 1
If DdlCuentaDeposito.Items.Count > 1 Then
DdlCuentaDeposito.SelectedIndex = 1
End If
End If
End If