-- poder desconciliar cuando es caja chica

App_Code/ClsBancos.vb

@@ -717,6 +717,7 @@ Public Class ClsBancos
                 Me.CveBanco = Data.Rows(0)("CveBanco").ToString.ToEntero
                 Me.Banco = Data.Rows(0)("Banco").ToString
                 Me.NumCuenta = Data.Rows(0)("NumCuenta").ToString
+                Me.CveTipoCuenta = Data.Rows(0)("CveTipoCuenta").ToString.ToEntero
                 Me.CveTipoTransaccion = Data.Rows(0)("CveTipoTransaccion").ToString.ToEntero
                 Me.Tipo = Data.Rows(0)("Tipo").ToString
                 Me.TipoTransaccion = Data.Rows(0)("TipoTransaccion").ToString

Bancos/IE.aspx

@@ -771,9 +771,6 @@
                                                                     <ajax:ValidatorCalloutExtender ID="VCETipoDocto" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoDocto" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                 </td>
                                                             </tr>--%> 
-
-
-
                                                 <tr>
                                                     <td>Fecha Aplicación</td>
                                                     <td>
@@ -792,7 +789,7 @@
                                                                                         <ajax:ValidatorCalloutExtender ID="VCOFechaAplicado1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
                                                                                         <ajax:ValidatorCalloutExtender ID="VCOFechaAplicado2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
                                                         --%>
-
+                                                         <asp:LinkButton runat="server" Visible="false" ID="LnkDesconciliar" OnClick="LnkDesconciliar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea desconciliar?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Desconciliar" />
                                                     </td>
                                                 </tr>
                                                 <tr>

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