From 9bb59f401781e11c0f48568492699051e355b586 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 22 Mar 2023 19:03:51 -0700
Subject: [PATCH] -- dejar conciliados en conciliaciones bancarias

---
 App_Code/ClsBancos.vb                  |  3 ++-
 Bancos/ConciliacionesBancarias.aspx    | 12 +++++++-----
 Bancos/ConciliacionesBancarias.aspx.vb |  4 ++--
 3 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 6b6d7482e..cc989e5e4 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -4308,13 +4308,14 @@ Public Class ClsBancos
         Return Retorno
     End Function
 
-    Public Function DesconciliarIE(CveIE As Integer, FechaDesconciliado As Date, CveUsuario As Integer) As Boolean
+    Public Function DesconciliarIE(CveIE As Integer, FechaDesconciliado As Date, CveUsuario As Integer, Optional DejarConciliado As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_IEDesconciliar")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveIE", SqlDbType.Int).Value = CveIE
             .Add("@FechaDesconciliado", SqlDbType.Date).Value = FechaDesconciliado
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@DejarConciliado", SqlDbType.Int).Value = If(DejarConciliado, 1, 0)
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Bancos/ConciliacionesBancarias.aspx b/Bancos/ConciliacionesBancarias.aspx
index 39a3e738f..f3eb42492 100644
--- a/Bancos/ConciliacionesBancarias.aspx
+++ b/Bancos/ConciliacionesBancarias.aspx
@@ -396,10 +396,10 @@
                     </div>
                     <div class="modal-body">
                         <div class="row">
-                            <div class="col-md-2" style="text-align: left">Fecha Desconciliado:</div>
-                            <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
-                                    <asp:TextBox ID="TxtFechaDesconciliado" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
+                            <div class="col-md-3" style="text-align: left">Fecha Desconciliado:</div>
+                            <div class="col-md-3" style="text-align:left">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 90px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaDesconciliado" CssClass="form-control input-sm ADSMaskDate" Style="width: 78px" runat="server"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="LnkFechaDesconciliado" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
@@ -408,7 +408,9 @@
                                     <asp:RequiredFieldValidator ID="RfvFechaDesconciliado" runat="server" ControlToValidate="TxtFechaDesconciliado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Desconciliado''</b> es necesario, por favor ingréselo." ValidationGroup="VGMModalDesconciliado"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VceFechaDesconciliado" runat="server" HighlightCssClass="vco" TargetControlID="RfvFechaDesconciliado"></ajax:ValidatorCalloutExtender>
                                 </div>
-                            </div>
+                            </div>                            
+                            <div class="col-md-3">
+                                <asp:CheckBox ID="ChkDejarConciliado" runat="server" Text="Dejar Conciliado" TextAlign="Right" /></div>
                         </div>
                     </div>
                     <div class="modal-footer">
diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb
index a04dc3bc3..09b8a8a2f 100644
--- a/Bancos/ConciliacionesBancarias.aspx.vb
+++ b/Bancos/ConciliacionesBancarias.aspx.vb
@@ -402,7 +402,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         Dim ErrorTrans As Boolean = False
 
         If ModalidadDesconciliar = "D" Then
-            If ObjBancos.DesconciliarIE(CveIEDesconciliar, TxtFechaDesconciliado.Text.ToDate(), UsuarioActual.CveUsuario) Then
+            If ObjBancos.DesconciliarIE(CveIEDesconciliar, TxtFechaDesconciliado.Text.ToDate(), UsuarioActual.CveUsuario, ChkDejarConciliado.Checked) Then
                 If Not ObjOI.AddEventoBitacora("El pago ha sido desconciliado", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIEDesconciliar) Then
                     ErrorTrans = True
                 End If
@@ -412,7 +412,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         ElseIf ModalidadDesconciliar = "DT" Then
             For Each Gvr As GridViewRow In GvDatos.Rows
                 If Gvr.FCCheckBox("ChkConciliado").Checked And Not Gvr.FCCheckBox("ChkConciliado").Enabled Then
-                    If Not ObjBancos.DesconciliarIE(Gvr.DataKey("CveIE").ToEntero, TxtFechaDesconciliado.Text.ToDate(), UsuarioActual.CveUsuario) Then
+                    If Not ObjBancos.DesconciliarIE(Gvr.DataKey("CveIE").ToEntero, TxtFechaDesconciliado.Text.ToDate(), UsuarioActual.CveUsuario, ChkDejarConciliado.Checked) Then
                         ErrorTrans = True
                     Else
                         If Not ObjOI.AddEventoBitacora("El pago ha sido desconciliado", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=Gvr.DataKey("CveIE").ToEntero) Then