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()
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index a04a9f686..156070172 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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)
diff --git a/GPS/PalletEtiqueta2.rdlc b/GPS/PalletEtiqueta2.rdlc
index 07be03233..e75b2bc6e 100644
--- a/GPS/PalletEtiqueta2.rdlc
+++ b/GPS/PalletEtiqueta2.rdlc
@@ -657,7 +657,7 @@
- 0.49417cm
+ 0.25604cm
@@ -1101,7 +1101,7 @@
- 0.49417cm
+ 0.41479cm
@@ -1237,7 +1237,7 @@
- 0.54708cm
+ 0.44125cm
@@ -1354,7 +1354,7 @@
- 0.52062cm
+ 0.38833cm
@@ -1492,7 +1492,7 @@
- 0.36187cm
+ 0.3475cm
@@ -1622,7 +1622,7 @@
- 0.38833cm
+ 0.6cm
@@ -1753,7 +1753,7 @@
- 0.52062cm
+ 0.36187cm
@@ -1889,7 +1889,7 @@
- 0.44125cm
+ 0.17667cm
@@ -2144,7 +2144,7 @@
- 0.41479cm
+ 0.36187cm
@@ -2274,7 +2274,7 @@
- 0.41479cm
+ 0.62646cm
@@ -2658,7 +2658,7 @@
- 0.52062cm
+ 0.38833cm
@@ -2796,7 +2796,7 @@
- 0.44125cm
+ 0.38833cm
@@ -2926,7 +2926,7 @@
- 0.38833cm
+ 0.6cm
@@ -3193,7 +3193,7 @@
- 0.38833cm
+ 0.36187cm
@@ -3310,7 +3310,7 @@
- 0.46771cm
+ 0.44125cm
@@ -3448,7 +3448,7 @@
- 0.36187cm
+ 0.33542cm
@@ -3754,7 +3754,7 @@
0.0762cm
0.10266cm
- 13.18458cm
+ 12.50875cm
9.64969cm
- 5.34012in
+ 4.95471in