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

Validaciones controles complementos en IE , Cancelado, conciliciado, Con complemento vigente, sin complemento vigente

Browse Source
This commit is contained in:
Rakcsle Supertramp
2019-08-28 18:35:33 -07:00
parent 1cee95c506
commit 3efb96fa68
1 changed files with 31 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
Bancos/IE.aspx.vb
View File

@@ -656,23 +656,7 @@ Partial Class Bancos_IE
RBL.Items.Add(New ListItem("Acreedores Diversos", "AC")) RBL.Items.Add(New ListItem("Acreedores Diversos", "AC"))
End If End If
'08/05/2018 - Se deshabilita opcion Eliminar IE si tiene un complemento de pago relacionado
If CveIE = -1 Or (CveIE > 0 AndAlso VerificaComplementos(False)) Then
LnkEliminar.Visible = False
If CveIE > 0 Then
LnkCancelar.Visible = False
If UsuarioActual.TienePermisoProceso(85) Then
LnkCancelarComplemento.Visible = True
LnkCancelarComplementoImporte.Visible = True
End If
'LnkEliminarComplemento.NavigateUrl = String.Format("/Ventas/ClientesAbonar.aspx?CveIESustitucion={0}&CveCliente={1}", CveIE, CveCliente)
End If
Else
LnkEliminar.Visible = True
LnkCancelarComplemento.Visible = False
LnkCancelarComplementoImporte.Visible = False
End If
If TabCancelacion.Visible Then If TabCancelacion.Visible Then
LnkCancelar.Visible = False LnkCancelar.Visible = False
@@ -1101,33 +1085,45 @@ Partial Class Bancos_IE
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
End If End If
'2019-08-28 unificados vista de controles complemento (Cancelado, conciliciado, Con complemento vigente, sin complemento vigente)
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
Dim ExistenComplementos As Boolean = VerificaComplementos(False)
If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 Then
If Not ChkConciliado.Checked Then If (Not ExistenComplementosVigentes) Then
If (Not VerificaComplementos(True)) And UsuarioActual.TienePermisoProceso(99) And ObjIE.CveEstatusIE <> 2 Then If UsuarioActual.TienePermisoProceso(99) Then ' Proceso 99 Editar IE
BtnEditar.Visible = True
PermisoComplementoVigente = True
End If
DVGenerarComplementoModal.Visible = True
BtnEditar.Visible = True BtnEditar.Visible = True
PermisoComplementoVigente = True
Else Else
BtnEditar.Visible = True
BtnEditar.Visible = False
LnkEliminar.Visible = False
LnkCancelar.Visible = False
LnkCancelarComplemento.Visible = True
LnkCancelarComplementoImporte.Visible = True
End If End If
UpGuardar.Update()
Else
BtnEditar.Visible = False
LnkEliminar.Visible = False
LnkCancelarComplemento.Visible = False
LnkCancelarComplementoImporte.Visible = False
DVGenerarComplementoModal.Visible = False
End If End If
UpGuardar.Update()
End If
End If
'If CveIE > 0 Then
' DdlProveedores.Visible = False
' LblBeneficiario.Visible = True
' LblBeneficiario.Text = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}")(0)("RazonSocial").ToString
'End If
RecargaGlobalCuentasBancarias() RecargaGlobalCuentasBancarias()
ObjIE.Dispose() ObjIE.Dispose()
ObjIE2.Dispose() ObjIE2.Dispose()
@@ -4674,6 +4670,9 @@ Partial Class Bancos_IE
End Sub End Sub
Private Sub BtnRemove_Click(sender As Object, e As EventArgs) Handles BtnRemove.Click Private Sub BtnRemove_Click(sender As Object, e As EventArgs) Handles BtnRemove.Click
If Not TxtDescripcion.Text = "" Then If Not TxtDescripcion.Text = "" Then
If ChkConciliado.Checked Then If ChkConciliado.Checked Then
Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError) Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)