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