liga agregada al modal de nuevo movimiento almacen en saldos iniciales

General/SaldosIniciales.aspx.vb

@@ -1525,11 +1525,13 @@ Partial Class General_SaldosIniciales
                 ObjMovimientos.IniciaTransacSQL()
                 Dim OcurrioError As Boolean = False
                 Dim contadorMovimientos As Integer = 0
+                Dim listadoMovimientos As String = ""
                 Try
                     For Each almacenSinRepetir As DataRow In dt.FiltraParametros("", DistinctColumns:={"Almacen"}).Rows
                         Dim almacenActual As String = almacenSinRepetir("Almacen").ToString
                         Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
                         Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, 1, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+                        listadoMovimientos += $"movimiento con folio <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' style='color:blue'>{ObjMovimientos.Folio}</a><br/>"
                         If CveAlmacen > 0 Then
                             contadorMovimientos += 1
                             For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows
@@ -1565,7 +1567,7 @@ Partial Class General_SaldosIniciales
 
                 If Not OcurrioError Then
                     ObjMovimientos.Commit()
-                    Alert($"Se cargaron correctamente {contadorMovimientos} movimientos")
+                    Alert($"Se cargaron correctamente {contadorMovimientos} movimientos<br/><br/>{listadoMovimientos}")
                 Else
                     Alert("Ocurrió un error al cargar las existencias", TipoMensaje.MsgError)
                     ObjMovimientos.RollBack()