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

15
Bancos/PagoElectronicoGrupos.aspx
View File

@@ -574,7 +574,7 @@
Prefijo Folio:
</div>
<div class="col-md-6" style="text-align:left!important">
<asp:TextBox ID="TxtFolio" MaxLength="6" runat="server" CssClass="CSSPrefijo form-control" Style="width:150px!important;height:28px!important" onkeyup="PrefijoFolioEnviados(this)" ></asp:TextBox>
<asp:TextBox ID="TxtFolio" MaxLength="25" runat="server" CssClass="CSSPrefijo form-control" Style="width:150px!important;height:28px!important" onkeyup="PrefijoFolioEnviados(this)" ></asp:TextBox>
</div>
</div>
@@ -606,7 +606,7 @@
<asp:BoundField HeaderText="Folio" DataField="Folio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px" HeaderText="Nuevo Folio">
<ItemTemplate>
<asp:TextBox ID="TxtFolio" MaxLength="15" onkeyup="validaLongitudFolio(this);" runat="server" CssClass="CSSPrefijo form-control" CausesValidation="true" Style="width: 150px !important; height:25px!important" ></asp:TextBox>
<asp:TextBox ID="TxtFolio" MaxLength="25" runat="server" CssClass="CSSPrefijo form-control" CausesValidation="true" Style="width: 150px !important; height:25px!important" ></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
@@ -928,17 +928,6 @@
}
function validaLongitudFolio(v) {
var TamanioS = String(v.value);
var Tamanio = TamanioS.lenght;
alert(Tamanio);
if (Tamanio >= 14) {
alert("El folio especificado es demaciado grande");
}
}
</script>
</asp:Content>

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")