From bb41ab62519d11367db64adeb7137c5f241ebe9d Mon Sep 17 00:00:00 2001 From: JPerez Date: Fri, 20 Jun 2025 20:01:19 -0700 Subject: [PATCH 1/2] --Obs al saldar IxC --- Bancos/RepIngresosPorComprobar.aspx | 18 +++++++++++++----- Bancos/RepIngresosPorComprobar.aspx.vb | 15 ++++++++++----- 2 files changed, 23 insertions(+), 10 deletions(-) diff --git a/Bancos/RepIngresosPorComprobar.aspx b/Bancos/RepIngresosPorComprobar.aspx index f0c84a439..928e41330 100644 --- a/Bancos/RepIngresosPorComprobar.aspx +++ b/Bancos/RepIngresosPorComprobar.aspx @@ -282,7 +282,7 @@
Fecha:
-
+
@@ -294,11 +294,19 @@
-
-
SubProyecto:
+
+
+
SubProyecto:
- - + + +
+
+
+
+
Observaciones:
+
+
diff --git a/Bancos/RepIngresosPorComprobar.aspx.vb b/Bancos/RepIngresosPorComprobar.aspx.vb index 32e006658..12998e47f 100644 --- a/Bancos/RepIngresosPorComprobar.aspx.vb +++ b/Bancos/RepIngresosPorComprobar.aspx.vb @@ -267,6 +267,7 @@ Partial Class Bancos_RepIngresosPorComprobar End Sub Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs) + TxtObservaciones.Text = "" RegistraScript("$('#DivModalSaldar').modal();") End Sub @@ -277,16 +278,20 @@ Partial Class Bancos_RepIngresosPorComprobar ObjConta.IniciaTransacSQL() Dim CvePrePoliza As Integer = 0 Dim MsgError As String = "" - CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, "Saldo de IxC", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + Dim Obs As String = TxtObservaciones.Text.Trim() + + CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + Dim FolioPoliza As Integer = ObjConta.FolioPoliza For Each gr As GridViewRow In GvIPC.Rows If gr.FCCheckBox("Chk").Checked Then - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "Saldo de IxC", Obs, CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then MsgError = "Ocurrio un error al saldar el movimiento" End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "Saldo de IxC", Obs, CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then MsgError = "Ocurrio un error al saldar el movimiento" End If End If @@ -296,7 +301,7 @@ Partial Class Bancos_RepIngresosPorComprobar ObjConta.Commit() CargaDatos() - Alert(String.Format("Los movimientos se saldaron correctamente.

Póliza: {1}
", CvePrePoliza, ObjConta.ContaFolio)) + Alert(String.Format("Los movimientos se saldaron correctamente.

Póliza: {1}
", CvePrePoliza, FolioPoliza)) Else ObjConta.RollBack() Alert(MsgError, TipoMensaje.MsgError) From 0e6fa86ee544fd7e842f10b9413a1102822431a1 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Sat, 21 Jun 2025 12:31:33 -0700 Subject: [PATCH 2/2] Layout ScotiaBankl --- App_Code/ClsBancos.vb | 7 +- Bancos/PagoElectronico.aspx | 75 +- Bancos/PagoElectronico.aspx.vb | 5606 ++++++++++++------- Bancos/PagoElectronicoGrupos.aspx.vb | 174 +- Contabilidad/ContabilizacionCompras.aspx | 2 +- Contabilidad/ContabilizacionCompras.aspx.cs | 9 + 6 files changed, 3752 insertions(+), 2121 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 0be6651c1..8e7c0f8a7 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -3267,13 +3267,18 @@ Public Class ClsBancos ' Return Retorno '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 DataAdapter("PA_Banc_LayoutCuentaDepositoUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito + .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@FechaEliminacion", SqlDbType.Date).Value = FechaEliminacion End With Try diff --git a/Bancos/PagoElectronico.aspx b/Bancos/PagoElectronico.aspx index 85d24ba79..453f22d68 100644 --- a/Bancos/PagoElectronico.aspx +++ b/Bancos/PagoElectronico.aspx @@ -105,11 +105,17 @@ - + Bancomer: + + + Scotia Bank: + + + @@ -157,7 +163,7 @@
- + @@ -619,6 +625,71 @@ + + +