From a64a9c65a8d20512b176108f6a2995e694a9161c Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 19 Aug 2019 10:06:27 -0500
Subject: [PATCH] actualizando /Compras/eFacturas

---
 Compras/eFacturas.aspx    | 7 +++++++
 Compras/eFacturas.aspx.vb | 5 ++---
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 5e3123081..a3b6472f7 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -154,6 +154,13 @@
                                       <asp:ListItem Selected="False" Text="Ambos" Value="3"></asp:ListItem>
                                   </asp:DropDownList>
                         </li>
+                        <li>Tipo Comprobante
+                            <asp:DropDownList ID="DdlTipoComprobante" runat="server" CssClass="form-control select2me input-sm" Width="150px">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="False" Text="Ingresos" Value="I"></asp:ListItem>
+                                <asp:ListItem Selected="False" Text="Egresos" Value="E"></asp:ListItem>
+                            </asp:DropDownList>
+                        </li>
                     </ul>
                 </div>
             </div>
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 74d215691..683c2a728 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -658,7 +658,6 @@ Partial Class Compras_eFacturas
         Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1")
         RFC = "-1" 'If(TxtRFC.Text.Trim.Length > 0, TxtRFC.Text.Trim, "-1")
         Proveedor = If(TxtProveedor.Text.Trim.Length > 0, String.Format("%{0}%", TxtProveedor.Text.Trim.ToUpper.Replace(" ", "%")), "-1")
-        Dim TipoComprobante As String = "-1"
 
         UsuarioActual.Sesion("eFact-Proveedor") = TxtProveedor.Text.Trim
         If Folio = "" Then UsuarioActual.Sesion("eFact-FI") = txtFechaI.Text
@@ -674,7 +673,7 @@ Partial Class Compras_eFacturas
         End If
         Dim DtPagos As DataTable = Nothing
         Dim ObjDatos As New ClsCompras
-        If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, TipoComprobante, UsuarioActual.CveEmpresa) Then
+        If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa) Then
             If ObjDatos.DtResultados.Rows.Count > 0 Then
                 GvD.DataSource = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'") '.AsEnumerable().Take(100).CopyToDataTable()
                 DtPagos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'")
@@ -1247,7 +1246,7 @@ Partial Class Compras_eFacturas
         Dim Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1")
         Dim Proveedor = If(TxtProveedor.Text.Trim.Length > 0, String.Format("%{0}%", TxtProveedor.Text.Trim.ToUpper.Replace(" ", "%")), "-1")
 
-        If ObjDatos.GetFacturas(-1, Folio, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, "-1", Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa) Then
+        If ObjDatos.GetFacturas(-1, Folio, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, "-1", Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa) Then
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
             Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)