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

GlobalDTOCEstatusUsuarios, GlobalDTBancosCuentas, OC anticpos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-07-16 15:23:10 -07:00
parent 2188c6b8ce
commit 7cf2df795a
74 changed files with 855 additions and 363 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Bancos/ProductosFinancieros.aspx.vb
View File

@@ -118,7 +118,7 @@ Partial Class Bancos_ProductosFinancieros
CargaTipoTrasaccion()
End Sub
Private Sub CargaCuentas()
DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuentas.DataBind()
DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
@@ -254,7 +254,7 @@ Partial Class Bancos_ProductosFinancieros
End Sub
Protected Sub DdlCuentas_SelectedIndexChanged(sender As Object, e As EventArgs)
ObtieneFolio()
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuentas.SelectedValue)
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentas.SelectedValue)
If dr IsNot Nothing Then
If dr("UsaTarjeta").ToString = "True" Then
CargaTarjetas()
@@ -295,7 +295,7 @@ Partial Class Bancos_ProductosFinancieros
'Variables de controles
Dim Importe As Double = TxtImporte.Text.ToDouble
Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero()
Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero()
Dim Fecha = TxtFecha.Text.ToDate
'Variables de error
@@ -313,7 +313,7 @@ Partial Class Bancos_ProductosFinancieros
End If
'OBTIENE LA CUENTA CONTABLE DEL BANCO
Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"})
Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"})
Dim CtaCuenta = -1
If DtCuentas.Rows.Count = 1 Then