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

Layout ScotiaBankl

Browse Source
This commit is contained in:
Oscar Irigoyen
2025-06-21 12:31:33 -07:00
parent f8d9f5a70a
commit 0e6fa86ee5
6 changed files with 3752 additions and 2121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsBancos.vb
View File

@@ -3267,13 +3267,18 @@ Public Class ClsBancos
' Return Retorno ' Return Retorno
'End Function 'End Function
Public Function UpdateCuentaDepositoPagoElectronico(CveCuentaDeposito As Integer) As Boolean Public Function UpdateCuentaDepositoPagoElectronico(CveCuentaDeposito As Integer, Optional Opcion As Integer = 1, Optional FechaEliminacion As Date = MinFecha) As Boolean
'Opcion 1: Bancomer, Opcion 2: Bajio, Opcion 3: Scotia
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_LayoutCuentaDepositoUpdate") DataAdapter("PA_Banc_LayoutCuentaDepositoUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
.Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@FechaEliminacion", SqlDbType.Date).Value = FechaEliminacion
End With End With
Try Try

75
Bancos/PagoElectronico.aspx
View File

@@ -105,11 +105,17 @@
<td> <td>
<asp:Label runat="server" ID="LbNumeroInterbancarias" Width="80px"></asp:Label></td> <asp:Label runat="server" ID="LbNumeroInterbancarias" Width="80px"></asp:Label></td>
</tr> </tr>
<tr> <tr runat="server" id="TRNumBancomer" visible="true">
<td>Bancomer:</td> <td>Bancomer:</td>
<td> <td>
<asp:Label runat="server" ID="LbNumeroBancomer" Width="80px"></asp:Label></td> <asp:Label runat="server" ID="LbNumeroBancomer" Width="80px"></asp:Label></td>
</tr> </tr>
<tr runat="server" id="TRNumScotia" visible="false">
<td>Scotia Bank:</td>
<td>
<asp:Label runat="server" ID="LbNumeroScotia" Width="80px"></asp:Label></td>
</tr>
<tr> <tr>
<td colspan="2" align="center"> <td colspan="2" align="center">
<asp:Button runat="server" ID="BtnGenerarAlta" Text="Generar Alta" OnClick="BtnAltas_Click" class="btn btn-primary" /> <asp:Button runat="server" ID="BtnGenerarAlta" Text="Generar Alta" OnClick="BtnAltas_Click" class="btn btn-primary" />
@@ -157,7 +163,7 @@
</table> </table>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
@@ -619,6 +625,71 @@
</tr> </tr>
</table> </table>
<div id="ModalDescarga" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<h4 class="modal-title">
<asp:Literal ID="LtlModalTituloDescarga" runat="server">Descarga Layout</asp:Literal></h4>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpModalDescarga" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-12" runat="server" id="DVDescargaPagos" visible=" false" >
<p> Pagos Descarga <asp:LinkButton runat="server" ID="LnkDescarga" OnClick="LnkDescarga_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
<div class="col-md-12" runat="server" id="DVDescargaCuentas1" visible=" false" >
<p><asp:Label runat="server" ID="LblCuentas" Text="Cuentas Bancomer"></asp:Label> <asp:LinkButton runat="server" ID="LnkDescargaCuentas1" OnClick="LnkDescargaCuentas1_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
<%--<div class="col-md-12" runat="server" id="DVDescargaCuentas2" visible=" false">
<p> Cuentas Interbancarias <asp:LinkButton runat="server" ID="LnkDescargaCuentas2" OnClick="LnkDescargaCuentas2_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
<div class="col-md-12" runat="server" id="DVDescargaCuentas3" visible=" false">
<p> Cuentas Convennios CIE <asp:LinkButton runat="server" ID="LnkDescargaCuentas3" OnClick="LnkDescargaCuentas3_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
--%>
<div class="col-md-12" runat="server" id="DVDescargaReporte" visible=" false">
<p> <asp:LinkButton runat="server" ID="LnkDescargaReporte" OnClick="LnkDescargaReporte_Click" CssClass="Texto" Text="Descargar Reporte"></asp:LinkButton> </p>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkDescarga" />
<asp:PostBackTrigger ControlID="LnkDescargaCuentas1" />
<%-- <asp:PostBackTrigger ControlID="LnkDescargaCuentas2" />
<asp:PostBackTrigger ControlID="LnkDescargaCuentas3" />--%>
<asp:PostBackTrigger ControlID="LnkDescargaReporte" />
</Triggers>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<asp:Button ID="BtnReporteAltaCarga" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaCarga_Click" /> <asp:Button ID="BtnReporteAltaCarga" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaCarga_Click" />
<asp:Button ID="BtnReporteAltaGenera" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaGenera_Click" /> <asp:Button ID="BtnReporteAltaGenera" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaGenera_Click" />
<asp:Button ID="BtnReportePago" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReportePago_Click" /> <asp:Button ID="BtnReportePago" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReportePago_Click" />

5606
Bancos/PagoElectronico.aspx.vb
View File

File diff suppressed because it is too large Load Diff

