path
Publicado por Lily (2 intervenciones) el 29/10/2008 18:57:48
Hola, necesito que al darle la opcion de guardar en excel u otro formato por default direccione al disco duro del usuario, lo cual logro con el codigo que anexo, pero al cerrar la aplicacion me genera un mensaje, como puedo evitarlo?....tienen algun ejemplo que me pueda ayudar? o que mas tengo que modificar o agregar....Gracias
mensaje al cerrar la aplicacion cuando la corro desde PB 10.5
"Servicio de preferencias de la aplicacion PFC ha sido solicitado, pero los atributos REQUIRED del registro de aplicaciones y del archivo INI no han sido fijados. Utilice of_SetAppKey/of_Set AppIniFile en la aplicacion PFC objeto administrador que fijara el atributo"
CODIGO en pfc_saveas
string ls_ruta, ls_nombre
long ll_guardar
// Para que pueda grabar en el disco duro del usuario
ChangeDirectory("c:" )
// Despliega la ventana de saveas
ll_guardar = getfilesavename("Seleccionar Destino", ls_ruta, ls_nombre, &
"Excel!"+"Text!"+"CSV!"+"dBASE3!",&
"Archivo de Excel ( *.xls), *.xls,"+"Archivo de Texto ( *.txt), *.txt,"+&
"Archivo de CSV (*.csv), *.csv,"+"Archivo de Base de Datos ( *.dbf), *.dbf,")
// Guarda el archivo con la ruta y nombre seleccionados en la ventana de saveas
if ll_guardar = 1 then
choose case right(ls_nombre,3)
case 'xls'
dw_report.saveas(ls_ruta, Excel!, true)
case 'txt'
dw_report.saveas(ls_ruta, Text!, true)
case 'csv'
dw_report.saveas(ls_ruta, CSV!, true)
case 'dbf'
dw_report.saveas(ls_ruta, dBASE3!, true)
end choose
end if
mensaje al cerrar la aplicacion cuando la corro desde PB 10.5
"Servicio de preferencias de la aplicacion PFC ha sido solicitado, pero los atributos REQUIRED del registro de aplicaciones y del archivo INI no han sido fijados. Utilice of_SetAppKey/of_Set AppIniFile en la aplicacion PFC objeto administrador que fijara el atributo"
CODIGO en pfc_saveas
string ls_ruta, ls_nombre
long ll_guardar
// Para que pueda grabar en el disco duro del usuario
ChangeDirectory("c:" )
// Despliega la ventana de saveas
ll_guardar = getfilesavename("Seleccionar Destino", ls_ruta, ls_nombre, &
"Excel!"+"Text!"+"CSV!"+"dBASE3!",&
"Archivo de Excel ( *.xls), *.xls,"+"Archivo de Texto ( *.txt), *.txt,"+&
"Archivo de CSV (*.csv), *.csv,"+"Archivo de Base de Datos ( *.dbf), *.dbf,")
// Guarda el archivo con la ruta y nombre seleccionados en la ventana de saveas
if ll_guardar = 1 then
choose case right(ls_nombre,3)
case 'xls'
dw_report.saveas(ls_ruta, Excel!, true)
case 'txt'
dw_report.saveas(ls_ruta, Text!, true)
case 'csv'
dw_report.saveas(ls_ruta, CSV!, true)
case 'dbf'
dw_report.saveas(ls_ruta, dBASE3!, true)
end choose
end if
Valora esta pregunta


0