diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 33dc7e050..fe1e33d06 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -3071,6 +3071,39 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
+    Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_FletesComprasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_FletesComprasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveOC", SqlDbType.Int).Value = CveOC
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
 #Region "REPORTE PUE SIN PAGO"
 
     Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 14d802679..13afb3f39 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19218,13 +19218,13 @@ Partial Class Compras_Compras
                     Dr = ObjInventario.DtResultados.Rows(0)
                 End If
             End If
-            If Dr IsNot Nothing Then
-                If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
-                    Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
-                    ObjInventario.Dispose()
-                    Exit Sub
-                End If
-            End If
+            'If Dr IsNot Nothing Then
+            '    If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
+            '        Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
+            '        ObjInventario.Dispose()
+            '        Exit Sub
+            '    End If
+            'End If
             ObjInventario.Dispose()
         End If
 
@@ -19257,8 +19257,11 @@ Partial Class Compras_Compras
                                 If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
                                     ErrorTrans = True
                                 End If
+                                If Not ObjCompras.AddFletesCompras(CveFlete, CveCompra:=CveCompra) Then
+                                    ErrorTrans = True
+                                End If
                             Else
-                                ErrorTrans = True
+                                    ErrorTrans = True
                             End If
                         Case 2
                             If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
diff --git a/Inventarios/Fletes.aspx b/Inventarios/Fletes.aspx
index 5e83888b3..5461ff213 100644
--- a/Inventarios/Fletes.aspx
+++ b/Inventarios/Fletes.aspx
@@ -63,34 +63,34 @@
                                     </div>
                                 </div>
                             </div>
-                            <div class="row">
+                            <%--<div class="row">
                                 <div class="col-md-12">
                                     <hr />
                                 </div>
                                 <div class="col-md-2">
                                     Modalidad
-                                </div>
-                                <div class="col-md-5">
+                                </div>--%>
+                                <%--<div class="col-md-5">
                                     <asp:DropDownList ID="DdlModalidad" AutoPostBack="true" OnSelectedIndexChanged="DdlModalidad_SelectedIndexChanged" runat="server" CssClass="select2me Widthall">
                                         <asp:ListItem Text="OC" Value="1" Selected="True" />
                                         <asp:ListItem Text="Compra" Value="2" />
                                     </asp:DropDownList>
-                                </div>
-                                <div class="col-md-5 text-center">
-                                    <div runat="server" id="DivVincularOC">
+                                </div>--%>
+                                <%--<div class="col-md-5 text-center">
+                                    <%--<div runat="server" id="DivVincularOC">
                                         <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/OC/PopUpBuscarReq.aspx?Op=FactFle',800,600,'N');"><i class='fa fa-plus'></i>Vincular Orden de Compra</a>
-                                        <asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" OnClick="BtnVincularOC_Click" Style="display: none;" class="btn btn-primary" />
+                                        <asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" Style="display: none;" class="btn btn-primary" />
                                         <asp:HiddenField runat="server" ID="HdnCveOC" ClientIDMode="Static" Value="-1" />
-                                    </div>
+                                    </div>--%>
 
-                                    <div runat="server" id="DivVincularCompra" visible="false">
+                                    <%--<div runat="server" id="DivVincularCompra" visible="false">
                                         <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=Fact',800,600,'N');"><i class='fa fa-plus'></i>Vincular Compra</a>
                                         <asp:Button ID="BtnVincularCompra" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompra_Click" Style="display: none;" class="btn btn-primary" />
                                         <asp:HiddenField runat="server" ID="HdnCveCompra" ClientIDMode="Static" Value="-1" />
-                                    </div>
-                                </div>
-                            </div>
-                        <div class="row">
+                                    </div>--%>
+                                <%--</div>--%>
+                            <%--</div>--%>
+                        <%--<div class="row">
                             <div class="col-md-2">Proveedor:</div>
                             <div class="col-md-10">
                                 <asp:Label ID="LbOCProveedor" Text="" runat="server" />
