mejoras en indirectos

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)

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()