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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2025-07-15 16:37:29 -07:00
parent dfc9435ee4 a6bfb26cb2
commit 3e75367772
19 changed files with 3123 additions and 1300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Bancos/ConciliacionesBancarias.aspx.vb
View File

@@ -6,6 +6,7 @@ Imports Extensiones
Imports System.Xml
Imports Microsoft.Reporting.WebForms
Imports System.Globalization
Imports Telerik.Web.UI
Partial Class Bancos_ConciliacionesBancariasaspx
Inherits ClsPaginas
@@ -231,15 +232,20 @@ Partial Class Bancos_ConciliacionesBancariasaspx
RegistraScript("$('#DModalCriterio').modal()")
End Sub
Private Sub ConciliacionManual()
If GvDatos.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count = 0 OrElse GvEdoConciliacion.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count = 0 Then
Alert("Debe seleccionar un folio", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim SumaSIGAbono As Double = 0
Dim SumaSIGCargo As Double = 0
Dim SumaExcelAbono As Double = 0
Dim SumaExcelCargo As Double = 0
Dim Seleccionados As Integer = 0
Dim Fecha As Date
For Each Gvr As GridViewRow In GvDatos.Rows
If Gvr.FCCheckBox("ChkConciliado").Checked And Gvr.FCCheckBox("ChkConciliado").Enabled Then
Seleccionados += 1
Fecha = Gvr.DataKey("FechaDocumento").ToDate
If Gvr.DataKey("Tipo") = "Cargo" Then
If Gvr.DataKey("Importe").ToDouble < 0 Then ' cuando es negativo suma para el abono
@@ -258,13 +264,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
End If
End If
Next
If Seleccionados > 1 Then
Alert("Tiene que tener seleccionado solamente un movimiento.", TipoMensaje.MsgAdvertencia)
Exit Sub
ElseIf Not Seleccionados > 0 Then
Alert("Tiene que tener seleccionado .", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
For Each Gvr As GridViewRow In GvEdoConciliacion.Rows
If Gvr.FCCheckBox("ChkConciliado").Checked And Gvr.FCCheckBox("ChkConciliado").Enabled Then
If (Gvr.DataKey("FechaDocumento").ToDate = Fecha And DdlCriterio.SelectedValue.ToEntero = 1) Or DdlCriterio.SelectedValue.ToEntero = 2 Then
@@ -279,10 +279,20 @@ Partial Class Bancos_ConciliacionesBancariasaspx
End If
End If
Next
If SumaSIGCargo <> SumaExcelCargo OrElse SumaSIGAbono <> SumaExcelAbono Then
Alert($"La suma de los importes no cuadran ({SumaSIGCargo}-{SumaExcelCargo}**{SumaSIGAbono}-{SumaExcelAbono})", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim CumpleCriterioContable = GvDatos.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count = 1 AndAlso GvEdoConciliacion.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count >= 1
Dim CumpleCriterioBancario = GvEdoConciliacion.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count = 1 AndAlso GvDatos.Rows.Cast(Of GridViewRow).Where(Function(gvr) gvr.FCCheckBox("ChkConciliado").Checked).Count >= 1
If Not (CumpleCriterioContable OrElse CumpleCriterioBancario) Then
Alert("Debe seleccionar solo 1 folio del lado contable o bancario", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim ObjBancos As New ClsBancos
Dim ObjOI As New ClsOIEventos(ObjBancos.IniciaTransacSQL())
Dim ErrorTrans As Boolean = False

1589
Bancos/PagoElectronico.aspx.vb
View File

File diff suppressed because it is too large Load Diff

4
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -866,7 +866,7 @@ Partial Class Bancos_PagoElectronicoGrupos
ElseIf OpBancos = 2 Then
AltaProveedoresBajio()
ElseIf OpBancos = 3 Then
'AltaProveedoresScotia() SE DEJA COMENTADO PORQUE NO SE ESTA USANDO, SE CAMBIO A PAGO ELECTRONICO
'AltaCuentasScotia() SE DEJA COMENTADO PORQUE NO SE ESTA USANDO, SE CAMBIO A PAGO ELECTRONICO
End If
@@ -2743,7 +2743,7 @@ Partial Class Bancos_PagoElectronicoGrupos
ElseIf OpBancos = 2 Then
AltaProveedoresBajio(DTProveedores)
ElseIf OpBancos = 3 Then
'AltaProveedoresScotia(DTProveedores)
'AltaCuentasScotia(DTProveedores)
End If

10
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1662,17 +1662,17 @@ Partial Class Bancos_ProveedoresAbonar
ElseIf OpBanco = 3 Then
If dtc.Rows.Count > 0 Then
DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'")
DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'") 'dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'")
DdlCuentaDeposito.DataBind()
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
End If
If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then
If dtc.FiltraParametros("Estatus ='True'").Rows.Count > 0 Then
trCuentaDeposito.Visible = True
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
'ñDdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
Else
BtnIEGuardar.Enabled = False
Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
'BtnIEGuardar.Enabled = False
Alert("El beneficiario no tiene una cuenta deposito activa, de la de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
End If
End If
ElseIf DdlTipoTransaccion.SelectedValue = "17" Then