From d0bfe6a67981443dfd904a572daf01378dbea9c1 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 29 Jun 2022 11:13:01 -0700
Subject: [PATCH] IE Modal Complementos se elimina opcion de regenerar
 complemento

---
 Bancos/IE.aspx    |  4 ++--
 Bancos/IE.aspx.vb | 44 +++-----------------------------------------
 2 files changed, 5 insertions(+), 43 deletions(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 30ed7e51e..0e1eb9aa6 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -1416,13 +1416,13 @@
 
                                 <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%">
+                             <%--   <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>--%>
 
                                 <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
                                     <ItemTemplate>
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 3b8fcc2f5..eb4c0bfa1 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -5735,9 +5735,7 @@ Partial Class Bancos_IE
 
         Dim ObjBancos As New ClsBancos
 
-        If UsuarioActual.CveRol = 1 Then
-            GvComplementoPagos.Columns(7).Visible = True
-        End If
+
 
         DVGenerarComplementoModal.Visible = False
 
@@ -5752,7 +5750,7 @@ Partial Class Bancos_IE
                 GvComplementoPagos.DataSource = Nothing
             End If
 
-            GvComplementoPagos.Columns(8).Visible = False
+            GvComplementoPagos.Columns(7).Visible = False
         Else
             If CveIE > 0 Then
                 If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
@@ -5775,7 +5773,7 @@ Partial Class Bancos_IE
                 End If
             End If
 
-            GvComplementoPagos.Columns(8).Visible = True
+            GvComplementoPagos.Columns(7).Visible = True
         End If
 
         ObjBancos.Dispose()
@@ -5829,7 +5827,6 @@ Partial Class Bancos_IE
                 GvComplementoPagos.Columns(6).Visible = False
                 GvComplementoPagos.Columns(7).Visible = False
                 GvComplementoPagos.Columns(8).Visible = False
-                GvComplementoPagos.Columns(9).Visible = False
 
             End If
 
@@ -5846,41 +5843,6 @@ Partial Class Bancos_IE
     End Sub
 
 
-    Protected Sub imgRegenerar_Click(sender As Object, e As EventArgs)
-        Dim gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
-        Dim FolioFiscalPadre As String = gvr.DataKey("FolioFiscal")
-
-        If FolioFiscalPadre <> "" Then
-            Dim Str As New StringBuilder
-            Dim ObjBanco As New ClsBancos
-            ObjBanco.IniciaTransacSQL()
-
-            If ObjBanco.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, FolioFiscalPadre, EsRegeneracion:=True) Then
-                ObjBanco.Commit()
-                Str.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjBanco.ComplementoSerieFolio)
-                Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML &nbsp;<i class="" fa fa-file""></i></i></a>&nbsp;&nbsp;", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
-                Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF &nbsp;<i class="" fa fa-ad-pdf""></i></i></i></a>&nbsp;", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
-                'Str.Append($"<a style='color:#337ab7' target='_blank' href='./IE.aspx?CveID={gvr.DataKey("CveIE")}'>{gvr.DataKey("Folio")}</a> &nbsp; {gvr.DataKey("NombreCliente")}<br>")
-                PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False, True)
-                Alert(Str.ToString, TipoMensaje.MsgInformacion)
-                CargaComplementosPago()
-            Else
-                Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), ObjBanco.Mensaje)
-                Alert(Str.ToString, TipoMensaje.MsgError)
-                ObjBanco.RollBack()
-            End If
-
-            ObjBanco.Dispose()
-        Else
-            Alert("El complemento no tiene Folio Fiscal", TipoMensaje.MsgError)
-        End If
-
-    End Sub
-
-
-
-
-
     Private Function VerificaComplementos(Validos As Boolean) As Boolean
         Dim ObjBancos As New ClsBancos
         Dim Retorno As Boolean = False