CONSULTORIA Y DESARROLLO DE SISTEMAS

Esta clase permite llamar un reporte de Crystal report de forma genérica y estandarizada, aquí le comparto el método que llama de la clase, la cual puede tener el nombre que ustedes mejor les convenga, yo le llamo clsReporteGenerico  Public Overloads Shared Sub printrpt(ByVal nombrereporte As String, ByVal REPORTEDOC As ReportDocument, ByVal ParamArray par() As String)         Try             Dim forma As New frmPrinter  ' forma que tiene un objeto de tipo crystalreportviewer             forma.MdiParent = mainmenu1  ' El nombre de la mdi del sistema              Dim rpt As New ReportDocument             rpt = REPORTEDOC             With forma.crvVarios                 .ReportSource = rpt                 If par.Length > 0 Then                     .ParameterFieldInfo = genpar(par)                 End If                 logonrpt(rpt)                 'Configurar aquí cualquier opción de exportación                 Dim opt As New ExportOptions        

Cuando necesitamos convertir una fecha a un formato especifico, muchas veces hemos utilizado el comando :CONVERT(DATETIME,CONVERT(CHAR(10),GETDATE(),3)) Este comando ya no funciona en las versiones SQL 2008 En adelante, para obtener el mismo resultado puede utilizar este comando: DATEADD(DD, 0, DATEDIFF(DD, 0, GETDATE() ))

En algunas ocasiones necesitamos imprimir codigos de barras desde un documento o un software ue desarrollemos, para esto podemos utilizar la fuente  que esta en el siguiente enlace: http://www.barcodesinc.com/free-barcode-font/ Los códigos de barras usando esta fuente requieren iniciar con un asterisco y finalizar con un asterisco. Ejemplo: *LUIS* *12345CARLOS* El word permite imprimir códigos de barra pero muchas veces ajusta el tamaño de la barra y eso dificulta la lectura.