@@ -107,12 +107,51 @@
                             <div class="col-md-10">
                                 <asp:Label ID="LbOCImporte" Text="" runat="server" />
                             </div>
-                        </div>
+                        </div>--%>
                     </div>
                     </div>
                 </ContentTemplate>
             </asp:UpdatePanel>
         </div>
+        <div class="col-md-6">
+            <asp:UpdatePanel runat="server" ID="UpComprasGrid">
+                <ContentTemplate>
+                    <div class="portlet light smmallpadding bordered " id="PorletCompras">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Compras</span>
+                            </div>
+                            <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body rowpadding">
+                            <div class="row">
+                                <div class="col-md-12">
+                                    <asp:GridView ID="GvComprasVinculadas" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD" Width="100%" GridLines="None" DataKeyNames="CveFleteCompra" EmptyDataText="No hay compras vinculadas" >
+                                        <Columns>
+                                            <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="30%" />
+                                            <asp:HyperLinkField HeaderText="Serie-Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" ItemStyle-Width="10%" Target="_blank" />
+                                            <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:BoundField HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" DataField="Abreviatura" ItemStyle-Width="10%" />
+                                            <asp:BoundField HeaderText="TC" ItemStyle-HorizontalAlign="Center" DataField="TipoCambio" ItemStyle-Width="5%" />
+                                            <%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" >
+                                                <ItemTemplate>
+                                                    <div data-toggle="tooltip" data-original-title="Eliminar compra vinculada">
+                                                        <asp:LinkButton ID="LnkEliminaCompraVinculada" OnClick="LnkEliminaCompraVinculada_Click" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />   
+                                                    </div>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>--%>
+                                        </Columns>
+                                    </asp:GridView>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
     </div>
 
     <div class="row">
@@ -128,13 +167,13 @@
                             <div class="tools">
                                 <a href="javascript:;" class="collapse"></a>
                             </div>
-                            <div class="actions">
+                            <%--<div class="actions">
                                 <div class="btn-group">
                                     <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=FactFlete',800,600,'N');" data-toggle="tooltip" data-placement="top" title="Agregar compra(factura) de gastos."><i class='fa fa-plus'></i>Agregar compra de gasto</a>
                                     <asp:Button ID="BtnVincularCompraGasto" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompraGasto_Click" Style="display: none;" class="btn btn-primary" />
                                     <asp:HiddenField runat="server" ID="HdnCveCompraGasto" ClientIDMode="Static" Value="-1" />
                                 </div>
-                            </div>
+                            </div>--%>
                         </div>
                         <div class="portlet-body rowpadding">
                             <div class="row">
diff --git a/Inventarios/Fletes.aspx.vb b/Inventarios/Fletes.aspx.vb
index d0d318b96..27c2b1c77 100644
--- a/Inventarios/Fletes.aspx.vb
+++ b/Inventarios/Fletes.aspx.vb
@@ -81,27 +81,27 @@ Partial Class Compras_Fletes
                 TxtFecha.Text = ObjInv.DtResultados.Rows(0)("Fecha").ToString
 
                 If ObjInv.DtResultados.Rows(0)("CveOC").ToString.ToEntero > 0 Then
-                    DdlModalidad.SelectedValue = "1"
+                    'DdlModalidad.SelectedValue = "1"
                 Else
-                    DdlModalidad.SelectedValue = "2"
+                    'DdlModalidad.SelectedValue = "2"
                 End If
-                CambiaModalidad()
-                HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString
-                HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString
+                'CambiaModalidad()
+                'HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString
+                'HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString
 
-                LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString
-                HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString
-                HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
-                LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
+                'LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString
+                'HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString
+                'HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
+                'LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
 
                 If ObjInv.GetFleteDetalle(CveFlete) Then
                     DtCompras = ObjInv.DtResultados
                 Else
                     Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError)
                 End If
