Cambiar nombre archivo de CryRep
Publicado por Loly (6 intervenciones) el 10/06/2011 17:46:29
Hola buenos dias tengan usteds amigos. quisiera me ayudaran sobre la elaboracion de un reporte en Crystal Report 8.5.
Este reporte lo deseo enviar por correo electrónico, pero deseo que cambie el nombre del archivo..
El archivo de Crystal Report que uso en Visual fox Se llama RCLC.RPT y deso que cambie a un dato necesario para que el destinatario verifique que dicho reporte ya fue recibido... se trata de ponerle un nombre asi: CLC8195083.PDF
Deseo que el Destinatario no reciba el archivo con el nombre RCLC.PDF sino que reciba el archivo llamado: CLC8195083.PDF
**********AQUI ESTA MI CODIGO.
***evento click del boton de Imprimir****
cFileDat=ALIAS() &&Tabla de datos
cFilerep= 'RClc.rpt' &&Nombre de archivo Reporte
pOpcion=1 && Impresion en Impresora
CrystalRep(cFileDat,cFileRep,pOpcion,nump)
*** Se Condicona para que solamente los envie al pagador...***
IF mtipo='Pagador'
pOpcion=4 && Exportar a un Archivo
*** Destino: 2=MailMAPI
CrystalRep(cFileDat,cFileRep,pOpcion,nump) &&Lama a la funcion de abajo
Endif
FUNCTION CrystalRep
***Recibe los parametros de impresion asi como el nombre del archivo
PARAMETERS cFileDat,cFilerep,pOpcion,nump
LOCAL vFilData,vlLetra,oCR,oRpt,lnI
SELECT &cFileDat
vFilData = Getenv("TEMP") + [\] + Sys(2015) + [.dbf]
Copy To &vFilData Type Fox2x
Wait Windows [Espere un momento...Se está Generando Informe] Nowait Noclear
*** Aqui deseo que el archivo cambie de nomre...
oCR = Createobject("CrystalRuntime.Application")
oRpt = oCR.OpenReport(Fullpath([reports\&cFilerep.]))
*** en lugar que se llame
IF oRpt.HasSavedData
oRpt.DiscardSavedData()
ENDIF
Gracias Amigos.... espero su ayuda
Este reporte lo deseo enviar por correo electrónico, pero deseo que cambie el nombre del archivo..
El archivo de Crystal Report que uso en Visual fox Se llama RCLC.RPT y deso que cambie a un dato necesario para que el destinatario verifique que dicho reporte ya fue recibido... se trata de ponerle un nombre asi: CLC8195083.PDF
Deseo que el Destinatario no reciba el archivo con el nombre RCLC.PDF sino que reciba el archivo llamado: CLC8195083.PDF
**********AQUI ESTA MI CODIGO.
***evento click del boton de Imprimir****
cFileDat=ALIAS() &&Tabla de datos
cFilerep= 'RClc.rpt' &&Nombre de archivo Reporte
pOpcion=1 && Impresion en Impresora
CrystalRep(cFileDat,cFileRep,pOpcion,nump)
*** Se Condicona para que solamente los envie al pagador...***
IF mtipo='Pagador'
pOpcion=4 && Exportar a un Archivo
*** Destino: 2=MailMAPI
CrystalRep(cFileDat,cFileRep,pOpcion,nump) &&Lama a la funcion de abajo
Endif
FUNCTION CrystalRep
***Recibe los parametros de impresion asi como el nombre del archivo
PARAMETERS cFileDat,cFilerep,pOpcion,nump
LOCAL vFilData,vlLetra,oCR,oRpt,lnI
SELECT &cFileDat
vFilData = Getenv("TEMP") + [\] + Sys(2015) + [.dbf]
Copy To &vFilData Type Fox2x
Wait Windows [Espere un momento...Se está Generando Informe] Nowait Noclear
*** Aqui deseo que el archivo cambie de nomre...
oCR = Createobject("CrystalRuntime.Application")
oRpt = oCR.OpenReport(Fullpath([reports\&cFilerep.]))
*** en lugar que se llame
IF oRpt.HasSavedData
oRpt.DiscardSavedData()
ENDIF
Gracias Amigos.... espero su ayuda
Valora esta pregunta


0