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 @@
- Compras + COMPRAS DE PRODUCTOS
@@ -133,7 +133,7 @@ - + <%-- @@ -162,7 +162,7 @@
- Compras Gasto + Costo Indirecto
@@ -185,13 +185,13 @@ - + - + <%-- - + --%>
diff --git a/Inventarios/RepFletes.aspx b/Inventarios/RepFletes.aspx index 0c39960a0..16f6d5ba8 100644 --- a/Inventarios/RepFletes.aspx +++ b/Inventarios/RepFletes.aspx @@ -17,9 +17,9 @@ -
  • + <%--
  • Registrar Nuevo Flete -
  • + --%>
    @@ -42,12 +42,12 @@
    Proveedor:
    -
    +
    -
    Fecha Inicio:
    -
    -
    +
    Fecha Inicio:
    +
    +
    @@ -58,9 +58,9 @@
    -
    Fecha Fin:
    -
    -
    +
    Fecha Fin:
    +
    +
    @@ -71,6 +71,14 @@
    +
    Opción:
    +
    + + + + + +
    @@ -81,8 +89,8 @@ - - + <%-- + --%>
    Facturas de Costo IndirectoDocumento (OC/Compra)Facturas de Costo IndirectoDocumento (OC/Compra)
    @@ -91,17 +99,33 @@
    - + - - - - - - + + + + + + + + + + + + + + + + <%-- + + --%> + + + + <%-- - + --%> diff --git a/Inventarios/RepFletes.aspx.vb b/Inventarios/RepFletes.aspx.vb index 3c4d2787d..92cbf419b 100644 --- a/Inventarios/RepFletes.aspx.vb +++ b/Inventarios/RepFletes.aspx.vb @@ -40,7 +40,8 @@ Partial Class Compras_RepFletes Private Sub CargaDatos() Dim ObjInv As New ClsInventarios If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString - If ObjInv.GetFletes(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate) Then + If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1, + TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then DtFletes = ObjInv.DtResultados End If ObjInv.Dispose() @@ -55,13 +56,19 @@ Partial Class Compras_RepFletes Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero - Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra") + Dim TipoCon As Integer = e.Row.DBCampo("TipoCon").ToString.ToEntero + Dim CveFlete As Integer = e.Row.DBCampo("CveFlete").ToEntero() + Dim Url As String = If(TipoCon = -1, String.Format("/Compras/Compras.aspx?CveCompra={0}", CveFlete), String.Format("/Inventarios/Fletes.aspx?CveFlete={0}", CveFlete)) + e.Row.FCHyperLink("HlkFolio").NavigateUrl = Url + e.Row.FCHyperLink("HlkFecha").NavigateUrl = Url + e.Row.FCHyperLink("HlkDescripcion").NavigateUrl = Url + 'Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero + 'Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra") - e.Row.Cells(4).Text = $"{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}" - e.Row.Cells(5).Text = $"{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}" - e.Row.Cells(6).Text = $"{e.Row.DBCampo("DescripcionDocumento")}" - e.Row.Cells(7).Text = $"{e.Row.DBCampo("TotalDocumento")}" + 'e.Row.Cells(4).Text = $"{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}" + 'e.Row.Cells(5).Text = $"{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}" + 'e.Row.Cells(6).Text = $"{e.Row.DBCampo("DescripcionDocumento")}" + 'e.Row.Cells(7).Text = $"{e.Row.DBCampo("TotalDocumento")}" End If End Sub