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

- se dividió en 2 PA, repie y el getie, que solo obtendrá info de 1 IE

Browse Source
This commit is contained in:
rrene
2023-02-19 20:13:56 -07:00
parent 1afd8aa281
commit 81e9d80095
4 changed files with 57 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Bancos/IE.aspx.vb
View File

@@ -5308,12 +5308,13 @@ Partial Class Bancos_IE
'Recaga CuentasBancarias de Proveedor
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales
GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
'Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
End If
ObjCuentasBancos.Dispose()
'If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
' GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
'End If
'ObjCuentasBancos.Dispose()
End If
End Sub
Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)

4
Bancos/PopUpBuscarIE.aspx.vb
View File

@@ -73,11 +73,11 @@ Partial Class Bancos_PopUpBuscarIE
If ValidarFiltrosSeleccionado() Then
Dim ObjBancosIE As New ClsBancos
If ObjBancosIE.GetBancosIE(-1, -1, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate,
If ObjBancosIE.GetBancosRepIE(-1, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate,
MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then
DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados)
Else
Alert("Ocurrió un error al consultar los Anticipos", TipoMensaje.MsgError)
Alert("Ocurrió un error al consultar bancos", TipoMensaje.MsgError)
DtDatos = Nothing
End If

2
Bancos/RepIE.aspx.vb
View File

@@ -149,7 +149,7 @@ Partial Class Bancos_RepIE
Dim ObjBancosIE As New ClsBancos
If ObjBancosIE.GetBancosIE(-1, -1, Cuenta, DdlTipo.SelectedValue, DdlTipoTransaccion.SelectedValue.ToEntero, Folio, PagueseA, -1, DdlMoneda.SelectedValue.ToEntero,
If ObjBancosIE.GetBancosRepIE(-1, Cuenta, DdlTipo.SelectedValue, DdlTipoTransaccion.SelectedValue.ToEntero, Folio, PagueseA, -1, DdlMoneda.SelectedValue.ToEntero,
If(ChkEsAbonoEnCuenta.Checked.ToEntero = 0, -1, 1),
DdlConciliado.SelectedValue.ToEntero, DdlEstatusIE.SelectedValue.ToEntero, FechaI, FechaF, FechaAplicacionI, FechaAplicacionF,
FechaConciliadoI, FechaConciliadoF, DdlUsuarioConcilio.SelectedValue.ToEntero, Importe, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjeta.SelectedValue.ToEntero) Then