diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 95962b005..293c971d4 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4543,6 +4543,31 @@ Public Class ClsInventarios Return Retorno End Function + 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 + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_FletesRep") + With SqlAdapter.SelectCommand.Parameters + .Add("@Folio", SqlDbType.VarChar).Value = Folio + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function RecepcionAlmacenFleteGet(CveFlete As Integer, CveOrdenCompra As Integer, CveCompra As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RecepcionAlmacenFleteGet") diff --git a/Inventarios/Fletes.aspx b/Inventarios/Fletes.aspx index 5461ff213..bcd2bac64 100644 --- a/Inventarios/Fletes.aspx +++ b/Inventarios/Fletes.aspx @@ -120,7 +120,7 @@
| - | Facturas de Costo Indirecto | -Documento (OC/Compra) | + <%--Facturas de Costo Indirecto | +Documento (OC/Compra) | --%>