174
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -607,11 +607,11 @@ Partial Class Bancos_PagoElectronicoGrupos
Private Function CreaArchivo(Tipo As Integer, Optional MismoBanco As Boolean = True, Optional ByRef NombreArchivoEnviado As String = "") As Boolean Private Function CreaArchivo(Tipo As Integer, Optional MismoBanco As Boolean = True, Optional ByRef NombreArchivoEnviado As String = "") As Boolean
System.Threading.Thread.Sleep(1000) 'Un segundo de diferencia Para doferentes tipos de bancos System.Threading.Thread.Sleep(1000) 'Un segundo de diferencia Para dIferentes tipos de bancos
DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta)) DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA")) 'NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
If Tipo = 1 Then If Tipo = 1 Then
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTPAGO") NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTPAGO")
@@ -866,7 +866,7 @@ Partial Class Bancos_PagoElectronicoGrupos
ElseIf OpBancos = 2 Then ElseIf OpBancos = 2 Then
AltaProveedoresBajio() AltaProveedoresBajio()
ElseIf OpBancos = 3 Then ElseIf OpBancos = 3 Then
'AltaProveedoresScotia() 'AltaProveedoresScotia() SE DEJA COMENTADO PORQUE NO SE ESTA USANDO, SE CAMBIO A PAGO ELECTRONICO
End If End If
@@ -1349,86 +1349,88 @@ Partial Class Bancos_PagoElectronicoGrupos
'Protected Sub CrearDetalle()
' Dim Resultado = True
' Dim CuentaDeposito As String = "" 'Protected Sub CrearDetalle()
' Dim TipoCuentaDeposito As String = "" ' Dim Resultado = True
' Dim TipoCuenta As String = "" ' Dim CuentaDeposito As String = ""
' Dim TipoCuentaDeposito As String = ""
' ''''' LLENADO DE DETALLE ' Dim TipoCuenta As String = ""
' 'Campos #1-4 del Detalle
' DetalleTexto &= String.Format("DA{0}N ", DTPendienteActual(0)("CveCuentaDeposito").ToString.ToUpper.PadLeft(30, PadCeros)) ' ''''' LLENADO DE DETALLE
' 'Campos #1-4 del Detalle
' 'Banco BBVA ' DetalleTexto &= String.Format("DA{0}N ", DTPendienteActual(0)("CveCuentaDeposito").ToString.ToUpper.PadLeft(30, PadCeros))
' If DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BBVA") Or DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Then
' 'Llenamos datos de BBVA ' 'Banco BBVA
' 'Campo #5-7 del detalle ' If DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BBVA") Or DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Then
' 'Llenamos datos de BBVA
' 'Busca que cuenta sera la asignada para el proveedor ' 'Campo #5-7 del detalle
' If DTPendienteActual(0)("CIE").ToString <> "" Then
' CuentaDeposito = String.Format("02{0}", DTPendienteActual(0)("CIE").ToString.PadLeft(8, PadCeros)) ' 'Busca que cuenta sera la asignada para el proveedor
' TipoCuenta = "50" ' If DTPendienteActual(0)("CIE").ToString <> "" Then
' TipoCuentaDeposito = "CIE" ' CuentaDeposito = String.Format("02{0}", DTPendienteActual(0)("CIE").ToString.PadLeft(8, PadCeros))
' ElseIf DTPendienteActual(0)("Cuenta").ToString.Length = 10 Then ' TipoCuenta = "50"
' CuentaDeposito = DTPendienteActual(0)("Cuenta").ToString ' TipoCuentaDeposito = "CIE"
' TipoCuenta = "99" ' ElseIf DTPendienteActual(0)("Cuenta").ToString.Length = 10 Then
' TipoCuentaDeposito = "Cuenta" ' CuentaDeposito = DTPendienteActual(0)("Cuenta").ToString
' ElseIf DTPendienteActual(0)("CLABE").ToString.Length = 18 Then ' TipoCuenta = "99"
' CuentaDeposito = DTPendienteActual(0)("CLABE").ToString ' TipoCuentaDeposito = "Cuenta"
' TipoCuenta = "40" ' ElseIf DTPendienteActual(0)("CLABE").ToString.Length = 18 Then
' TipoCuentaDeposito = "CLABE" ' CuentaDeposito = DTPendienteActual(0)("CLABE").ToString
' End If ' TipoCuenta = "40"
' TipoCuentaDeposito = "CLABE"
' End If
' DetalleTexto &= String.Format("{0}{1}{2}", DTPendienteActual(0)("Abreviatura").ToString, TipoCuenta, CuentaDeposito.PadLeft(35, PadCeros))
' 'Llenamos en blanco datos de otros bancos ' DetalleTexto &= String.Format("{0}{1}{2}", DTPendienteActual(0)("Abreviatura").ToString, TipoCuenta, CuentaDeposito.PadLeft(35, PadCeros))
' '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")) ' '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"))
' 'Otros Bancos NACIONAL!!
' Else
' 'Otros Bancos NACIONAL!!
' CuentaDeposito = DTPendienteActual(0)("CLABE").ToString ' Else
' TipoCuentaDeposito = "CLABE"
' CuentaDeposito = DTPendienteActual(0)("CLABE").ToString
' 'Llenamos en blanco datos de BBVA ' TipoCuentaDeposito = "CLABE"
' DetalleTexto &= Vacio.PadRight(40)
' 'Llenamos en blanco datos de BBVA
' 'Llenamos datos de otros bancos ' DetalleTexto &= Vacio.PadRight(40)
' '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")) ' 'Llenamos datos de otros bancos
' End If ' '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"))
' 'Llenamos datos de Tipo de Persona - Fisica o Moral ' End If
' TipoPersona()
' 'Llenamos datos de Tipo de Persona - Fisica o Moral
' 'Campos 27-32 --- Fillers --- datos de otros bancos (internacional) ' TipoPersona()
' DetalleTexto &= Vacio.PadLeft(153)
' 'Campos 27-32 --- Fillers --- datos de otros bancos (internacional)
' 'Campos 33-36 --- Datos de confirmacion ' DetalleTexto &= Vacio.PadLeft(153)
' DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), CorreoNotificacionesEmpresa.ToUpper.PadRight(50))
' 'Campos 33-36 --- Datos de confirmacion
' 'If DTPendienteActual(0)("ContactoMail").ToString.Length > 0 Then ' DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), CorreoNotificacionesEmpresa.ToUpper.PadRight(50))
' ' 'DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), DTPendienteActual(0)("ContactoMail").ToString.ToUpper.PadRight(50))
' 'ElseIf DTPendienteActual(0)("ContactoMail").ToString.Length <= 0 Then ' 'If DTPendienteActual(0)("ContactoMail").ToString.Length > 0 Then
' ' DetalleTexto &= String.Format("{0}00{1}", Vacio.PadRight(40), Vacio.PadRight(50)) ' ' 'DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), DTPendienteActual(0)("ContactoMail").ToString.ToUpper.PadRight(50))
' 'End If ' 'ElseIf DTPendienteActual(0)("ContactoMail").ToString.Length <= 0 Then
' ' DetalleTexto &= String.Format("{0}00{1}", Vacio.PadRight(40), Vacio.PadRight(50))
' 'Campos 37-39 -- FILLER ' 'End If
' DetalleTexto &= String.Format("00{0}", Vacio.PadRight(38))
' 'Campos 37-39 -- FILLER
' DetalleTexto &= String.Format("00{0}", Vacio.PadRight(38))
' ''LLENA DT PARA REPORTE
' Dim Row = DtAlta.NewRow()
' Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString ' ''LLENA DT PARA REPORTE
' Row("Banco") = DTPendienteActual(0)("BancoNombre").ToString ' Dim Row = DtAlta.NewRow()
' Row("TipoCuenta") = TipoCuentaDeposito ' Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString
' Row("Cuenta") = String.Format("{0}", CuentaDeposito) ' Row("Banco") = DTPendienteActual(0)("BancoNombre").ToString
' DtAlta.Rows.Add(Row) ' Row("TipoCuenta") = TipoCuentaDeposito
'End Sub ' Row("Cuenta") = String.Format("{0}", CuentaDeposito)
' DtAlta.Rows.Add(Row)
'End Sub
Protected Sub TipoPersona() Protected Sub TipoPersona()
'Persona Moral 'Persona Moral
If DTPendienteActual(0)("RFC").ToString.Length = 12 Then If DTPendienteActual(0)("RFC").ToString.Length = 12 Then
@@ -1981,16 +1983,16 @@ Partial Class Bancos_PagoElectronicoGrupos
If drow("Observaciones").ToString.Trim.Length = 0 Then If drow("Observaciones").ToString.Trim.Length = 0 Then
If drow("RazonSocial").ToString.Trim.Length > 30 Then If drow("RazonSocial").ToString.Trim.Length > 30 Then
RegistrosPago.Append(drow("RazonSocial").ToString.Substring(0, 30)) RegistrosPago.Append(drow("RazonSocial").ToString.trim.Substring(0, 30))
Else Else
RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno)) RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno))
End If End If
Else Else
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
End If End If

2
Contabilidad/ContabilizacionCompras.aspx
View File

@@ -124,7 +124,7 @@
<asp:Button ID="BtnContabilizarCompras" runat="server" CssClass="btn btn-success" Text="Contabilizar" /> <asp:Button ID="BtnContabilizarCompras" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
</div> </div>
<asp:GridView ID="GvPrePolizaCompras" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza,IdPoliza" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false"> <asp:GridView ID="GvPrePolizaCompras" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza,IdPoliza,Modulo" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>

9
Contabilidad/ContabilizacionCompras.aspx.cs
View File

@@ -163,6 +163,15 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
{ {
e.Row.FCLinkButton("LBActualizarTC").Visible = true; e.Row.FCLinkButton("LBActualizarTC").Visible = true;
} }
if (UsuarioActual.CveEmpresa == 119 && e.Row.DBCampo("Modulo").ToString() == "Compras Comproba")
{
e.Row.FCCheckBox("Chk").Enabled = false;
e.Row.FCCheckBox("Chk").Checked = false;
e.Row.FCCheckBox("Chk").ToolTip = "Comprobación";
}
} }
} }