mrchelo2002

Hola Amigos. Quizás muchos como yo que alguna vez programaron en Fox, cobol o algún lenguaje con finalidad financiera, han usado una función llamada EVALUATE() o CALCULATE(), a la que le pasabamos un string con la cadena de cálculo y nos devolvía un string con el resultado. Esto mismo, tan simple y básico, en VB.NET es imposible de hacer porque no existe esta función. Hasta ahora... Bueno, humildemente he creado una función para que me solucione este problema y la compilé como dll para quien la necesite la pueda aprovechar. Pongo también el código fuente para quien quiera evolucionarla un poco y volverla a compartir (¡por favor!) Básicamente, es una clase llamada Calcula, con una función abstracta llamada Calculate("cadena de cálculo" El valor de Retorno es un valor numérico Doble. la forma de uso es, por ejemplo: Dim o As Double = 0 o = Calcular.Calculate("4*-1" Console.WriteLine("Resultado: {0}", o) 'Devuelve -4 Console.ReadLine() Admite Jerarquización a través de paréntesis, y se interpreta de izquierda a derecha. Por el momento no tiene una jerarquización de operaciones, como en los lenguajes (/,*,+,-). Por ejemplo, si en el código escribimos: Dim a As Integer=0 a= 1 + 4 / 2 En este caso, a valdría 3 , ya que la división tiene mayor jerarquía que la adición, por lo tanto el orden sería así: 4/2=2 a= 1 + 2 a=3 En la Función Calculate, escribirlo de esa manera resultaría en: a= 1 + 4 / 2 1 + 4= 5 a= 5 / 2 a= 2,5 Para escribir esto en la Función Calculate, debería escribirse: a = Calculate("1 + (4 / 2)" Espero pueda ser útil. Saludos! https://docs.google.com/file/d/0B4xfIj5UEmLreEFFZFd4b20tZDg/edit?usp=sharing

Hola. Después de mucho buscar y concatenar foros y blogs, logré mostrar exitosamente un reporte hecho con #Develop. A continuación voy a pegar el código de ejemplo, por si alguien está en la misma lucha. El ejemplo lo hice accediendo a una tabla de una base de datos, filtrando el contenido, pasándole el resultado al reporte, y mostrando finalmente la pantalla de preview. Lo primero es definir un engine del reporte, según estas líneas: 'Set Engine Dim engine As New ICSharpCode.Reports.Core.ReportEngine Dim pm as New ICSharpCode.Reports.Core.ReportParameters ' este es el manejador de parámetros, que en el ejemplo no lo uso. Dim reportPath As String = "c:reporte.sdr" 'aquí va el lugar donde esta el reporte (archivo) Luego tenemos que definir una tabla con los datos que le pasaremos al reporte. debe tener la misma estructura que la que elegimos para diseñar el reporte. Cómo diseñar el reporte, es un tema aparte, pero hay bastante ayuda de eso en internet y en el foro sharpdevelop. Dim adap As New OdbcDataAdapter("select * from tabla_prueba","dsn=prueba" 'aquí use una conexión odbc ya configurada, pero puede ser un objeto conección o la cadena correspondiente. Dim tabla As New DataTable adap.Fill(tabla) Una vez con estos datos en la mano, llamamos al reporte. engine.PreviewPushDataReport(reportPath,tabla,pm) Y listo. Espero que le sirva a alguien que busque un ejemplo simple de cómo comenzar con los reportes. Saludos!