diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 13c08b48b..7c74ab75d 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -2557,6 +2557,7 @@
                                                             <asp:Literal ID="LtlMon" runat="server" Text='<%# Eval("MonedaVenta")%>'></asp:Literal>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
+                                                    <asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional"  />
                                                     <asp:TemplateField>
                                                         <HeaderTemplate>Archivos</HeaderTemplate>
                                                         <ItemStyle HorizontalAlign="Center" />
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 03dfc99a2..28609db2d 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2176,6 +2176,7 @@ Partial Class Clientes
             GvBancos.DataSource = ObjMovtos.DtResultados
             DTCobrosRealizados = ObjMovtos.DtResultados
             DTCobrosRealizados.Rows.Remove(DTCobrosRealizados.Rows(0))
+            GvBancos.Columns(5).Visible = ObjMovtos.DtResultados.COUNT("LineaAdicional", "LineaAdicional <>'' ") > 0
         Else
             DTCobrosRealizados = Nothing
         End If
@@ -2193,7 +2194,7 @@ Partial Class Clientes
 
             If e.Row.DBCampo("CveVenta") = "" Then
                 If e.Row.DBCampo("CveIE") <> "" Then
-                    Dim ObjBancos As New ClsBancos
+
 
                     e.Row.Cells(0).Text = String.Format("{0} - {1}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta"))
                     e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate().ToShortDateString()
@@ -2201,19 +2202,25 @@ Partial Class Clientes
                     e.Row.FCLiteral("LtlImp").Text = e.Row.DBCampo("ImporteIE").FormatoNumero()
                     e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("MonedaIE")
 
+                    If e.Row.DBCampo("CveComplementoPago") <> "" Then
+                        e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString())))
+                        e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString())))
 
-                    'HLSendMail.HRef = String.Format("javascript:$get('HdnCveIE').value='{0}';$get('HdnSerieFolio').value='{1}';$get('HdnFolioPago').value='{2}';$get('TxtParaMail').value='{3}';$('#ModalDivMail').modal();", e.Row.DBCampo("CveIE"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("FolioCobro"), TxtCobranzaCorreo.Text)
-
-                    If ObjBancos.GetComplementoPagos(-1, e.Row.DBCampo("CveIE").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa) Then
-                        If ObjBancos.DtResultados.Rows.Count > 0 Then
-                            e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
-                            e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
-
-                            e.Row.FCLinkButton("LnkSendMail").Visible = True
-                        End If
+                        e.Row.FCLinkButton("LnkSendMail").Visible = True
                     End If
 
-                    ObjBancos.Dispose()
+
+                    ''HLSendMail.HRef = String.Format("javascript:$get('HdnCveIE').value='{0}';$get('HdnSerieFolio').value='{1}';$get('HdnFolioPago').value='{2}';$get('TxtParaMail').value='{3}';$('#ModalDivMail').modal();", e.Row.DBCampo("CveIE"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("FolioCobro"), TxtCobranzaCorreo.Text)
+                    'Dim ObjBancos As New ClsBancos
+                    'If ObjBancos.GetComplementoPagos(-1, e.Row.DBCampo("CveIE").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa) Then
+                    '    If ObjBancos.DtResultados.Rows.Count > 0 Then
+                    '        e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
+                    '        e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
+
+                    '        e.Row.FCLinkButton("LnkSendMail").Visible = True
+                    '    End If
+                    'End If
+                    'ObjBancos.Dispose()
                 End If
                 e.Row.BackColor = Drawing.Color.LightGray
                 e.Row.Font.Bold = True
@@ -10384,7 +10391,7 @@ Partial Class Clientes
 
         Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetLineasAdicionales(-1, CveCliente, -1, -1, -1, MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetLineasAdicionales(CveCliente, -1, -1, -1, UsuarioActual.CveEmpresa) Then
             GvLineasAdicionales.DataSource = ObjVentas.DtResultados
         End If