This is my code
Code: Select all
Dim reporte As New StiReport
reporte.Load(archivo)
reporte.Compile()
reporte("urlImagenNave") = Tools.Controles.ObtenerLogoNave(cmbNave.SelectedValue)
reporte("nombreNave") = cmbNave.Text
reporte("NombreReporte") = "SAY: RESUMEN_UBICACION_ICI.mrt"
reporte("Usuario") = Entidades.SesionUsuario.UsuarioSesion.PUserUsername.ToString
reporte("Operador") = NombreOperador
reporte("Fecha de Ejecucion") = Fecha
reporte("InventarioCiclicoNombre") = Desccripcion
reporte("IdInventario") = IdInventario.ToString
reporte("TotalPares") = TotalPares
reporte("inv_n") = "*" + IdInventario.ToString + "*"
reporte("Inventario_n") = "no. " + IdInventario.ToString
reporte.Dictionary.Clear()
reporte.RegData(dsInventario.DataSetName, dsInventario)
reporte.Dictionary.Synchronize()
reporte.Show()