-
+                CargarComprasRelacionadas()
             Else
-                Alert("No se encontró el flete", TipoMensaje.MsgInformacion)
+                Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia)
             End If
         Else
             Alert("Ocurrió un error al cargar el flete", TipoMensaje.MsgError)
@@ -123,168 +123,168 @@ Partial Class Compras_Fletes
 #Region "   VINCULA DOCUMENTO PRINCIPAL - OC | COMPRA   "
 
     Protected Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CambiaModalidad()
+        'CambiaModalidad()
         UpRegistro.Update()
     End Sub
-    Private Sub CambiaModalidad()
-        HdnCveOC.Value = "-1"
-        HdnCveCompra.Value = "-1"
+    'Private Sub CambiaModalidad()
+    '    HdnCveOC.Value = "-1"
+    '    HdnCveCompra.Value = "-1"
 
-        LbOCProveedor.Text = ""
-        HLOCFolio.Text = ""
-        HLOCFolio.NavigateUrl = "#"
-        LbOCImporte.Text = ""
+    '    LbOCProveedor.Text = ""
+    '    HLOCFolio.Text = ""
+    '    HLOCFolio.NavigateUrl = "#"
+    '    LbOCImporte.Text = ""
 
-        DivVincularOC.Visible = DdlModalidad.SelectedValue = "1"
-        DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2"
-    End Sub
+    '    DivVincularOC.Visible = DdlModalidad.SelectedValue = "1"
+    '    DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2"
+    'End Sub
 
-    Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
-        VinculaOC()
-    End Sub
-    Private Sub VinculaOC()
-        If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then
-            Dim ObjInv As New ClsInventarios
-            Dim ObjOC As New ClsOC
-            If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
-                If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
-                    If ObjOC.DtResultados.Rows.Count > 0 Then
-                        LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
-                        HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}"
-                        HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}"
-                        LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}"
-                    End If
-                Else
-                    HdnCveOC.Value = "-1"
-                End If
-            Else
-                Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
-            ObjInv.Dispose()
-            ObjOC.Dispose()
-        End If
-        UpRegistro.Update()
-    End Sub
-    Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs)
-        VincularCompra()
-    End Sub
-    Private Sub VincularCompra()
+    'Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
+    '    VinculaOC()
+    'End Sub
+    'Private Sub VinculaOC()
+    '    If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then
+    '        Dim ObjInv As New ClsInventarios
+    '        Dim ObjOC As New ClsOC
+    '        If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
+    '            If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+    '                If ObjOC.DtResultados.Rows.Count > 0 Then
+    '                    LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
+    '                    HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}"
+    '                    HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}"
+    '                    LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}"
+    '                End If
+    '            Else
+    '                HdnCveOC.Value = "-1"
+    '            End If
+    '        Else
+    '            Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '        End If
+    '        ObjInv.Dispose()
+    '        ObjOC.Dispose()
+    '    End If
+    '    UpRegistro.Update()
+    'End Sub
+    'Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs)
+    '    VincularCompra()
+    'End Sub
+    'Private Sub VincularCompra()
 
-        If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then
-            Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+    '    If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then
+    '        Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
 
-        Dim ObjCompras As New ClsCompras
-        Dim ObjInv As New ClsInventarios
-        Dim ErrorAgregar = False
-        Dim RowCompras As DataRow = Nothing
+    '    Dim ObjCompras As New ClsCompras
+    '    Dim ObjInv As New ClsInventarios
+    '    Dim ErrorAgregar = False
+    '    Dim RowCompras As DataRow = Nothing
 
-        If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-            RowCompras = ObjCompras.DtResultados.Rows(0)
-            If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
-                ErrorAgregar = True
-                Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
-        Else
-            ErrorAgregar = True
-            Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
-        End If
+    '    If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+    '        RowCompras = ObjCompras.DtResultados.Rows(0)
+    '        If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
+    '            ErrorAgregar = True
+    '            Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '        End If
+    '    Else
+    '        ErrorAgregar = True
+    '        Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
+    '    End If
 
