Cerrar Fletes, Cerrar importaciones, RSCO Productos servicios, rep productos por caducarse agrega Compuesto

Inventarios/Fletes.aspx.vb

@@ -94,6 +94,11 @@ Partial Class Compras_Fletes
                 '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.DtResultados.Rows(0)("CveEstatus").ToString.ToEntero = 0 Then
+                    LnkCerrarFlete.Visible = True
+                End If
+
+
                 If ObjInv.GetFleteDetalle(CveFlete) Then
                     DtCompras = ObjInv.DtResultados
                 Else
@@ -104,6 +109,9 @@ Partial Class Compras_Fletes
                     GvComprasVinculadas.DataSource = ObjInv.DtResultados
                 End If
 
+
+
+
             Else
                 Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia)
             End If
@@ -434,4 +442,17 @@ Partial Class Compras_Fletes
     End Sub
 
 
+
+    Protected Sub LnkCerrarFlete_Click(sender As Object, e As EventArgs)
+
+
+        Dim ObjInv As New ClsInventarios
+
+        If ObjInv.UpdateFleteCierre(CveFlete, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+            Alert("Flete cerrado correctamente.", TipoMensaje.MsgInformacion, $" location.href =  ""./Fletes.aspx?CveFlete={CveFlete}"" ")
+        End If
+
+        ObjInv.Dispose()
+
+    End Sub
 End Class