I.
-CR con Aplicaciones WIN
1. VB / VFP 2. Crear un WKp y cambiar propiedad para activar los Activex. 3. Insertar el Componente de Crystal Report 4. Nota: Me parece que en la version 8.5 o 9.0 de CR no viene con el Control 5. Adjunto codigo que permite llamar el reporte con un rango de fechas 6. Nota: recuerda que existen mas parametros que puedes utilizar. Event Enter // ---rutina que cambia el formato Fecha que necesita CR &nDia = day(&fi) &nMes = month(&fi) &nAnio = year(&fi) &ValorP = 'Date(' + ltrim(str(&nAnio,4,0)) + ',' + ltrim(str(&nMes,2,0)) + ',' + ltrim(str(&nDia,2,0)) + ')' &ndia1 = day(&ft) &nmes1 = month(&ft) &nanio1= year(&ft)
&valorF= 'Date(' + ltrim(str(&nAnio1,4,0)) + ',' + ltrim(str(&nMes1,2,0)) + ',' + ltrim(str(&nDia1,2,0)) + ')' crystal.ReportTitle = "Desde:"+dtoc(&fi) +" hasta:"+dtoc(&ft) Crystal.Connect = "DNS = SGCS;UID = sa;PWD = sa" CRYSTAL.SelectionFormula = "{t0092.ocfemi} >="+ &valorp +" AND "+ " {t0092.ocfemi} <="+&valorf crystal.ReportFileName = "sanidad_01.rpt" crystal.Destination=&salida crystal.WindowState=2 Crystal.Action = 1 EndEvent // Enter
II.-CR con Aplicaciones 3 Capas ( .NET o JAVA ) Plataforma MS 1. Tener IIS instalado ( puedes tambien tener Xp Home y tener IIS instalado ) 2. Instalar CR Full o por lo menos los componentes Web ( Servidor de Reportes ) 3. Revisar en los Servicio esten arriba el DDE y DDS porque por lo general estan deshabilitados. 4. Adjunto codigo que permite llamar un reporte 5. Nota: Recuerda que no es web por lo que al llamar al reportes no utilizo LINK sino Shell 6. Nota: Debes dejar los rpt en el root del IIS ,pero puedes crear un Directorio virtual si quieres. &nDia = day(&fi) &nMes = month(&fi) &nAnio = year(&fi) &ValorP = 'Date(' + ltrim(str(&nAnio,4,0)) + ',' + ltrim(str(&nMes,2,0)) + ',' + ltrim(str(&nDia,2,0)) + ')'
&ndia1 = day(&ft) &nmes1 = month(&ft) &nanio1= year(&ft) &valorF= 'Date(' + ltrim(str(&nAnio1,4,0)) + ',' + ltrim(str(&nMes1,2,0)) + ',' + ltrim(str(&nDia1,2,0)) + ')' &texto = " Produccin Analizada:"+ltrim(str(&kilos)) + " Produccin No conformes :"+ltrim(str(&noconforme)) + " Porcent.No Conformidad:"+ltrim(str(&porcentaje)) &texto1= "Desde el :"+dtoc(&fi)+ " Hasta el :"+dtoc(&ft) +" PLANTA:"+ltrim(&plantanom) &url = "192.168.1.34\NOCONFORMIDADES.rpt? user0=dedalos&password0=dedalos&prompt0="+&texto+"&prompt1="+&texto1 +"&sf="+"{INGRESO1.IngFecProd} >="+ &valorp +" AND "+ " {INGRESO1.IngFecProd} <="+&valorf +" AND "+ " {INGRESO1.plantacod} ="+"'"+&plantacod+"'" &Auxi = Shell('"C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE" '+&url , 0 ) III.-CR con Aplicaciones WEB 7. Tener IIS instalado ( puedes tambien tener Xp Home y tener IIS instalado ) 8. Instalar CR Full o por lo menos los componentes Web ( Servidor de Reportes ) 9. Revisar en los Servicio esten arriba el DDE y DDS porque por lo general estan deshabilitados. 10. Adjunto codigo que permite llamar un reporte 11. Nota: Recuerda que no es web por lo que al llamar al reportes no utilizo LINK sino Shell 12. Nota: Debes dejar los rpt en el root del IIS ,pero puedes crear un Directorio virtual si quieres. &nDia = day(&fi) &nMes = month(&fi) &nAnio = year(&fi) &ValorP = 'Date(' + ltrim(str(&nAnio,4,0)) + ',' + ltrim(str(&nMes,2,0)) + ',' + ltrim(str(&nDia,2,0)) + ')' &ndia1 = day(&ft) &nmes1 = month(&ft) &nanio1= year(&ft) &valorF= 'Date(' + ltrim(str(&nAnio1,4,0)) + ',' + ltrim(str(&nMes1,2,0)) + ',' + ltrim(str(&nDia1,2,0)) + ')' &texto = " Produccin Analizada:"+ltrim(str(&kilos)) + " Produccin No conformes :"+ltrim(str(&noconforme)) + " Porcent.No Conformidad:"+ltrim(str(&porcentaje)) &texto1= "Desde el :"+dtoc(&fi)+ " Hasta el :"+dtoc(&ft) +" PLANTA:"+ltrim(&plantanom) Link("http://192.168.1.34\NOCONFORMIDADES.rpt? user0=dedalos&password0=dedalos&prompt0="+&texto+"&prompt1="+&texto1
+"&sf="+"{INGRESO1.IngFecProd} >="+ &valorp +" AND "+ " {INGRESO1.IngFecProd} <="+&valorf +" AND "+ " {INGRESO1.plantacod} ="+"'"+&plantacod+"'")
