FoxPro/Visual FoxPro - Cambiar nombre archivo de CryRep

   
Vista:

Cambiar nombre archivo de CryRep

Publicado por Loly lolicortesgomez@hotmail.com (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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Cambiar nombre archivo de CryRep

Publicado por Mauricio (1368 intervenciones) el 10/06/2011 20:07:10
Puedes usar !rename para que despues de generarlo, cambiarle el nombre, pruebalo asi:
*
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()
* Me parece que aca despues de guardarlo puedes renombrarlo, porque aca ya esta generado * como RCLC.PDF
!RENAME RCLC,PDF CLC8195083.PDF
cFilerep= CLC8195083.PDF
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar