From ecf786ad64bb11cabf9234cee7b161e3c5b10756 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 20 Apr 2022 20:44:45 -0700
Subject: [PATCH] mejoras en indirectos

---
 App_Code/ClsInventarios.vb |  3 ++-
 Compras/Compras.aspx.vb    | 15 +++++++++------
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index f941a3f69..4a306f502 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -4997,7 +4997,7 @@ Public Class ClsInventarios
 
     Public Function GetFletesRep(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1,
                                  Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha,
-                                 Optional FechaFin As Date = MaxFecha, Optional TipoGasto As Integer = -1) As Boolean
+                                 Optional FechaFin As Date = MaxFecha, Optional TipoGasto As Integer = -1, Optional CveEstatus As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_FletesRep")
         With SqlAdapter.SelectCommand.Parameters
@@ -5010,6 +5010,7 @@ Public Class ClsInventarios
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
             .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index caed3305f..f3fd68e1b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2194,9 +2194,8 @@ Partial Class Compras_Compras
             DdlRetISRConcepto.Items.Clear()
             DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
             DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
-            If UsuarioActual.CveEmpresa.Contiene(119, 7, 11, 12, 122, 145) Then
-                DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
-            End If
+            DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
+
         End If
         UpPS.Update()
     End Sub
@@ -14675,7 +14674,7 @@ Partial Class Compras_Compras
     Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click
         Dim Opcion As Integer = 1
 
-        If UsuarioActual.CveEmpresa.Contiene(119, 1) Then Opcion = 2
+        If UsuarioActual.CveEmpresa.Contiene(119, 1, 140) Then Opcion = 2
 
         Dim ObjCompras As New ClsCompras
 
@@ -20315,10 +20314,14 @@ Partial Class Compras_Compras
         ObjCompras.Dispose()
 
         Dim ObjInv As New ClsInventarios
-        If ObjInv.GetFletes(UsuarioActual.CveEmpresa, OpcionInventario:=1) Then
-            DdlFletes.DataSource = ObjInv.DtResultados
+        If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, "-1", -1, -1, -1, MinFecha, MaxFecha, TipoGasto:=1, CveEstatus:=0) Then
+            DdlFletes.DataSource = ObjInv.DtResultados.FiltraParametros("CveFlete > 0")
             DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
+        'If ObjInv.GetFletes(UsuarioActual.CveEmpresa, OpcionInventario:=1) Then
+        '    DdlFletes.DataSource = ObjInv.DtResultados
+        '    DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'End If
         ObjInv.Dispose()
 
         DdlImportaciones.DataBind()