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

Estado resultados Lateral subProyectos, IE asignar Folio al seleccionar cuenta cuando no esta timbrado

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-03-31 18:31:32 -07:00
parent 6b7a83d3f6
commit 44f329b85c
5 changed files with 644 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Bancos/IE.aspx.vb
View File

@@ -1372,10 +1372,17 @@ Partial Class Bancos_IE
BtnGuardar.Enabled = True
End Sub
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
'si solo es de egreso el movimiento debe de generar el siguiente folio.
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
'si solo es de egreso el movimiento debe de generar el siguiente folio.
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
Dim ActualizaCuenta As Boolean = False
If (Not ExistenComplementosVigentes) And UsuarioActual.TienePermisoProceso(99) And BtnActualizar.Visible = True Then
ActualizaCuenta = True
End If
If HdnTipoTransaccion.Value = "Egs" AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Or Opcion = "DevDinC" Then
If HdnTipoTransaccion.Value = "Egs" AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Or Opcion = "DevDinC" Or ActualizaCuenta Then
Dim Folio As Long
Dim Banco As New ClsBancos