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

Bancos/IE.aspx.vb

@@ -656,23 +656,7 @@ Partial Class Bancos_IE
                 RBL.Items.Add(New ListItem("Acreedores Diversos", "AC"))
             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
                 LnkCancelar.Visible = False
@@ -1101,32 +1085,44 @@ Partial Class Bancos_IE
                 BtnGuardar.Enabled = False
             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
-                    PermisoComplementoVigente = True
 
                 Else
-                    BtnEditar.Visible = True
+
+                    BtnEditar.Visible = False
+                    LnkEliminar.Visible = False
+                    LnkCancelar.Visible = False
+
+                    LnkCancelarComplemento.Visible = True
+                    LnkCancelarComplementoImporte.Visible = True
+
                 End If
 
-                UpGuardar.Update()
 
+            Else
+                BtnEditar.Visible = False
+                LnkEliminar.Visible = False
+                LnkCancelarComplemento.Visible = False
+                LnkCancelarComplementoImporte.Visible = False
+                DVGenerarComplementoModal.Visible = False
             End If
 
+            UpGuardar.Update()
 
         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()
         ObjIE.Dispose()
@@ -4674,6 +4670,9 @@ Partial Class Bancos_IE
     End Sub
 
     Private Sub BtnRemove_Click(sender As Object, e As EventArgs) Handles BtnRemove.Click
+
+
+
         If Not TxtDescripcion.Text = "" Then
             If ChkConciliado.Checked Then
                 Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)