AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

eFacturas Vinculacion de complemento por Partida

Browse Source
This commit is contained in:
rakcsle
2021-02-17 19:25:38 -07:00
parent d040b3c13a
commit b139016521
10 changed files with 459 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Compras/eFacturas.aspx
View File

@@ -509,13 +509,16 @@
<h4 class="modal-title">Vincular Complemento de Pago</h4>
</div>
<div class="modal-body">
<div class="row" runat="server" id="DivVincularPagoManualmente" visible="false">
<div class="row" runat="server" id="DivVincularPagoManualmente" style="visibility:hidden!important">
<div class="col-md-2">
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Bancos/PopUpBuscarIE.aspx?OPCION=Complementos',800,600,'N');"><i class='fa fa-plus'></i>Vincular IE Manualmente</a>
<asp:Button ID="BtnVincularManualmente" runat="server" ClientIDMode="Static" OnClick="BtnVincularManualmente_Click" Style="display: none;" class="btn btn-primary" />
<asp:HiddenField runat="server" ID="HdnCveIE" ClientIDMode="Static" Value="-1" />
<asp:HiddenField runat="server" ID="HdnIdDocumento" ClientIDMode="Static" Value="-1" />
</div>
</div>
<br />
<table class="table table-hover table-striped ScrollAD mysmallbtn Widthall">
<tr style="border: 0px!important">
@@ -555,10 +558,11 @@
<hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
<asp:GridView ID="GVPDocumentosRelacionadosPagos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn"
DataKeyNames="CveFactura,CveCompra,CveIE,Fecha,FechaPago,ImpPagado,CvePrePolizaDetalle"
DataKeyNames="CveFactura,CveCompra,SerieFolio,CveIE,Fecha,FechaPago,ImpPagado,CvePrePolizaDetalle,IdDocumento,FolioPago,Manual"
data-sort="true" Width="100%" EmptyDataText="No se encontró registros con la información del complemento de pago"
ShowHeaderWhenEmpty="true" AutoGenerateColumns="False">
<Columns>
<asp:HyperLinkField DataNavigateUrlFields ="CveCompra" DataNavigateUrlFormatString ="/Compras/Compras.aspx?CveCompra={0}" DataTextField ="SerieFolio" HeaderText="SerieFolio" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="center" DataFormatString="{0:d}" />
<asp:BoundField DataField="IdDocumento" HeaderText="UUID" ItemStyle-HorizontalAlign="Left" />
@@ -567,7 +571,7 @@
<%-- <asp:BoundField DataField="FolioPago" HeaderText="Folio Pago" ItemStyle-HorizontalAlign="Right" />--%>
<asp:HyperLinkField DataNavigateUrlFields ="CveIE" DataNavigateUrlFormatString ="/Bancos/IE.aspx?CveIE={0}" DataTextField ="FolioPago" HeaderText="Folio Pago"/>
<asp:BoundField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10px" />
<asp:BoundField DataField="FechaPago" HeaderText="Fecha Pago" ItemStyle-HorizontalAlign="center" DataFormatString="{0:d}" />
<asp:BoundField DataField="ImportePago" HeaderText="Importe Pago" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
@@ -765,9 +769,15 @@
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script type="text/javascript">
function VinculacionManual(v) {
$get("HdnCveIE").value = v;
function VinculacionManual(CveIE) {
$('#HdnCveIE').val(CveIE);
$('#BtnVincularManualmente').click();
}
//function VinculacionManual(v) {
// $get("HdnCveIE").value = v;
// $('#BtnVincularManualmente').click();
//}
</script>
</asp:Content>

434
Compras/eFacturas.aspx.vb
View File

@@ -604,6 +604,70 @@ Partial Class Compras_eFacturas
End Set
End Property
Property DTGVPagosVinculacion As DataTable
Get
If ViewState("DTGVPagosVinculacion") Is Nothing Then
Return New DataTable
Else
Return DirectCast(ViewState("DTGVPagosVinculacion"), DataTable)
End If
End Get
Set(value As DataTable)
ViewState("DTGVPagosVinculacion") = value
End Set
End Property
Private Property CurretUUIDPagoVincular As String
Get
If ViewState("CurretUUIDPagoVincular") Is Nothing Then
Return "-1"
Else
Return ViewState("CurretUUIDPagoVincular").ToString
End If
End Get
Set(value As String)
ViewState("CurretUUIDPagoVincular") = value
End Set
End Property
Private Property XMLNodosPagosModalCount As Integer
Get
If ViewState("XMLNodosPagosModalCount") Is Nothing Then
Return -1
Else
Return ViewState("XMLNodosPagosModalCount").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("XMLNodosPagosModalCount") = value
End Set
End Property
Private Property MontoPago As Decimal
Get
If ViewState("MontoPago") Is Nothing Then
Return 0
Else
Return (ViewState("MontoPago")).ToString.ToDecimal
End If
End Get
Set(value As Decimal)
ViewState("MontoPago") = value
End Set
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -2682,7 +2746,10 @@ Partial Class Compras_eFacturas
Dim FechaPago As Date
Dim PagosCantidad As Integer = 0
DTGVPagosVinculacion = New DataTable
MontoPago = 0D
XMLNodosPagosModalCount = 0
Dim XMLDoc As New XmlDocument
Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML"))
@@ -2759,13 +2826,14 @@ Partial Class Compras_eFacturas
DTDocumentosRelacionados.Columns.Add("SerieFolioCompra")
DTDocumentosRelacionados.Columns.Add("CvePrePolizaDetalle", GetType(Integer))
DTDocumentosRelacionados.Columns.Add("Tipo", GetType(String))
DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean))
Dim nodePagosN As XmlNodeList
nodePagosN = nodeComp.SelectNodes(String.Format("//{0}:Pagos", PrefijoPagos), namespaces)
For Each NodosPagos As XmlNode In nodePagosN
For Each innernode As XmlNode In NodosPagos
@@ -2788,14 +2856,20 @@ Partial Class Compras_eFacturas
Nrow("ImpPagado") = ValorXML(node, "ImpPagado").ToDecimal
Nrow("Fecha") = FechaPago
Nrow("Tipo") = "17"
Nrow("Manual") = False
DTDocumentosRelacionados.Rows.Add(Nrow)
StrUUID.AppendFormat("'{0}',", ValorXML(node, "IdDocumento").Replace("'", ""))
XMLNodosPagosModalCount = XMLNodosPagosModalCount + 1
Next
Next
Next
MontoPago = Monto
Dim ObjCompraFolios As New ClsCompras
If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace($"{PrefijoPagos}:", ""), UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
@@ -2820,19 +2894,13 @@ Partial Class Compras_eFacturas
If drow("CveIE").ToString.ToEntero > 0 Then
dRow2("CveIE") = drow("CveIE").ToString.ToEntero
dRow2("ImportePago") = drow("Importe").ToString.ToDecimal
End If
dRow2("FolioPago") = drow("FolioIE")
dRow2("FechaPago") = drow("FechaDocumento")
End If
Next
Next
@@ -2843,6 +2911,7 @@ Partial Class Compras_eFacturas
GVPDocumentosRelacionadosPagos.DataSource = DTDocumentosRelacionados
GVPDocumentosRelacionadosPagos.DataBind()
DTGVPagosVinculacion = DTDocumentosRelacionados
If DTDocumentosRelacionados.MAX("CveCompra").ToString.ToEntero > 0 Then
@@ -2873,6 +2942,7 @@ Partial Class Compras_eFacturas
DT_ComprasSinIE.Columns.Add("SerieFolioCompra")
For Each dRow As DataRow In DTDocumentosRelacionados.Rows
Dim nRow As DataRow = DT_ComprasSinIE.NewRow
nRow("CveCompra") = dRow("CveCompra").ToString.ToEntero
' nRow("CveFactura") = dRow("CveFactura").ToString.ToEntero
@@ -2881,7 +2951,6 @@ Partial Class Compras_eFacturas
DT_ComprasSinIE.Rows.Add(nRow)
Next
@@ -3057,27 +3126,40 @@ Partial Class Compras_eFacturas
For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
If HdnCveIE.Value.ToEntero > 0 Then
If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.FCLabel("LblCveIE").Text.ToEntero > 0 Then
If Not ObjCompra.AddComplementoPago(Gv.FCLabel("LblCveIE").Text.ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero, CveFacturaPago) > 0 Then
TieneError = True
Exit For
End If
If Gv.DataKey("CveCompra").ToEntero > 0 Then
If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
TieneError = True
Exit For
End If
Else
If Gv.DataKey("CveCompra").ToEntero > 0 Then
If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
TieneError = True
Exit For
End If
End If
End If
' If HdnCveIE.Value.ToEntero > 0 Then
' If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.FCLabel("LblCveIE").Text.ToEntero > 0 Then
' If Not ObjCompra.AddComplementoPago(Gv.FCLabel("LblCveIE").Text.ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero, CveFacturaPago) > 0 Then
' TieneError = True
' Exit For
' End If
' End If
'Else
' If Gv.DataKey("CveCompra").ToEntero > 0 Then
' If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
' TieneError = True
' Exit For
' End If
' End If
'End If
Next
If Not TieneError AndAlso Not ObjCompra.AddVincularPago(CveFacturaPago) Then
TieneError = True
End If
@@ -3096,13 +3178,21 @@ Partial Class Compras_eFacturas
End If
If HdnCveIE.Value.ToEntero > 0 Then
For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
For Each dRow As DataRow In DT_ComprasSinIE.Rows
objEventos.AddEventoBitacora($"Complemento { dRow("SerieFolioPago").ToString } vinculado manualmente a compra {dRow("SerieFolioCompra").ToString}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=dRow("CveCompra").ToString.ToEntero)
Next
If Boolean.Parse(Gv.DataKey("Manual").ToString) Then
objEventos.AddEventoBitacora($"Complemento { LblSerieFolioPago.Text} vinculado manualmente a compra {Gv.DataKey("SerieFolio").ToString} y Pago { Gv.DataKey("FolioPago").ToString }", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=Gv.DataKey("CveCompra").ToString.ToEntero)
End If
Next
End If
'If HdnCveIE.Value.ToEntero > 0 Then
' For Each dRow As DataRow In DT_ComprasSinIE.Rows
' objEventos.AddEventoBitacora($"Complemento { dRow("SerieFolioPago").ToString } vinculado manualmente a compra {dRow("SerieFolioCompra").ToString}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=dRow("CveCompra").ToString.ToEntero)
' Next
'End If
@@ -3135,82 +3225,244 @@ Partial Class Compras_eFacturas
If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then
'VincularComplementoManualGV(HdnCveIE.Value.ToEntero)
Dim ImportePago As Double = 0
Dim ImporteIES As Double = 0
Dim SerieFolioIE As String = ""
Dim ObjCompras As New ClsCompras
Dim ErrorVinculacion = True
If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
For Each Drow As DataRow In ObjCompras.DtResultados.Rows
For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
If GvRow.RowType = DataControlRowType.DataRow Then
If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then
GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString
GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString
End If
End If
Next
Next
For Each dRow As DataRow In DTGVPagosVinculacion.Rows
For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
If GvRow.RowType = DataControlRowType.DataRow Then
If HdnIdDocumento.Value = dRow("IdDocumento").ToString Then 'And dRow("CveIE").ToString.ToEntero <= 0
If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
ErrorVinculacion = False
dRow("CveIE") = HdnCveIE.Value.ToEntero
Else
Dim ObjIE As New ClsBancos()
If ObjCompras.DtResultados.Rows.Count > 0 Then
GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
Else
ErrorVinculacion = True
Exit For
End If
'If ObjIE.GetBancosIE(HdnCveIE.Value.ToEntero, UsuarioActual.CveEmpresa) Then
' Try
' dRow("FolioPago") = ObjIE.Folio
' dRow("ImportePago") = dRow("ImpPagado")
' dRow("FechaPago") = ObjIE.FechaDocumento
' dRow("Tipo") = "E"
' ' dRow("Diferencia") = 0D
' dRow("Manual") = True
' Catch ex As Exception
' End Try
'End If
Dim ObjCompras As New ClsCompras
If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
Try
dRow("FolioPago") = ObjCompras.DtResultados(0)("FolioIE")
dRow("ImportePago") = dRow("ImpPagado")
dRow("FechaPago") = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
dRow("CvePrePolizaDetalle") = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero
dRow("Tipo") = "E"
' dRow("Diferencia") = 0D
dRow("Manual") = True
Catch ex As Exception
End Try
End If
End If
ObjCompras.Dispose()
Next
ObjIE.Dispose()
End If
Next
End If
DTGVPagosVinculacion.AcceptChanges()
HdnIdDocumento.Value = "-1"
GVPDocumentosRelacionadosPagos.DataSource = DTGVPagosVinculacion
GVPDocumentosRelacionadosPagos.DataBind()
UpVincularPago.Update()
CurretUUIDPagoVincular = ""
ValidaTablaDeVinculacion()
Exit Sub
'**********************************************************************************************************************
'If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then
' Dim ImportePago As Double = 0
' Dim ImporteIES As Double = 0
' Dim SerieFolioIE As String = ""
' Dim ObjCompras As New ClsCompras
' Dim ErrorVinculacion = True
' If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
' For Each Drow As DataRow In ObjCompras.DtResultados.Rows
' For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
' If GvRow.RowType = DataControlRowType.DataRow Then
' If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then
' GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString
' GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString
' End If
' End If
' Next
' Next
' For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
' If GvRow.RowType = DataControlRowType.DataRow Then
' If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
' ErrorVinculacion = False
' Else
' If ObjCompras.DtResultados.Rows.Count > 0 Then
' GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
' GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
' Else
' ErrorVinculacion = True
' Exit For
' End If
' End If
' End If
' Next
' Else
' ErrorVinculacion = True
' End If
' If Not ErrorVinculacion Then
' ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
' ObjCompras.Dispose()
' BtnVincularPago.Visible = True
' LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
' LblImportePago.Text = ImportePago.FormatoNumero
' 'LblSerieFolioIE.Text = SerieFolioIE
' LblImporteIE.Text = ImporteIES.FormatoNumero
' GvVincularPago.DataBind()
' UpVincularPago.Update()
' ObjCompras.Dispose()
' Else
' Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia)
' End If
'End If
End Sub
Private Function ValidaTablaDeVinculacion() As Boolean
Dim ResPuesta As Boolean = False
Dim Vinculados As Integer = 0
Dim TodoVinculado As Boolean = False
Dim Diferencia As Boolean = If(Math.Abs(DTGVPagosVinculacion.SUM("ImpPagado") - DTGVPagosVinculacion.SUM("ImportePago")).ToDecimal > 0.1D, True, False)
Dim VinculacionManual As Boolean = If(DTGVPagosVinculacion.FiltraParametros("Manual = 1").Rows.Count > 0, True, False)
Dim PermisoVinculacionDiferencia As Boolean = UsuarioActual.TienePermisoProceso(286)
Dim PermisoVinculacionManual As Boolean = UsuarioActual.TienePermisoProceso(286)
Dim MontoSuma As Decimal = DTGVPagosVinculacion.SUM("ImportePago").ToString.ToDecimal
For Each dRow As DataRow In DTGVPagosVinculacion.Rows
If dRow("CveIE").ToString.ToEntero > 0 Then
Vinculados = Vinculados + 1
End If
Next
If XMLNodosPagosModalCount = Vinculados Then
TodoVinculado = True
End If
If TodoVinculado Then
If Diferencia Then
If PermisoVinculacionDiferencia Then
If VinculacionManual Then
If PermisoVinculacionManual Then
ResPuesta = True
Else
ResPuesta = False
End If
Else
ResPuesta = True
End If
Else
ResPuesta = False
End If
Else
ErrorVinculacion = True
If VinculacionManual Then
If PermisoVinculacionManual Then
ResPuesta = True
Else
ResPuesta = False
End If
Else
ResPuesta = True
End If
End If
If Not ErrorVinculacion Then
ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
ObjCompras.Dispose()
Else
ResPuesta = False
End If
BtnVincularPago.Visible = True
LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
LblImportePago.Text = ImportePago.FormatoNumero
'LblSerieFolioIE.Text = SerieFolioIE
LblImporteIE.Text = ImporteIES.FormatoNumero
If Not MontoSuma = MontoPago And ResPuesta Then
GvVincularPago.DataBind()
UpVincularPago.Update()
ObjCompras.Dispose()
Else
Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia)
If Not PermisoVinculacionDiferencia Then
ResPuesta = False
End If
End If
End Sub
If ResPuesta Then
BtnVincularPago.Visible = True
Else
BtnVincularPago.Visible = False
End If
UpVincularPago.Update()
Return ResPuesta
End Function
Private Sub GVPDocumentosRelacionadosPagos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GVPDocumentosRelacionadosPagos.RowCreated
@@ -3220,7 +3472,7 @@ Partial Class Compras_eFacturas
Dim HeaderCell = New TableCell
HeaderCell.Text = "Documentos Relacionados"
HeaderCell.ColumnSpan = 8
HeaderCell.ColumnSpan = 9
HeaderCell.Attributes.Add("style", "border-top: 1px solid #ddd; vertical-align: top; background-color: #DDD; color: #333333;font-family: 'Open Sans', sans-serif;font-size: 12px; text-align:center!important; font-weight: bold;")
HeaderGridRow.Cells.Add(HeaderCell)
GVPDocumentosRelacionadosPagos.Controls(0).Controls.AddAt(0, HeaderGridRow)
@@ -3240,12 +3492,24 @@ Partial Class Compras_eFacturas
e.Row.ToolTip = "Compra registrada"
e.Row.Cells(4).ForeColor = Drawing.Color.Green
e.Row.Cells(6).Controls.Clear()
Dim LiteralVincular As New Literal
If UsuarioActual.TienePermisoProceso(286) Then ' permiso vinculación manual
LiteralVincular.Text = $"<a title='Vinculación manual' onclick="" { $"$('#HdnIdDocumento').val('{ e.Row.DataKey("IdDocumento") }');AbrirVentana('/Bancos/PopUpBuscarIE.aspx?OPCION=Complementos',800,600,'N');" }"" ><i class='fa fa-external-link' aria-hidden='true'></i></a>"
Else
LiteralVincular.Text = "-"
End If
e.Row.Cells(6).Controls.Add(LiteralVincular)
Else
e.Row.Cells(4).Text = "<i class='fa fa-check-circle' aria-hidden='true'></i>"
e.Row.ToolTip = "Factura recibida sin registrar"
End If
Else
e.Row.Cells(4).Text = "<i class='fa red fa-ban' aria-hidden='true'></i>"
e.Row.ToolTip = "No se encontro el Folio Fiscal en el sistema"