Error al guardar con Print Preview

[Pepe Ruano]

Hola, tengo un problema con Print Preview cuando intento guardar cualquier listado en cualquier tipo, pdf, jpg bmp etc....
En la aplicación asigno el Path donde quiero trabajar y están las bases de datos, de tal foma:
SET PATH TO DATOS\EMPRESA1 o SET PATH TO DATOS\EMPRESA2 etc..
Pero cuando quiero guardar algún listado en cualquiero formato como ya he dicho, selecciono el directorio donde lo quiero guardar y al terminar y volver al programa se cuelga porque me ha cambiado al Path que haya seleccionado para guardar el listado.
¿ Pueden ayudarme y decirme porqué ocurre esto ?
Gracias anticipadas a todos.

English Google Translator

Hello, I have a problem with Print Preview when I try to save any listing in any type, pdf, jpg bmp etc ...
In the application I assign the Path where I want to work and there are the databases, in such a way:
SET PATH TO DATA \ COMPANY1 or SET PATH TO DATA \ COMPANY2 etc ..
But when I want to save a list in any format as I have said, I select the directory where I want to save it and when I finish and return to the program it hangs up because it has changed me to the Path that I have selected to save the list.
Can you help me and tell me why this happens?
Thanks in advance to everyone.

[mustafa]

Hola Pepe
No se si tu problema es lo mismo que me está pasando
cuando entro dentro de una carpeta ejemplo c:\MAIN\Photo_New\
para guardar algun archivo y salgo y quiero trabajar con la
Base de Datos que está en la raiz principal MAIN me sale Error
porque aún esta dentro de carpeta Photo_New\

Se me ocurrio cuando empieza el prg principal colocar

#include "hmg.ch"
FUNCTION MAIN
.........etc.etc.

PUBLIC PriNc := HB_Curdrive() +":\"+Rtrim(Curdir() ) + "\"
PUBLIC cDiry := PriNc + "Photo_New\"

IF ! HB_DirExists( cDiry )
DirMake(cDiry) // Si no está Crea Folder "Photo_New\"
ENDIF

DIRCHANGE( PriNc)
y estoy jugando con DIRCHANGE()
si quiero ir a "Photo_New\"

DIRCHANGE( PriNc +"Photo_New\")
MemoWrit( cFile , UnMaskBinData( FIELD->PHOTO ) )

FileDelete("Photo_New\_cas_ver.jpg")

DIRCHANGE( PriNc ) <---- Regreso al principal
CLOSE DATABASES
USE test
INDEX ON FIELD->CODE TAG PHOTO to Image
dbgotop()
.......... etc.etc.

Saludos
Mustafa

[Pepe Ruano]

Hola Pepe
No se si tu problema es lo mismo que me está pasando
cuando entro dentro de una carpeta ejemplo c:\MAIN\Photo_New\
para guardar algun archivo y salgo y quiero trabajar con la
Base de Datos que está en la raiz principal MAIN me sale Error
porque aún esta dentro de carpeta Photo_New\

Se me ocurrio cuando empieza el prg principal colocar

#include "hmg.ch"
FUNCTION MAIN
.........etc.etc.
Saludos
Mustafa

Excelente Musta, me has abierto los ojos y con tu contribución ya funciona todo correcto, lo de crear directorios y borrar etc... ya lo tenía solucionado por lo que simplemente he hecho lo siguiente, en el Main Principal he puesto:
*------------------------------------------------------------------------------*
Function Main()
*------------------------------------------------------------------------------*

*--------- Variables Públicas ----------*
PUBLIC MiRuta := HB_Curdrive() +":\"+Rtrim(Curdir() ) + "\"
.......

Y luego en cada función para imprimir algún listado con el Preview, al final antes del Return pongo:

DIRCHANGE(MiRuta)

Y todo a funcionar a la perfección O.K. Muchas gracias de nuevo, te deberían llamar "Gran Jeque Mustafa"

[mustafa]

Gracia por lo de "Gran Jeque Mustafa" je... je...
Es un placer ayudar con lo que se pueda
un abrazo Pepe
Mustafa

[Pepe Ruano]

No obstante, creo particularmente que es un Bug que hay en Print Preview en el momento de guardar los archivos y que se debería solucionar en próximas actualizaciones, para que este error no se produzca.
Simplemente es una sugerencia y opinión por si lo quieren subsanar los grandes Gurus de HMG.

English translator Google

However, I believe that it is a bug that is in Print Preview at the time of saving the files and that should be fixed in future updates, so that this error does not occur.
It is simply a suggestion and opinion in case they want to correct the great HMG Gurus.