-        If Not ErrorAgregar Then
-            If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
-                ErrorAgregar = True
-                Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
-        End If
+    '    If Not ErrorAgregar Then
+    '        If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
+    '            ErrorAgregar = True
+    '            Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '        End If
+    '    End If
 
-        If Not ErrorAgregar Then
-            LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
-            HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}"
-            HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
-            LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}"
-        Else
-            HdnCveCompra.Value = "-1"
-        End If
+    '    If Not ErrorAgregar Then
+    '        LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
+    '        HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}"
+    '        HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
+    '        LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}"
+    '    Else
+    '        HdnCveCompra.Value = "-1"
+    '    End If
 
-        ObjCompras.Dispose()
-        ObjInv.Dispose()
+    '    ObjCompras.Dispose()
+    '    ObjInv.Dispose()
 
-    End Sub
+    'End Sub
 
 #End Region
 
 #Region "   AGREGA COMPRA GASTO   "
-    Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs)
-        AgregaCompraGasto()
-    End Sub
-    Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs)
-        AgregaCompraGasto()
-    End Sub
-    Private Sub AgregaCompraGasto()
+    'Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs)
+    '    AgregaCompraGasto()
+    'End Sub
+    'Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs)
+    '    AgregaCompraGasto()
+    'End Sub
+    'Private Sub AgregaCompraGasto()
 
-        If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then
-            Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+    '    If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then
+    '        Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia)
+    '        Exit Sub
+    '    End If
 
-        Dim ObjCompras As New ClsCompras
-        Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL)
-        Dim ErrorAgregar = False
-        Dim RowCompras As DataRow = Nothing
+    '    Dim ObjCompras As New ClsCompras
+    '    Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL)
+    '    Dim ErrorAgregar = False
+    '    Dim RowCompras As DataRow = Nothing
 
-        If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-            RowCompras = ObjCompras.DtResultados.Rows(0)
-            If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
-                ErrorAgregar = True
-                Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
-        Else
-            ErrorAgregar = True
-            Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
-        End If
+    '    If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+    '        RowCompras = ObjCompras.DtResultados.Rows(0)
+    '        If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
+    '            ErrorAgregar = True
+    '            Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '        End If
+    '    Else
+    '        ErrorAgregar = True
+    '        Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
+    '    End If
 
-        If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then
-            ErrorAgregar = True
-            Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        End If
+    '    If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then
+    '        ErrorAgregar = True
+    '        Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '    End If
 
-        If Not ErrorAgregar Then
-            If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
-                ErrorAgregar = True
-                Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
-        End If
+    '    If Not ErrorAgregar Then
+    '        If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
+    '            ErrorAgregar = True
+    '            Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '        End If
+    '    End If
 
-        If Not ErrorAgregar Then
-            If Not GvDatos.Rows.Count > 0 Then
-                DtCompras = RowCompras.Table.Clone
-                DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32"))
-            End If
-            If CveFlete > 0 Then
-                If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then
-                    ErrorAgregar = True
-                    Alert("Ocurrió un error al agregar la  compra. Por favor intente de nuevo.", TipoMensaje.MsgError)
-                End If
-            End If
-        End If
+    '    If Not ErrorAgregar Then
+    '        If Not GvDatos.Rows.Count > 0 Then
+    '            DtCompras = RowCompras.Table.Clone
+    '            DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32"))
+    '        End If
+    '        If CveFlete > 0 Then
+    '            If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then
+    '                ErrorAgregar = True
+    '                Alert("Ocurrió un error al agregar la  compra. Por favor intente de nuevo.", TipoMensaje.MsgError)
+    '            End If
+    '        End If
+    '    End If
 
