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

Correciones pago electronico grupos

Browse Source
This commit is contained in:
rakcsle
2023-10-14 09:02:56 -07:00
parent e4b610d3da
commit 2078e86a98
2 changed files with 7 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -630,7 +630,7 @@ Partial Class Bancos_PagoElectronicoGrupos
e.Row.FCHyperLink("HLDetalle").NavigateUrl = String.Format("IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
If e.Row.DataKey("Estatus").ToEntero.contiene(2, 3) Then
If e.Row.DataKey("Estatus").ToEntero.Contiene(2, 3) Then
e.Row.FCLinkButton("ImgUpload").Visible = False
e.Row.FCLinkButton("LnkGvCancelar").Visible = False
@@ -1029,7 +1029,7 @@ Partial Class Bancos_PagoElectronicoGrupos
' 'Llenamos en blanco datos de otros bancos
' 'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
' DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS().ToString("yyyy-MM-dd"))
' DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS()().ToString("yyyy-MM-dd"))
' 'Otros Bancos NACIONAL!!
@@ -1043,7 +1043,7 @@ Partial Class Bancos_PagoElectronicoGrupos
' 'Llenamos datos de otros bancos
' 'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
' DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS().ToString("yyyy-MM-dd"))
' DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS()().ToString("yyyy-MM-dd"))
' End If
' 'Llenamos datos de Tipo de Persona - Fisica o Moral
@@ -1162,7 +1162,7 @@ Partial Class Bancos_PagoElectronicoGrupos
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, NowADS().ToString("yyyyMMdd")))
' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, NowADS()().ToString("yyyyMMdd")))
HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, NowADS().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
@@ -2370,7 +2370,7 @@ Partial Class Bancos_PagoElectronicoGrupos
Protected Sub BtnReportePago_Click(sender As Object, e As EventArgs)
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")