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

38
Bancos/CuentasBancariasDetalle.aspx.vb
View File

@@ -203,12 +203,13 @@ Partial Class Bancos_CuentasBancariasDetalle
End If
Next
If Not ErrorUsuarios Then
If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
GlobalDTBancosCuentas(-1) = ObjCuentasBancariasDetalle.DtResultados
Else
ErrorUsuarios = True
End If
If Not ErrorUsuarios Then
GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
' GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjCuentasBancariasDetalle.DtResultados
'Else
' ErrorUsuarios = True
'End If
End If
End If
@@ -221,11 +222,12 @@ Partial Class Bancos_CuentasBancariasDetalle
Else
If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text, ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked) Then
'CargaDatos()
If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
GlobalDTBancosCuentas(-1) = ObjCuentasBancariasDetalle.DtResultados
Else
ErrorUsuarios = True
End If
GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
' GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjCuentasBancariasDetalle.DtResultados
'Else
' ErrorUsuarios = True
'End If
UpDatos.Update()
Else
ErrorUsuarios = True
@@ -322,9 +324,10 @@ Partial Class Bancos_CuentasBancariasDetalle
If Obj.AddBancosCuentasUsuarios(CveCuenta, DdlUsuarios.SelectedValue.ToEntero) Then
DTUsuarios = Obj.DtResultados
GVU.DataSource = Obj.DtResultados
If Obj.GetBancosCuentasUsuarios(-1) Then
GlobalDTBancosCuentas(-1) = Obj.DtResultados
End If
GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
'If Obj.GetBancosCuentasUsuarios(-1) Then
' GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Obj.DtResultados
'End If
End If
Else
If DTUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", DdlUsuarios.SelectedValue.ToString)).Rows.Count > 0 Then
@@ -377,9 +380,10 @@ Partial Class Bancos_CuentasBancariasDetalle
GVU.EditIndex = -1
DTUsuarios = ObjBancos.DtResultados
GVU.DataSource = ObjBancos.DtResultados
If ObjBancos.GetBancosCuentasUsuarios(-1) Then
GlobalDTBancosCuentas(-1) = ObjBancos.DtResultados
End If
GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then
' GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjBancos.DtResultados
'End If
Alert("El usuario se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
Else