-- poder desconciliar cuando es caja chica

Bancos/IE.aspx.vb

@@ -1026,6 +1026,8 @@ Partial Class Bancos_IE
                             If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 AndAlso NumComplementos = 0 Then
                                 LnkEliminar.Visible = True
                             End If
+                        Else
+                            If UsuarioActual.TienePermisoProceso(80) AndAlso ObjIE.CveTipoCuenta = 1 Then LnkDesconciliar.Visible = True
                         End If
 
                         If UsuarioActual.TienePermisoProceso(85) AndAlso Not ObjIE.FueConciliado Then LnkCancelar.Visible = True
@@ -5681,11 +5683,25 @@ Partial Class Bancos_IE
 
         End If
 
-
-
-
-
-
     End Sub
 
+
+    Protected Sub LnkDesconciliar_Click(sender As Object, e As EventArgs)
+        Dim ObjIE As New ClsBancos()
+        ObjIE.IniciaTransacSQL()
+        Dim OcurrioError As Boolean = False
+
+        If Not ObjIE.UpdateBancos_IEConciliado(False, MinFecha, 0, -1, UsuarioActual.CveUsuario, CveIE) Then
+            OcurrioError = True
+        End If
+        If OcurrioError Then
+            ObjIE.RollBack()
+            Alert("No se pudo realizar la desconciliación  ", TipoMensaje.MsgAdvertencia)
+        Else
+            ObjIE.Commit()
+            Alert("Los movimientos se desconciliarion correctamente.", TipoMensaje.MsgInformacion)
+        End If
+
+        ObjIE.Dispose()
+    End Sub
 End Class