-- visualización de folio de importación/indirecto y su liga respectiva

Compras/Compras.aspx.vb

@@ -2841,6 +2841,19 @@ Partial Class Compras_Compras
 
                 TxtRembolsoNumero.Enabled = If(IdPoliza > 0, False, True)
 
+                If dr("CveImportacion").ToString <> "" Then
+                    divCompraImportacion.Visible = True
+                    HplCompraImportacion.Text = dr("Importacion").ToString
+                    If dr("TipoImportacion").ToString = "2" Then 'flete/indirecto
+                        LtlImportacionTexto.Text = "Indirecto"
+                        HplCompraImportacion.NavigateUrl = $"/Inventarios/Fletes.aspx?CveFlete={dr("CveImportacion")}"
+                    Else
+                        HplCompraImportacion.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={dr("CveImportacion")}"
+                    End If
+
+                End If
+
+
                 If dr("CveFolioGarantia").ToString <> "" Then
                     divFolioGarantia.Visible = True
                     DdlFolioGarantia.Items.Insert(0, New ListItem(dr("FolioGarantia").ToString, dr("CveFolioGarantia").ToString))
@@ -3004,7 +3017,6 @@ Partial Class Compras_Compras
                 ImgFecha.Enabled = False
                 CEFecha.Enabled = False
 
-
                 If UsuarioActual.TienePermisoProceso(342) Then
                     TxtFecha.Enabled = True
                     ImgFecha.Enabled = True
@@ -3012,8 +3024,6 @@ Partial Class Compras_Compras
                     LnkActualziarFechadecompra.Visible = True
                 End If
 
-
-
                 DdlProveedor.Enabled = False
                 DdlProveedorSucursal.Enabled = False
                 DdlEstatus.Enabled = False