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 @@
-
+ <%--
-
+ --%>
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: {0} ", ObjBanco.ComplementoSerieFolio)
- Str.AppendFormat("XML ", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
- Str.AppendFormat("PDF ", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
- 'Str.Append($"{gvr.DataKey("Folio")} {gvr.DataKey("NombreCliente")}
")
- 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