From 064c941e8e70299662bb70c8db6ccbed5aa67e1f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 22 Mar 2023 19:05:07 -0700
Subject: [PATCH] =?UTF-8?q?simplificaci=C3=B3n=20de=20c=C3=B3digo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/IE.aspx    | 35 +++++++----------------------------
 Bancos/IE.aspx.vb | 34 +++++++++++-----------------------
 2 files changed, 18 insertions(+), 51 deletions(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index d332bef65..74dcf3c93 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -826,15 +826,7 @@
                                                         <asp:CheckBox ID="ChkConciliado" runat="server" Text="Conciliado" Enabled="False" />
 
                                                     </td>
-                                                </tr>
-
-                                                <tr runat="server" id="TRComplementoSustitucion" visible="false">
-                                                    <td>Complemento de pago Sustituto de: </td>
-                                                    <td>
-                                                        <a id="ARefIESustitucion" runat="server" href="" target='_blank' class='Texto'></a>
-                                                    </td>
-                                                </tr>
-
+                                                </tr> 
                                             </table>
                                         </fieldset>
                                     </div>
@@ -1033,10 +1025,7 @@
 
         </ContentTemplate>
     </asp:UpdatePanel>
-
-
-
-
+     
     <table border="0" cellpadding="0" cellspacing="0" width="100%">
         <tr>
             <td align="center">
@@ -1053,9 +1042,7 @@
             </td>
         </tr>
     </table>
-
-    <br />
-
+     
     <div class="row">
 
         <div class="col-md-12 ">
@@ -1421,16 +1408,8 @@
                                 <asp:BoundField HeaderText="Estatus" DataField="StrEstatus" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
 
                                 <asp:BoundField HeaderText="Fecha C" DataField="FechaCancelacion" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
-
-                             <%--   <asp:TemplateField HeaderText="Regenerar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
-                                    <ItemTemplate>
-                                        <asp:LinkButton ID="imgRegenerar" OnClick="imgRegenerar_Click" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Regenerar"
-                                            data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea regenerar?" data-btn-ok-label="si"
-                                            CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-reply-all'></i>" />
-                                    </ItemTemplate>
-                                </asp:TemplateField>--%>
-
-                                <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
+                                 
+                                <asp:TemplateField HeaderText="Motivo" Visible="false" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
                                     <ItemTemplate>
                                         <asp:DropDownList runat="server" ID="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Visible="false">
                                         </asp:DropDownList>
@@ -1439,9 +1418,9 @@
 
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Cancelar" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                                <asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
-                                        <asp:LinkButton ID="LnkCancelarComplemetno" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
+                                        <asp:LinkButton ID="LnkCancelarComplemetno"  OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
                                             data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si"
                                             CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
                                     </ItemTemplate>
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 3c54087eb..c28aae75d 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1218,16 +1218,16 @@ Partial Class Bancos_IE
                 UpCancelacion.Update()
 
                 'OTROS DATOS - DATOS COMPLEMENTO SUSTITUCION
-                Dim CveIESustitucion As Integer = ObjIE.DtResultados(0)("CveIESustitucion").ToString.ToEntero
-                If CveIESustitucion > 0 Then
-                    TRComplementoSustitucion.Visible = True
+                'Dim CveIESustitucion As Integer = ObjIE.DtResultados(0)("CveIESustitucion").ToString.ToEntero
+                'If CveIESustitucion > 0 Then
+                '    TRComplementoSustitucion.Visible = True
 
-                    If ObjIE.GetBancosIE(CveIESustitucion, UsuarioActual.CveEmpresa) And ObjIE.DtResultados.Rows.Count > 0 Then
-                        ARefIESustitucion.HRef = String.Format("/Bancos/IE.aspx?CveIE={0}", CveIESustitucion)
-                        ARefIESustitucion.InnerText = ObjIE.Folio
-                    End If
+                '    If ObjIE.GetBancosIE(CveIESustitucion, UsuarioActual.CveEmpresa) And ObjIE.DtResultados.Rows.Count > 0 Then
+                '        ARefIESustitucion.HRef = String.Format("/Bancos/IE.aspx?CveIE={0}", CveIESustitucion)
+                '        ARefIESustitucion.InnerText = ObjIE.Folio
+                '    End If
 
-                End If
+                'End If
 
 
                 'DETALLES - MOVIMIENTOS
@@ -5691,44 +5691,32 @@ Partial Class Bancos_IE
         If Tipo = "Abono" Then
 
             If ObjBancos.GetVincularPago(CveProveedor, CveCompra, 2, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, CveIE) Then
-
                 GvComplementoPagos.DataSource = ObjBancos.DtResultados
-
-
             Else
                 GvComplementoPagos.DataSource = Nothing
             End If
-
             GvComplementoPagos.Columns(7).Visible = False
         Else
             If CveIE > 0 Then
                 If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
-
                     If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
                         DVGenerarComplementoModal.Visible = True
                     End If
-
                     If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
                         DivCancelarComplemento.Visible = True
+                        GvComplementoPagos.Columns(7).Visible = True
+                        If UsuarioActual.TienePermisoProceso(85) Then GvComplementoPagos.Columns(8).Visible = True
                     End If
-
-                    ' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
-
                     GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC", "MotivoCancelacion"})
 
-                    '"CveComplementoPago","FolioFiscal","Folio","SerieFolio","FechaComplemento","Importe","RFCReceptor","StrEstatus","FechaCancelacion","Tipo,Estatus","CveIE","CvePAC"
-
                 End If
             End If
 
-            GvComplementoPagos.Columns(7).Visible = True
         End If
 
         ObjBancos.Dispose()
         GvComplementoPagos.DataBind()
         UpComplementoPagos.Update()
-
-
         UpEliminarCotizacion.Update() 'Esto se  ocupa para mostrar DVmotivoCancelacion
 
         'ObjBancos.Dispose()
@@ -5930,7 +5918,7 @@ Partial Class Bancos_IE
     End Sub
 
     Protected Sub LnkCancelar_Click(sender As Object, e As EventArgs)
-        If ChkConciliado.Checked Then
+        If ChkConciliado.Checked AndAlso UsuarioActual.CveEmpresa = 119 Then
             'TxtFechaDesconciliado.Text = Now.ToShortDateString
             'UpDesconciliar.Update()
             'RegistraScript("$('#DModalDesconciliar').modal()")