-        If Not ErrorAgregar Then
-            ObjCompras.Commit()
-            DtCompras.ImportRow(RowCompras)
-            CargaGrid()
-            If CveFlete > 0 Then
-                Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        Else
-            ObjCompras.RollBack()
-        End If
+    '    If Not ErrorAgregar Then
+    '        ObjCompras.Commit()
+    '        DtCompras.ImportRow(RowCompras)
+    '        CargaGrid()
+    '        If CveFlete > 0 Then
+    '            Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion)
+    '        End If
+    '    Else
+    '        ObjCompras.RollBack()
+    '    End If
 
-        HdnCveCompraGasto.Value = "-1"
-        ObjCompras.Dispose()
-        ObjInv.Dispose()
+    '    HdnCveCompraGasto.Value = "-1"
+    '    ObjCompras.Dispose()
+    '    ObjInv.Dispose()
 
-    End Sub
+    'End Sub
     Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
         Dim TieneError = False
         If CveFlete > 0 AndAlso GvDatos.Rows(e.RowIndex).DataKey("CveFleteDetalle").ToEntero > 0 Then
@@ -312,18 +312,18 @@ Partial Class Compras_Fletes
 #Region "  GUARDAR  "
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
 
-        Select Case DdlModalidad.SelectedValue.ToEntero
-            Case 1
-                If Not HdnCveOC.Value.ToEntero > 0 Then
-                    Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                End If
-            Case 2
-                If Not HdnCveCompra.Value.ToEntero > 0 Then
-                    Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                End If
-        End Select
+        'Select Case DdlModalidad.SelectedValue.ToEntero
+        '    Case 1
+        '        'If Not HdnCveOC.Value.ToEntero > 0 Then
+        '        '    Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia)
+        '        '    Exit Sub
+        '        'End If
+        '    Case 2
+        '        'If Not HdnCveCompra.Value.ToEntero > 0 Then
+        '        '    Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia)
+        '        '    Exit Sub
+        '        'End If
+        'End Select
 
         If Not DtCompras.Rows.Count > 0 Then
             Alert("Tiene que tener compras de gastos agregadas", TipoMensaje.MsgAdvertencia)
@@ -336,7 +336,7 @@ Partial Class Compras_Fletes
         Dim CveFleteTemporal As Integer = 0
 
         If CveFlete < 0 Then
-            If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 CveFleteTemporal = ObjInv.CveFlete
             Else
                 ErrorFlete = True
@@ -352,7 +352,7 @@ Partial Class Compras_Fletes
                 ErrorFlete = True
             End If
         Else
-            If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario) Then
+            If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario) Then
                 ErrorFlete = True
             End If
         End If
@@ -410,25 +410,32 @@ Partial Class Compras_Fletes
 
         If Archivo.Exists Then
             Dim ImporteGrid As Double = DtCompras.SUM("SubTotal")
-            Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
-            Dim ImporteData As Double = ImporteStr.ToDouble()
+            'Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
+            'Dim ImporteData As Double = ImporteStr.ToDouble()
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("Folio", LblFolio.Text))
             params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
             params.Add(New ReportParameter("Fecha", TxtFecha.Text))
-            params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra")))
-            params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text))
-            params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text))
-            params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString()))
+            params.Add(New ReportParameter("Modalidad", "Factura de Compra"))
+            params.Add(New ReportParameter("Proveedor", ""))
+            params.Add(New ReportParameter("FolioModalidad", ""))
+            params.Add(New ReportParameter("Importe", (ImporteGrid).ToString()))
 
             ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1")
         End If
 
     End Sub
 
-
+    Private Sub CargarComprasRelacionadas()
+        Dim ObjCompras As New ClsCompras
+        If ObjCompras.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then
+            GvComprasVinculadas.DataSource = ObjCompras.DtResultados
+        End If
+        ObjCompras.Dispose()
+        GvComprasVinculadas.DataBind()
+    End Sub
 
 
 End Class