Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

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

Compras/PopUpVerFactura.aspx.vb

@@ -336,6 +336,7 @@ Partial Class PopUpVerFactura
         Dim Cultivo As String = ""
         Dim noPallet As String = ""
         Dim Variedad As String = ""
+        Dim NoCajas As String = ""
 
         'Envase = "1 1/9"
         'Tamano = "Small"
@@ -350,6 +351,7 @@ Partial Class PopUpVerFactura
                 Cultivo = row("Cultivo").ToString()
                 noPallet = row("Codigo").ToString()
                 Variedad = row("CultivoVariedad").ToString()
+                NoCajas = String.Format("{0:N0}", row("NoCajas"))
 
             End If
 
@@ -360,6 +362,7 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Cultivo", Cultivo))
         params.Add(New ReportParameter("noPallet", noPallet))
         params.Add(New ReportParameter("Variedad", Variedad))
+        params.Add(New ReportParameter("NoCajas", NoCajas))
 
         Dim lrds As New List(Of ReportDataSource)