Problemas con Foxypreviewer

[Juan Miguel Solis]

Buenas tarde a todos

Retomo este mail de nuevo porque hace unas semanas, pregunte y  a lo mejor no me explique correctamente, además ahora me sale otra cosa rara, os cuento a ver si ha alguien le ha pasado.

Yo utilizo Foxypreviewer desde hace bastante tiempo en podo simplificado osea en mi inicio pongo esto , y en la ruta que corresponde tengo el fichero Foxypreviewer_setting.dbf y por supuesto  el archivo FoxyPreviewer.app

 Bueno el problema es que ahora cuando se lanza un report a preview, aparece lo siguiente:

como se ve en la imagen en el centro aparece la pantalla de inicializando el informe con Foxypreview, pero de repente aparece esta pantalla , que pido abrir/buscar algo pero no se que esta buscando o esperando, esto no pasa siempre y me tiene medio loco, porque solo le pasa es este cliente y no lo entiendo la verdad y me esta volviendo loco porque no le pasa siempre,....

Y lo toro que me pasa es en el el fichero Foxypreviewer_setting.dbf  tengo lo siguiente

Tengo el boton lSaveAsHTML a F, pero como veis me sigue saliendo opcion de enviar a HTML.

Espero haberme explicado mejor esta vez y a ver si alguien tiene una idea que porqu eme puede ocurrir esto.

Gracias anticipadas y un Saludo desde Madrid - España

[HernanCano]

Juan:

Estuve probando diversos escenarios y no pude obtener ninguno de los dos impasses que mencionas.

Considero que el primero (aparece la ventana Abrir DBF) es por que debes tener el comando SET PATH en diversos procedimientos y en alguno se pierde la ubicación de FoxyPreviewer. Por éso aparece Abrir, indicando que no puede encontrar Foxypreviewer_setting.dbf.

cómo evitar

Y el segundo es consecuencia del primero: al no encontrar Foxypreviewer_setting.dbf, no puede saber el contenido de las diferentes vbles/parámetros; por éso queda en .t.  por defecto.

¿Has encontrado varios Foxypreviewer_setting.dbf por diferentes dir de tu aplicación?

----------------------------------------------------------------------

Veo repetitivamente que usan mucho la sustitución macro, si no es estrictamente necesaria; en el adjunto muestro lo que pusiste, pero evitando la macrosustitución.

Me gustaría saber por qué hacen usao ytanto de éso.

Además: si se usa SET PATH TO (recomendado, hasta yo lo hago), ¿para qué poner la ruta completa en "do FoxyPreviewer.app"?... si precisamente el SET PATH es para no necesitarlo....... 

----------------------------------------------------------------------

** 

local M.cFoxLaunch, M.cRutaFiles

cd JustPath(sys(16))

M.cRutaFiles = fullpath(addbs('.\FoxyPr'))

*!* set path to '&cRutaFiles' additive

set path to

set path to (cRutaFiles) additive

M.cFoxLaunch = M.cRutaFiles+'FoxyPreviewer.app'

wait window M.cRutaFiles+chr(13)+M.cFoxLaunch nowait noclear

*!* do '&cFoxLaunch'

*!* do (cFoxLaunch)

do FoxyPreviewer.app

_Screen.oFoxyPreviewer.cLanguage     = 'ESPAÑOL'

_Screen.oFoxyPreviewer.lShowSetup    = .f.

_Screen.oFoxyPreviewer.lExpandFields = .t.

_Screen.oFoxyPreviewer.nButtonSize   = 2

*!* _Screen.oFoxyPreviewer.lSaveAsHTML   = .f.

**

create cursor TABLA1 (DIAS c(20))

local F, A, M.lcListDias

M.lcListDias="Lunes,Martes,Miércoles,Jueves,Viernes,Sábado,Domingo"

for M.F=1 to 10

for M.A=1 to 7

append blank

replace DIAS with getwordnum( M.lcListDias, M.A , ",")

endfor

endfor

go top

**

report form INFORME1 preview

**

close databases all

**

[Francisco]

Yo tenía un problema similar y lo he solucionado añadiendo a todos mis informes en el init un select al alias de la consulta que se está visualizando.

[Zarlu]

Buenos días solis.juanmiguel !

Comentas:

"....en la ruta que corresponde tengo el fichero Foxypreviewer_setting.dbf y por supuesto  el archivo FoxyPreviewer.app"

Los archivos "FoxyPreviewer_Settings.dbf" y "libhpdf.dll" los crea FoxyPreview en el directorio de ejecución al ejecutarse. Por lo tanto no requiere que los "ubiques" en ningún lado.

Prueba renombrándolos y ejecutando de nuevo

Hice pruebas y si se oculta la opción "Guardar como HTML".

Los requerimientos para FoxyPreview son VFP9 y SP2. Así estás trabajando?

Respecto de la ventana que abre al parecer no está encontrando una tabla del informe. Te sugiero revisar el SET PATH

http://www.foxypreviewer.com/

Suerte

zarlu

Chetumal, Quintana Roo, México

[Juan Miguel Solis]

Hola Jorge

Si ya probé eso y a mi me funciona bien, nunca me ha dejado de funcionar pero a mi cliente le sigue pasando lo mismo :(

Mirare otra cosas que me han dicho gracias igualmente.

Un saludo

El dom, 23 may 2021 a las 20:57, jorgeg...@gmail.com (<jorgeg...@gmail.com>) escribió:

Esto no deberia de ser 

DO '&cFoxLaunch' 

deberia de ser asi

DO &cFoxLaunch

Sin las ' 

Pruebas y avisa como te fue

JorGalvan

Caracas-Venezuela

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/b2bd4e92-f57e-40c8-868b-e775ad7afee9n%40googlegroups.com.

[Juan Miguel Solis]

Hola Zarlu

Hice pruebas y si se oculta la opción "Guardar como HTML". , esto ya me funciona :) , en realidad queria quitar  queria quitar el MHTL, ya puse esta propiedad  lSaveAsMHT = .F. y funciona 

Los archivos "FoxyPreviewer_Settings.dbf" y "libhpdf.dll" los crea FoxyPreview en el directorio de ejecución al ejecutarse. Por lo tanto no requiere que los "ubiques" en ningún lado.  TODA la razón no hace falta copiarlos :) se crean solo donde esta el  FoxyPreviewer.app , OK tambien arreglado :)

Los requerimientos para FoxyPreview son VFP9 y SP2. Así estás trabajando?  Si, asi estoy trabajando com digo esto solo me pasa en un cliente :(

Cuando dices:  

Respecto de la ventana que abre al parecer no está encontrando una tabla del informe. Te sugiero revisar el SET PATH, a que te refieres con la tabla del informe ? al listado (.FRX) o al  "FoxyPreviewer_Settings.dbf"

Maña le pongo esto al cliente a ver que tal le va.

Gracias y un saludo.

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/5bad8061-1df1-4752-b75d-cafe6a4215c7n%40googlegroups.com.

[HernanCano]

** La sgte instrucción es la que determina cual es "la tabla del informe".

** En el caso de este ejemplo no es necesaria, pues con el "create curdor" se activa".... 

**  pero tú debieras probar con algo así.

** select TABLA1

go top &&in TABLA1

** Cuando ejecutas lo sgte (justo antes del REPORT FORM), ¿qué te aparece?

MessageBox("Este es el alias que se va a usar en el reporte: "+alias())

[Zarlu]

Buenas tardes solis.juanmiguel !

A tu plantamiento:

"...Respecto de la ventana que abre al parecer no está encontrando una tabla del informe. Te sugiero revisar el SET PATH, a que te refieres con la tabla del informe ?... "

Me refiero al path de las tablas que alimentan el informe.

Va de la mano con el comentario que te hace Hernán

zarlu

Chetumal, Quintana Roo, México

[FLEXSOLUCIONES]

Por esas cosas ya no uso foxypre 

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---

Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/f32479fe-df6a-4d55-8edf-e2815343ffe5n%40googlegroups.com.

[Edwin Duran]

saludos  flexsol...@gmail.com

puedes decirnos que usas

[flexsol...@gmail.com]

Utilizo el de fox con listener que en realidad es lo que usa Foxypreviewer

[Ivan Martinez]

Que es listener, nunca lo usé, para que sirve en la práctica.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/61737062-70e9-4cd5-bd46-6060b7643614n%40googlegroups.com.

[Víctor Hugo Espínola Domínguez]

https://vfpavanzado.wordpress.com/?s=listener

Saludos,

Víctor.

Lambaré - Paraguay.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CALeA14u64VsZ%2B-qx%2Bt6q%3DS3ZTyWMx39Gq5KvrUbQL7eW2U0WhA%40mail.gmail.com.

[HernanCano]

Pásanos el reporte y el DBF. Ya tenemos los comandos que usas.

Así vamos a encontrar tu impasse.

Bueno y nos mencionas algo sobre los directorios....... donde están los datos, el programa/app, el reporte, el FoxyPreviewer....

[Juan Miguel Solis]

Estoy de momento haciendo todo lo que me habéis comentado, os ire diciendo como va.

Gracias

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/e4163553-a95f-4a55-ae88-3d1665d38001n%40googlegroups.com.

[Juan Miguel Solis]

Hola a todos, he estado haciendo varias cosas que me propusisteis y sigo con el problema :( , este es mas claro, mirad, tengo un fichero que es un cursor en memoria fichero ALBAENTRE :

Y cuando voy a imprimirlo, me aparece esta pantalla 

y claro no funciona, pero en cuando eso no pasa siempre solo de vez en cuando, otras veces me pasa en otro sitio con un fichero real, ahí estoy intentando monitorizarlo tal y como me habéis aconsejado, estoy con Windows 1o y esto era un aplicación de VFP 6.5 pasada a VFP9 9.2 con el ultimo service pack, no se si tengo el ultimo FoxyPreview o este tendría algo que ver....

Si a alguien se le ocurre que puede estar pasando ....

Un saludo

[HernanCano]

Colega: 

No luce problema de FoxyPreviewer.

Pero se observa que el cursor ALBAENTRE está vacío (por los comandos que muestras). El "nuevo" impasse debe ser ése.

-----------------------------------

Sin embargo nos devuelves información sesgada: sin terminar de resolver el anterior impasse, nos dices que tienes otro.

El jueves, 17 de junio de 2021 a la(s) 15:31:44 UTC-5, solis.ju. escribió:

Hola a todos, he estado haciendo varias cosas que me propusisteis y sigo con el problema :( , este es mas claro, mirad, tengo un fichero que es un cursor en memoria fichero ALBAENTRE :

Y cuando voy a imprimirlo, me aparece esta pantalla 

[Juan Miguel Solis]

Hola Hernan

No, el problema es el mismo de siempre (seguramente no me explique bien),  este ejemplo es para que vierais que no solo  aleatoriamente pasa con ficheros que existen en un directorio especifico (por eso os mande esas instrucciones), para que veais que el fichero es un cursor en memoria, y en la otra imagen que mande, se ve que si hay datos en el fichero. Es al imprimir cuando a preview cuando  aparece el problema y no siempre con los errores de ficheros reales estoy poniendo controles tal y como me indicasteis en algunas de las soluciones.

Os ire diciendo si la cosa mejora o como va, gracias.

Un saludo

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/4b23d94c-e942-4d9c-af36-62e8e87766cbn%40googlegroups.com.

[Damian Lana]

Buenos días, si desactivas  FoxyPreview  el problema continua?

Atte Damian Lana

Mendoza Argentina

Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CA%2BBv44Xzicmo8MHjDbeYbVFgie8%2BzKzCN06SAWEgGJ7pTKTLbA%40mail.gmail.com.

[HernanCano]

Juan:

Debes mostrar los comandos exactos que tienes justo antes de ejecutar el reporte.

Se me hace que debes estar cambiando el área de trabajo dentro de alguno de los campos del reporte.

Si no puedes compartir el FRX/FRT, indícalo.

[Juan Miguel Solis]

Hola

Os envío lo que me comentabas, es este ejemplo que es para imprimir unas etiquetas, te envío el código que hay en estos momentos para poder conocer la ruta que tiene el fichero que tiene, etc ).

Case thisform.opcg.opc6.value = 1

cEtiquetas = "ETI_KYOCERA2500.LBX"
chdir(cRutaTemp)
cPathNew = FULLPATH(CURDIR())

select eti_clie
go top

INSERT INTO HISTOFOX (h_ruta, h_file, h_listado, h_date) VALUES ( cPathNew, ALIAS() , 'Etiquetas', DATETIME() )
label form ( cEtiquetas ) all TO PRINTER PROMPT PREVIEW 

Anteriormente el código era este:

Case thisform.opcg.opc6.value = 1

cEtiquetas = "ETI_KYOCERA2500.LBX"

select eti_clie
go top
label form ( cEtiquetas ) all TO PRINTER PROMPT PREVIEW 

Tambien os envio en este caso el .LBT y .LBX

En otros casos ocurre en algún listado, y lo raro es si se salen de la aplicación y vuelven a entrar lo que antes fallaba, ahora vuelve a funcionar sin problemas.

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/3bb66300-cee7-4936-a33c-8748045a30a5n%40googlegroups.com.

[Juan Miguel Solis]

Hola Otro ejemplo

En este caso es un listado normal y paso lso mismo, de vez en cuando, aparece esto como si no encontrara no se que fichero, pero como puede verse

en el codigo de mas abajo si me posicione en el fichero y controlo que tenga registros.

Codigo actual, lo del fichero LISTOFOX, es para guardarme en la situacion

select STCKTMP
If empty( dFecBusca ) && Como antes.......
dele from STCKTMP where UNIDADES = 0
set filter to UNIDADES <> 0 and !empty( NOM_REFER )
else
set filter to ENFECHA = 'S'
Endif
go TOP IN 'STCKTMP'

If !EOF('STCKTMP')
MessageBox( 'Graba registro LOG', 64, 'Aviso' )
ch_File = ALIAS()
INSERT INTO HISTOFOX (h_ruta, h_file, h_listado, h_date) VALUES ( cRutaTemp, ch_File , cListado, DATETIME() )

KEYBOARD '{CTRL+F10}' PLAIN CLEAR
report FORM ( cListado ) preview
Else

Endif

Antes de todo esto el código era solo así:

select STCKTMP
If empty( dFecBusca ) && Como antes.......
dele from STCKTMP where UNIDADES = 0
set filter to UNIDADES <> 0 and !empty( NOM_REFER )
else
set filter to ENFECHA = 'S'
Endif
go TOP IN 'STCKTMP'

If !EOF('STCKTMP')
    KEYBOARD '{CTRL+F10}' PLAIN CLEAR
    report FORM ( cListado ) preview
Else

Endif  

También te envío FRX/FRT.

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/3bb66300-cee7-4936-a33c-8748045a30a5n%40googlegroups.com.

[HernanCano]

En esta parte, el problema está en 

chdir(cRutaTemp)

lo que hace cambiar el directorio y --sin conocer nada más de tu escenario-- se te dice que "éso siempre te va atraer problemas: archivo no encontrado, archivo no abierto, faltan datos, campo no existe".

La recomendación es no usar CD (ni similares: CHDIR, SET DEFAULT TO).. Claro que la del inicio del programa sí: es la única recomendable.

¿Necesitas hacer el CHDIR()? 

Si la respuesta es sí, entonces necesitamos conversa sobre por qué.... Pero no por aquí..... (mejor en otro tema).. por aquí ya se te descubre mucho del problema.

[HernanCano]

Claro que si se salen de la ppa y vuelve ¿n a entrar se soluciona el problema: por que el comando erróneo es el CHDIR... y al volver a entrar al programa... ingresa en el dir correcto.....

Esto es derivado del mismo problema del anterior comentario.

El lunes, 21 de junio de 2021 a la(s) 04:07:28 UTC-5, solis.ju.. escribió:

....................

[HernanCano]

En este segundo mensaje :

Los comandos que agregaste no ayudan a resolver tu impasse, así que los paso por alto.

1. Si necesitas un DELETE cuando haces una consulta, entonces tienes un problema grave o de datos o de saber programación.

2. Si en una misma búsqueda necesitas SET FILTER TO para cuando se digita un campo y otro SET FILTER diferente para otro campo SIN INVOLUCRAR LOS VALORES DE LOS CAMPOS en la búsqueda, entonces tienes otro gravísimo problema de programación.

Ambas situaciones no se relacionan con los mensajes de error que muestras en las imágenes, pero es que muestras tan mal estilo de programación que no se aguanta uno comentar (de todas formas todos éso conduce a errores inexplicables como los que se te están presentando).

El lunes, 21 de junio de 2021 a la(s) 04:31:28 UTC-5, solis.ju...escribió:

Hola Otro ejemplo

En este caso es un listado normal y paso lso mismo, de vez en cuando, aparece esto como si no encontrara no se que fichero, pero como puede verse

en el codigo de mas abajo si me posicione en el fichero y controlo que tenga registros.

((imagen))

[HernanCano]

En el LABEL de la Kyocera no encontré nada particular.

---------- Mensaje reenviado ---------
De: solis.juanmiguel
Fecha: lunes, 21 de junio de 2021 a la(s) 04:07:28 UTC-5
Asunto: Re: [vfp] Re: Problemas con Foxypreviewer
Para: publicesvfoxpro

[HernanCano]

Con respecto al reporte LISSTOCK.FRX:

Cuando ejecuté la primera vez, me pidió algún archivo. Le dí Cancelar. Al ver que aparecía la imagen del zorro en una parte que pudiera ser el logo, consideré que sería algún archivo de imagen. Investigué, y encontré que usas un archivo en ese reporte:

..\imagenes\logo tm.jpg

el cual evidentemente yo no tengo y tú no pasaste.

Mi conclusión es que ese es el archivo que falta y que al ejecutar el reporte se te pide.

Lo cual me lleva a la conclusión que yo tenía desde el principio: 

Estás ejecutando CD (o SET DEFAULT o CHDIR) "dentro del programa"/"dentro de la applicación", y éso te conduce a los errores que se te están presentando: no encuentra archivos.

El lunes, 21 de junio de 2021 a la(s) 04:31:28 UTC-5, solis.ju. escribió:

Hola Otro ejemplo

También te envío FRX/FRT.

[HernanCano]

Cuando muestres una imagen de un mensaje de error, por favor no escribas algo en la zona de "Nombre de archivo", por que se tapa el Tipo y el tipo da una idea de qué tipo de archivo se está pidiendo.

[Juan Miguel Solis]

No lo necesito, lo hago para asegurarme que voy al directorio donde esta el fichero de echo como te mostraba, antes no lo tenia puesto...

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/fb10de1d-9f56-4061-b169-bc64854078ebn%40googlegroups.com.

[Juan Miguel Solis]

Lo quitare, es que usaba el CHDIR en otra parte del programa , pero luego volvía en un sitio pero luego volvía al directorio que estaba.

Ejemplo:

En el INIT:

PUBLIC cGridEntB , cGridEntF, cGridAlbB, loEspere, cPath
loEspere = ''
DO FORM espere.scx NAME loEspere NOSHOW

cPath = FULLPATH(CURDIR())  && Aqui me guardo el PAth en el que estoy en estos momentos.

En el Metodo BuscarEntradas:

lSeguirE = .F.
cFileSal= ''
cLeedirE = cRutaIJ
nLenDir = len(alltrim(cRutaIJ)) + 1
chdir(cLeeDirE)    && Aqui lo cambio para posicionarme y leer los tipos de archivo que busco en ese directorio y poder ver solo esos, a lo mejor hay otra manera de hacerlo sin tener que hacer CHDIR 

mFileSSS=''
mFileSSS=GETFILE('DBF', 'Buscar Archivo:', 'Abrir',0, 'Mostrar Archivos DBF (SOCOBALEAR, S.L.')

&& lo anterior lo hago  para leer en el direcotio y usar el GETFILE.

If Empty(mFileSSS)
 Messageb('No seleccionó ningun archivo.', 64, 'Aviso')
 lSeguirE = .F.
 else
  If upper( substr(mFileSSS,nLenDir,8) ) <> 'SCBALEAR'
  Messageb('El archivo seleccionado no es de ALBARANES (tiene que empezar por "SCBALEAR").', 48, 'ERROR')
  lSeguirE = .F.
  else
  cFileSal= substr(mFileSSS,nLenDir,8)
lSeguirE = .T.
 Endif
Endif

En el Unload:

loEspere.Release
loEspere = Null
close databases

erase (cCdxT)
chdir(cPath)
RELEASE cPath, cCdxT

----------------------------------------------

Un saludo, ya te digo que esta aplicación venia de VFP 6.5 y la pase tal cua a VPP 9.2 y le añadi el FoxiPreview...

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/4c615cd1-9694-4ea6-895f-9278a1c1c1c8n%40googlegroups.com.

[Juan Miguel Solis]

Estoy de acuerdo que el estilo es muy, muy antiguo y no es bueno, pero esa aplicación lleva muchísimo años funcionando, y claro que podría cambiarla con lo que se ahora y evitarme los set filter to, 

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/92094a94-cac2-455d-bc21-01fecb6abd49n%40googlegroups.com.

[Juan Miguel Solis]

Si, en el fichero de etiquetas, está normal coge lso campos del fichero ETI_CLIE.

Un saludo

[Juan Miguel Solis]

Si, eso tambien me habéis comentado, pero lo que pide efectivamente en un logo, vere como puedo sustituir los CHDIR que tengo para quitarlos, solo lo engo puesto en 3 opcioens del program que es para cargar ficheros externos.....

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/64e7388e-c957-4bfe-8665-afd2dcf26d35n%40googlegroups.com.

[Juan Miguel Solis]

En la zona de archivo, en nombre esta siempre en blanco, ahora esta asi porque el usuario habrá tecleado sin querer, lo raro es que ejecutó el programa en mi sistema y funciona siempre bien, nunca me da ese error incluso después de ejecutar las opciones que tiene CHDIR, eso es lo que mas me tiene loco...

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/51082d38-8e4b-467e-83d0-cc55953d91e6n%40googlegroups.com.

[HernanCano]

Te recomiendo que contestes cuando hayas resuelto la inquietud.

Si la imagen no es "tuya" sino del "usuario final" (tu cliente donde se ejecuta la aplicación), entonces no la incluyas, o pide que haga lo que te he indicado. Así aclaramos si lo que se pide es una imagen u otro archivo cualq.

Te recomiendo que contestes cuando hayas resuelto la inquietud.

[Juan Miguel Solis]

Hola

Ya le dije que no tocara la pantalla cuando le saliera el error, y así lo ha hecho, como ves en la parte del "Nombre", no aparece nada.

De todas manera vere como quitar los CHDIR que tengo en algunas opciones de la aplicación, como te digo es muy antigua y muy grande :) :), de todas maneras muchas gracia spor el tiempo que estas pasando intentando ver cual es el problema y efectivamente si cuando da el error, sale de la aplicación y vuelve a entrar todo funciona perfectamente, o sea algo en la aplicación le está haciendo que funcione mal, el tema es saber que, empezaré por los CHDIR :)

Gracias otra vez y si se te ocurre algo, por favor me comentas.

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/e9e49fa3-987e-4166-9902-3116ae99aae7n%40googlegroups.com.

[HernanCano]

Listo.

Se observa que lo que necesita es un DBF.

¿En cuál reporte sale ese Abrir?

[Juan Miguel Solis]

Hola Hernan

Siguiendo tus consejos, quite de la aplicación todos los CHDIR (ya no hay ninguno), cambien también otras cosas que comentabas en mails anteriores, pero sigue pasando el problema, te cuento con todo lo que he visto.

Este como sabes es el error que aparece (como te comento no siempres y si cuando pasa el error, sales de la aplicación y vuelves a entrar, vuelve a funcionar bien durante x tiempo, otras veces funciona bien y de repente pasa esto ).

Bueno esta vez te envio mas datos y espero que mejor estructurada para ver si podemos ver el problema o me puedes decir que control poner o que información guardar para poder detectar el error.

Las instrucciones que se ejecutan para lanzar el informe son:

*** Formulario ELIGE_ETI  (boton_aceptar)

Case thisform.opcg.opc6.value = 1
cEtiquetas = "ETI_KYOCERA2500.LBX"

select eti_clie
go top

label form ( cEtiquetas ) all TO PRINTER PROMPT PREVIEW 

Este formulario ELIGE_ETI se lanza desde el formulario ENTREFECHASCS (Boton_Etiquetas) y lo que hace es sencillo como ves..

nImp = messagebox( "Ponga etiquetas de  " + upper( alltrim( thisform.caja_texto_nom.value ) ) + "  en la impresora." , 65 , "Aviso" )
If nImp = 1
nMCLI_aux = thisform.caja_texto_cod_cli.value
set safety OFF
select eti_clie
zap
set safety ON

select impalbxx
set filter to imprimir_l = "S"
go top
Do While !Eof()

If IMPALBXX.BULTOS_L > 0
nBultos = IMPALBXX.BULTOS_L
else
nBultos = 1
Endif
For nEti = 1 to nBultos
INSERT INTO ETI_CLIE ( NOMSOC_E, DIVISION_E, MACROCLI_E, SOCIEDAD_E, ;
TIPODOC_E, ANNOALB_E, ALBARAN_E, NOMBRE_E, NOMBRE2_E,    ;
DIRECCIO_E, DIRECC01_E, DIRECC02_E, NCLL_E, POBLACIO_E,  ;
CPOSTAL_E, PROVINCI_E, BULACT_E, BULTOS_E, KILOS_E ) ;
      VALUES ( IMPALBXX.NOMSOC_L, IMPALBXX.DIVISION_L, IMPALBXX.MACROCLI_L, ;
      IMPALBXX.SOCIEDAD_L, IMPALBXX.TIPODOC_L, IMPALBXX.ANNOALB_L, ;
      IMPALBXX.ALBARAN_L, IMPALBXX.NOMBRE_L, IMPALBXX.NOMBRE2_L,   ;
      IMPALBXX.DIRECCIO_L, IMPALBXX.DIRECC01_L, IMPALBXX.DIRECC02_L, ;
      IMPALBXX.NCLL_L, IMPALBXX.POBLACIO_L, IMPALBXX.CPOSTAL_L,    ;
      IMPALBXX.PROVINCI_L, nEti, IMPALBXX.BULTOS_L, IMPALBXX.KILOS_L )
EndFor

skip
Enddo
set filter to
go top

DO FORM ELIGE_ETI.SCX to cDevuelto
lSaltarAct = .T.

Endif

El fichero eti_clie, existe y está en el directorio  C:\TEMP y como puedes ver tiene los datos seleccionados y son los correctos.

En el formulario ENTREFECHASSC  (en el método LOAD), se define el fichero ETI_CLIE, si no existiera lo crearía en el directorio al que apunta la variable cRutaTemp, que es C:\TEMP

* Comprobamos la existencia del fichero auxiliar  ETI_CLIE.DBF si no existe se creará
cFileEti = cRutaTemp + 'ETI_CLIE.DBF'
If !File("&cFileEti")
create table &cFileEti FREE ;
( NOMSOC_E C (25), ;
 DIVISION_E C (4), ;
 MACROCLI_E N (4,0), ;
 SOCIEDAD_E N (3,0), ;
 TIPODOC_E  C (1), ;
 ANNOALB_E  N (4,0), ;
 ALBARAN_E  C (12), ;
 NOMBRE_E   C (30), ;
 NOMBRE2_E  C (30), ;
 DIRECCIO_E C (40), ;
 DIRECC01_E C (20), ;
 DIRECC02_E C (20), ;
 NCLL_E     C (4), ;
 POBLACIO_E C (35), ;
 CPOSTAL_E  N (5,0), ;
 PROVINCI_E C (35), ;
 BULACT_E   N (6,0), ;
 BULTOS_E   N (6,0), ;
 KILOS_E    N (8,0) )
 
 close databases all
Endif

Si utilizo esto mismo sin el FoxyPreview, funciona perfectamente, esto es lo que me tiene loco del todo y no se que mas hacer y mi cliente esta empezando a ponerse algo nerviosos :), bueno tiene la aplicación antigua que le funciona bien, pero esta esta toda pasada a VFP 9 SP2 y como va mucho mas rapida que la antigua de momento lo soporta :) :) además de que le puse opciones nuevas ... bueno ya sabes como es esto, que control podría poner o grabar un log de tal manera que pueda ver porque no funciona y se queda ahí ??

Que rastreo prodira ponerle en el programa para saber que pasa, se te ocurre algo ?

Muchísimas gracias por el tiempo que te estás tomando para intentar ver cual es el problema de ver.

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/2297ecd6-edbf-4b50-a35f-15a7547c374dn%40googlegroups.com.

[Víctor Hugo Espínola Domínguez]

Antes del SKIP debe volver a seleccionar la tabla del ciclo

select impalbxx

Saludos,

Víctor.

Lambaré - Paraguay.

Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CA%2BBv44XUhoCZ4yvbzaVGCN4BramGe3KKzAf1rY-k%2B2YBz5jqxg%40mail.gmail.com.

[HernanCano]

>>> Si utilizo ésto mismo sin el FoxyPreviewer, funciona perfectamente...

Es lo único que es suficiente para saber.

>>> ¿Qué rastreo podría ponerle en el programa para saber qué pasa? ¿se te ocurre algo?

Claro que sí se me ocurre !!!

Justo antes del REPORT FORM (en la línea anterior a éste REPORET FORM) ejecuta

MessageBox("Estamos en "+chr(13)+curdir())

MessageBox("El path es "+chr(13)+set('path'))

MessageBox("El alias es "+chr(13)+alias())

1. Nos muestras imágenes de cada MessageBox.

2. Como dices que sólo falla con FoxyPreviewer, entonces nos envías los *.DBF de FoxyPreviewer ( FoxyPreviewer_Settings.dbf, FoxyPreviewer_Emails.dbf, OutputConfig.DBF.dbf ) 

3. El FRX/.FRT que falla; si son varios, empecemos con uno (el más simple... aunque con toda la info que estás proporcionando, tal vez tengas pocos elementos mentales para decidir la simpleza de cada uno... pero procedamos con alguno).

Por ahora.....

[HernanCano]

Sí, señor...

Tiene sentido.....

[Juan Miguel Solis]

Hola, el skip en en la tabla impalbxx y nunca me muevo de ahí, por eso no hace falta moverme a esa tabla, ya que para grabar en la tabla eti_clie lo hago léguenle insert unto. Eso lo hace perfectamente.

Un saludo

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CABoLD3GMtcqHV296NBozhrXtZ%2BJVRvJnX_as-eEXVEiYMG9Sow%40mail.gmail.com.

[HernanCano]

Listo, colega. Lo importante es que te queda claro (las instrucciones que estás ejecutando, y como las estás ejecutando, funcionan adecuadamente en tu escenario).

El sábado, 26 de junio de 2021 a la(s) 02:42:49 UTC-5, solis.ju... escribió:

Hola, el skip en en la tabla impalbxx y nunca me muevo de ahí, por eso no hace falta moverme a esa tabla, ya que para grabar en la tabla eti_clie lo hago léguenle insert unto. Eso lo hace perfectamente.

Un saludo

[Juan Miguel Solis]

Hola Hernan

Te envio la informacion que me pides, te cuento:

Este es el error que ya conoces,

Para mostrar los mensajes que me pedias, primero lanzarlo interactivo para ver si salida bien, luego para el cliente que es en donde me falla, lo que hice fue crearme una tabla y grabar en ella justo antes de imprimir:

Case thisform.opcg.opc6.value = 1
cEtiquetas = "ETI_KYOCERA2500.LBX"
select eti_clie
go top

* MessageBox("Estamos en "+chr(13)+curdir())
* MessageBox("El path es "+chr(13)+set('path'))
* MessageBox("El alias es "+chr(13)+alias())
cAlias = alias()

INSERT INTO HISTOLOG (h_estamos, h_path, h_file, h_rutatemp, h_date ) VALUES ( curdir(), set('path'), cAlias, cRutaTemp, DATETIME() )

select eti_clie

label form ( cEtiquetas ) all TO PRINTER PROMPT PREVIEW 

Este es el resultado, como podrás ver ejecutó muchas veces la opción de menú y solo en la última le fallo, pero los datos son iguales :( , te añadi el valor de la variable publica cRutaTemp que es en donde se abre el fichero ETI_CLIE.DBF  y tambien comprobe que en el fichero ETI_CLIE,DBF del directorio c:\TEMP\ estaban los datos correctos para imprimir.

mm

Te adjunto el dbf del FoxyPreview solo utilizo este, la version del FoxyPreview.app que uso es la del 12/09/2013  23:16, a lo mejor es muy antigua ?

En fin con todo esto, a ver si puedes ver algo.

Por cierto para poner una nueva versión de FoxyPreview, solo tengo que mover el FoxyPreview.app mas nuevo (que no se cual es) ?

Un saludo y gracias por el tiempo que esta invirtiendo en este tema.

Otro Saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/56d4a2dd-47f4-4f6e-ac14-a53098c0942cn%40googlegroups.com.

[HernanCano]

>>>... la version del FoxyPreview.app que uso es la del 12/09/2013  23:16, a lo mejor es muy antigua?

Probablemente, pero si en otros computadores funciona con normalidad (cierto?), entonces no debe ser por ahí.

>>> Por cierto para poner una nueva versión de FoxyPreview, solo tengo que mover el FoxyPreview.app mas nuevo

Sí.....

>>>... mas nuevo (que no se cual es)?

¿Cómo así? Vé a la página y verás varias. Alguna dice estable; otras dicen para pruebas.... ¿No sabes qué es éso? Entonces dale con la "última".....

------------------------------

1. En al gún momento te pedí que incluyeras lasg sgtes instrucciones "antes de" lanzar el reporte:

MessageBox("Estamos en "+chr(13)+curdir())

MessageBox("El path es "+chr(13)+set('path'))

MessageBox("El alias es "+chr(13)+alias())

Pero veo que las tienes comentadas (en la último que reportas), pero no están justo antes de lanzar el reporte.

2. Veo que en la primera ejecución el CURDIR() es el escritorio del computador; pero en las demás en 'GEA\TABLAS\'. ¿Por qué la primera ejecución es en el escritorio? ¿Acaso tienes algún SET DEFAULT TO o CD dentro del programa?

3. Se observa que el error se presenta inicilizando el reporte (.FRX/.FRT). Te recomiendo que hagas pruebas sin activar FoxyPreviewer.

4. Probablemente debes ampliar los datos que el comando para "depuración" de errores estás usando, o sea incluir más datos.... pero no sé a qué más recurrir.

Sabiendo que tienes la manía de usar CD y/o SET DEFAULT aleatoriamete por el programa, ya estoy prevenido sobre tus malas práctica de programación, es decir por cualq parte puede fallar.... o malo es que sin saber más.... ésto indica que no se puede depurar mejor.....

5. Después que se presenta el error mostardo en la imagen 1 (donde observamos que pide un DBF), se debe dar Cancelar y permitir que el depurador de VFP se active y mirar en qué línea se produce el error (ES NECESARIO EJECUTAR " ON ERROR "sin más antes de ejecutar el reporte) o mirar qué otra info da VFP sobre el error.

Para ésto debes ejecutar vos mismo en el computador del cliente (dices que es allá es donde se presenta el error) vía acceso remoto, por que lo que tenés que hacer es una investigación, no hacer un script para algo y decirle al cliente "y cuando se presente el error me manda la foto".

6. Los comandos para "depuración" de errores que estás usando (el INSERT) debieras usarlos realmente para cuando se produce el error, no antes de producirse.

Es decir sólo a manera de prueba, coloca el sgte ON ERROR justo antes (¿sabes qué quiere decir "justo antes"?) del LABEL FORM.

on error insert into HISTOLOG (h_estamos, h_path, h_file, h_rutatemp, h_date ) VALUES ( curdir(), set('path'), cAlias, cRutaTemp, DATETIME() )

Y EJECUTAR REPETITIVAMENTE el botón/comando/las instrucciones donde está lo que estamos auditando.

O intentar otra metodología antes de ésto.

------------------------

[Juan Miguel Solis]

Hola  Hernan, bueno he puesto lo siguiente:

cEtiquetas = "ETI_KYOCERA2500.LBX"
select eti_clie
go top

ON ERROR DO errHandler WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ), ALIAS(), set('path'), cRutaTemp

label form ( cEtiquetas ) all TO PRINTER PROMPT PREVIEW 

y el errHandler .prg tiene lo siguiente:

************************************************************************
*   Enseña el error.
************************************************************************

PROCEDURE errHandler
   PARAMETER merror, mess, mess1, mprog, mlineno, cAlias, cPath, cRutaT
   CLEAR
   ? 'Error number: ' + LTRIM(STR(merror))
   ? 'Error message: ' + mess + '  |  ' + cAlias
   ? 'Set Path To: ' + cPath
   ? 'Variable cRutaTemp : ' + cRutaT
   ? 'Line of code with error: ' + mess1
   ? 'Line number of error: ' + LTRIM(STR(mlineno))
   ? 'Program with error: ' + mprog
ENDPROC

Ahora ya no saca la pantalla de pedir la DBF, pero me salen cosas como estas :

O sea, no me sa error en el formulario ETI_CLIE que donde se lanza las etiquetas, y el error me parece al volver al formulario ENTREFECHASSC en el método LOAD, dandome un error rarisimo que antes nunca me ha dado, pondre como me dijiste lo del insert into y quitaré lo de que me salga el mensaje a ver que graba en el fichero HISTOLOG.

Un saludo

P.D.  Ya no existe en ningun aparte del program el usar el CHDIR, lo cambie y ya no lo utilizo en ningún sitio :) :)

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/a54d7905-e896-46d9-a59e-5c82fa9cdf1fn%40googlegroups.com.

[HernanCano]

>>>  Ya no existe en ninguna aparte del programa el usar el CHDIR, lo cambie y ya no lo utilizo en ningún sitio

Sólo debe estar al inicio de la aplicación (tomar como referencia las buenas prácticas que nos da Fernando Bozzo), y que el SET PATH haga referencia a los dir donde están los programas, formularios, reportes, datos, etc.

>>> ...y quitaré lo de que me salga el mensaje a ver que graba en el fichero HISTOLOG....

Tal vez yo te recomendé que suprimieras el ON ERROR para ver dónde se produce el error: así depuras mejor. Pero evidentemente éso sólo en el renglón antes de ejecutar el reporte..... sólo para probar.....

Lo que yo te pida al respecto (de HistoLog) es sólo por que tú lo estás usando, pero no porque sea algo que podamos usar.... al menos por ahora.... Es mejor quitando toda esa depuración.... y desactivando cualq ON ERROR, de manera que se vea dónde es el error (en el renglón del PRG preciso, o en el método del FRX preciso). Eso ayuda más.

[Zarlu]

Buenas tardes solis.juanmiguel !

Me llama la atención de tu configuración de SET PATH ...

"..FORMULARIOS, IMAGENES, LISTADOS, PRG...."

????

Debo asumir que son variables/campos que contienen las rutas de algo. Estará funcionando así como lo tienes?

Podrías mostrar las líneas 45 y 286 que señala el ONERROR?

Suerte

zarlu

Chetumal, Quintana Roo, México

[HernanCano]

Zarlu:

Esa es la forma correcta de usar el SET PATH.

Son nombres de directorios en los que uno pone cada tipo de archivo.

Te confirmo: no son variables/campos que contengan rutas. Y sí funcionan así como están.

Te recomiendo pasarle una leída a las recomendaciones de Fernando Bozzo sobre buenas prácticas:

Crear un proyecto FoxPro ¿por dónde comenzar?

https://fdbozzo.blogspot.com/2014/01/crear-un-proyecto-foxpro-por-donde.html

VFP: Guía de Buenas Prácticas de Programación y recomendaciones

https://fdbozzo.blogspot.com/2014/09/vfp-guia-de-buenas-practicas-de.html

Reglas mínimas y buenas prácticas de programación
https://fdbozzo.blogspot.com/2014/08/reglas-minimas-y-buenas-practicas-de.html

Yo sólo le cambiaría (al proy ¿por dónde empezar?) el orden del CD y el SET PATH: yo colocaría primero el CD y luego el SET PATH. Recordemos que CD es lo mismo que SET DEFAULT TO.

[Juan Miguel Solis]

Ok, lo modificaré y pondré solo el ON ERROR

Un saludo 

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/97e2a80f-02e0-4c4b-ab82-e538265ec1een%40googlegroups.com.

[Juan Miguel Solis]

Hola

Ahora he dejado solo esto :

  ON ERROR

label form ( cEtiquetas ) all TO PRINTER PROMPT PREVIEW

Y  a ver que pasa, hoy estare todo la mañana conectado con el para ver que sucede.

Un saludo 

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/97e2a80f-02e0-4c4b-ab82-e538265ec1een%40googlegroups.com.

[Juan Miguel Solis]

Hola Hernan

Ahora como te dije le puse solo en ON ERROR, tal y como te puse arriba, estuvo un rato sin dar problema, pero a ir hacer la etiqueta, salio el error de siempre.

Pero no da ningún error  :(:(, le di cancelar y se fue hasta el formulario que llamó a este y el programa siguió  :(

Ya estoy algo desesperado, no se que hacer.

Un saludo

[HernanCano]

Ya dijiste dónde sale el error:

>>> ...  y el error me parece al volver al formulario ENTREFECHASSC en el método LOAD...

Entonces entiendo que no es problema del reporte (LABEL FORM), y por lo tanto tampoco del FoxyPreviewer, sino de algo del programa y que se refleja en el form ENTREFECHASSC.

Adjunta ese formulario para ver cómo lo depuramos.

[Juan Miguel Solis]

Hola 

Ya creo que encontre el formulario por el que al usarlo, luego falla el FoxyPreviewer y solo cuando sales de la aplicación y vuelve a entrar vuelve a funcionar todo hasta que usas esta opción otra vez, lo que no se es por que :(

el SC9, es el SCT que le cambie la extension porque gmail, no me dejaba enviarlo como SCT, esta opción es super antigua a lo mejor está realizada hace 20 años en VFP 5 puede ser y luego pasada a VFP6 y ahora está en VFP 9 :):)

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/98fa449b-f4e5-4cf8-b90a-84c36b66640cn%40googlegroups.com.

[HernanCano]

Tiene dependencia de la clase ..\..\librerias\gama.vcx .

No puedo abrirlo.

Pero al examinarlo, encuentro las sgtes cosas....

1. El método Load del Dataenvironment contiene lo sgte:

** Dataenvironment

PROCEDURE Load

Public nElegido, cAlbaDbf, nSuc, nZona, nArea

If Type( "cRutaFiles" ) = "U"

Public cRutaFiles

cRutaFiles = "C:\TABLAS\"

Endif

If Type( "cRutaComun" ) = "U"

Public cRutaComun

cRutaComun = cRutaFiles

Endif

If Type( "nCodigoCentro" ) = "U"

Public nCodigoCentro

nCodigoCentro = 999

Endif

If Empty( cRutaComun )

cRutaComun = cRutaFiles

Endif

close databases

cFile = cRutaComun + "CLIENTES.DBF"

use (cFile) in 0 order 2 shared

set filter to MCLI <> 1        && L'Oreal no puede salir si son albaranes.

cFile = cRutaComun + "SOCIEDAD.DBF"

use (cFile) in 0 order 1 shared

cFile = cRutaComun + "SUCURSAL.DBF"

use (cFile) in 0 order 1 shared

cFile = cRutaFiles + "ALBARAN.DBF"

use (cFile) in 0 order 1 shared

cFile = cRutaFiles + "ALBA_EXP.DBF"

use (cFile) in 0 order 1 shared

cFile = cRutaFiles + "ALBA_RET.DBF"

use (cFile) in 0 order 1 shared

cFile = cRutaComun + "CALLES.DBF"

use (cFile) in 0 order 1 shared

cFile = cRutaComun + "CALLEZON.DBF"

use (cFile) in 0 order 1 shared

cFile = cRutaComun + "ZONAS.DBF"

use (cFile) in 0 order 1 shared

cFile = cRutaFiles + "NUMRECOG.DBF"

use (cFile) in 0 order 0 shared

cFile = cRutaComun + "PROVINCI.DBF"

use (cFile) in 0 order 0 shared

ENDPROC

**

1. Recuerda mi/nuestra recomendación de no usar variables públicas. Para direccionar los DBFs, puedes hacerlo desde el main.prg (o como llames el primer .prg que ejecutes) de la sgte forma:

SET PATH TO C:\TABLAS\ additive

2. ¿Será que el programa/formulario que está dizque fallando (o mejor dicho desde en que te sales y luego ejecutas éste que pide un DBF), cambia alguna de la vbles cRutaComun, cRutaFiles y/o alguna otra?

3. Me parece que si le dieras cancelar a cuando pide el DBF, te va a parecer algo que indica cuál es el DBF que necesita, y/o cuál es la línea donde se rpesenta el error. ¿Por qué será que no puedes hacer éso?

[Juan Miguel Solis]

Hola Zarlu

Este es el formulario maldito, el que termina en SC9, en realidad es SCT, lo tuve que cambiar porque sino el gmail no me dejaba enviarlso pro problemas de seguridad.

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/f07d8f16-22bf-4717-be8f-a83179950bban%40googlegroups.com.

[HernanCano]

¿Zarlu dijo que no lo pudo abrir?

[Juan Miguel Solis]

Hola Hernan

2.-  Ya mire y las variables cRutaFile, cRutaTemp y cRutaComun, nunca se cambian, se cogen desde el inicio desde un fichero .INI y no se cambia nunca desde la aplicación.

3 .- Cuando está pidiendo la DBF y le doy cancelar, sencillamente se cancela y no parece nada  :(

Esta comprobado, que haga lo que haga en la aplicación, mientras no use ese formulario todo va bien, pero en cuento lo uso, ya el FoxyPreview deja de funcionar bien y si salgo de la aplicación y vuelvo a entrar otra vez todo perfecto.

Te envio el la gama.vcx y gama.vct , pero creo que no tienen nada especial.

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/f842771e-063a-44d3-b600-376696c5a818n%40googlegroups.com.

[Juan Miguel Solis]

Hola Hernan

Zarlu, estuvo conmigo ayer como 5 horas o mas conectado via anydesk y haciendo multitud de pruebas y se quedo totalmente asombrado del tema este, es rarisimo, al final optare por hacer esa opción totalmente nueva, salvo que a alguien se le ocurra porque puede ser esto y seguire checando a ver si alguna opción mas de la aplicación hace que aparezca este tema...

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9cafae4e-63d1-4fd4-ad21-3b59218e506fn%40googlegroups.com.

[HernanCano]

Dijiste que ya sabes que el problema es al "regresar" a un form luego de ejecutar el reporte.

Entonces hay que verificar los datos que hay "en el momento" de ejecutar ese segundo form.

Cuando gustes, probamos AnyDesk.

[Juan Miguel Solis]

Ok, por mi no hay problema, dime de donde te conectarías, más que nada para tener en cuenta la diferencia horaria.

Un saludo 

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/3e89b16e-ffe4-493f-82be-c13bbec3b393n%40googlegroups.com.

[Juan Miguel Solis]

Hola Hernan

Aqui te envio el formulario alb_manual.scx y el  alb_manual.sct (renombrado en  alb_manual.sc9), porque sino gmail no me dejaba enviarlo, en este formulario, lo quite un montón de código y controles pero sigue pasando lo mismo, hoy por ejemplo ha estado toda la mañan con la aplicación y como no puede usar esta opción (porque se la quite), todo funciona sin problemas, pero en cuento  (en mis pruebas), uso esa maldita opción de crear un albarán, zass después el FoxyPrevies, pide siempre a tabla :( :(

Ya no se que hacer si quee entrar via anydesk y verlo tú mismo, por mi no hay problema, encantado.

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/3e89b16e-ffe4-493f-82be-c13bbec3b393n%40googlegroups.com.

[Juan Miguel Solis]

Hola a TODOS

Muchas gracias por la ayuda recibida, el problema parce solucionado, quesera hacer un par de menciones especiales a Hernan Cano, que estuvo desde el principio dándome ideas que lo que podía pasar para mejorar mi código y intentar localizar el problema y muy especialmente a ZARLU que gracias a su depuración, incluso conectándose a mi ordenador via AnyDesk (varias horas), consiguió decirme cual era el problema y la solución y que después de implementarla parece que todo vuelve a funcionar correctamente.

AL final me sugirió que pusiera después de la llamada a una función muy antigua que tenia, añadiera la linea SET COMPATIBLE OFF (que todavía no se muy bien que es lo que hace), pero parece que funciona.

Lo dicho muchas gracias a todos por la ayuda y especiales agradecimientos Hernan Cano y sobretodo a ZARLU, muchas gracias e verdad sois geniales y habéis conseguido que no me vuelva loco con este tema, que ya me costo encontrar la opción del menú en donde daba el problema, pero a partir de ahí, no sabia como atacarlo.

MUCHAS GRACIAS y por supuesto si pasáis en algún momento por Madrid - España, nos veremos y tomaremos algunas cerveza o lo que sea :) :)

[Cesar Ch]

Hola,

Por favor, intente sin foxypreviewer:

SET REPORTBEHAVIOR 80

Y cuentame se funciona

Saludos,

Cesar

__________________________________________________________________

Por favor, no envíen emails o mensajes privados en los foros solicitando por soporte.

Como obtener soporte para FoxyPreviewer

Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CA%2BBv44WyN0R%2BUMZUo_EPsq546-3s6r%2Bn%2BJQCufJJoO_cRE7C_A%40mail.gmail.com.

[Juan Miguel Solis]

Sin usar FoxyPreview, funciona sin problemas los reportes.

El problem venia de una función muy antigua mas de 20 años, que dentro habia un SET COMPATIBLE ON, y al salir se quedaba así, cuando al principio ponia SET COMPATIBLE OFF, al final al salir de la funcion,  dejo el SET COMPATIBLE como estaba y ahora todo va bien.

Un saludo

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFp9oeYKcTDTKKv0vFFJ3qpsfh-ZmuHpYGqY0oSM6HvJ%2BgbFQQ%40mail.gmail.com.

[Cesar Ch]

Compreendo,

Me recuerdo, hace unos 10 años, tuve un problema como este:

https://www.foxite.com/archives/set-udfparms-in-prg-vcx-re-295962-0000296016.htm

SET COMPATIBLE "ON" hace con que todo se quede incompatible....

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CA%2BBv44WtNhF%3DV%2Bv7aZsrOoD29eyTcOODJFZ4DFrJ8zMi8o6G%3DA%40mail.gmail.com.

[HernanCano]

Ah !!!

Lo encontraste!! Gracias a Dios.

El hecho que una función (definida por el usuario, --UDF nos dijeron que se llamaban--) (cualquiera) tenga que cambiar un SET (cualquier SET), es algo "peligroso", como lo acabas de descubrir.

Si una función "necesita" cambiar un SET (cualquier SET), debe volver a re-ubicarlo justo antes de retornar.

Eso es lo que quería darte a entender con todos mis respuestas en este hilo: es mejor no hacer SET PATH por toda la aplicación (por que ya no se encontrarían los PRGs, FRXs, etc..etc... ), tampoco SET DEFAULT (por lo mismo....),  SET FULLPATH, SET DELETED,  SET ENGINEBEHAVIOR, SET REPORTBEHAVIOR, SET VARCHARMAPPING, SET TALK, SET ECHO, SET DATE, SET CENTURY, SET EXCLUSIVE, SET EXACT, SET ANSI, SET ESCAPE, SET SAFETY, etc...etc...etc...

Bueno.... Se descubrió.... luego de 20 años.... ¿será que la historia nos perdona de todas formas?

[Juan Miguel Solis]

Si, al final todo vuelve a funcionar, que maravilla :)

Un saludo

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hbcJgD9Tzbs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/03dce69c-db5c-49d9-8f09-67df4db1a762n%40googlegroups.com.

[Carlos Mario Rivera Ayala]

Saludos, hace tres días, se me presento este mismo error y me iba a enloquecer, si no miro estos chat, me muero jjj, lo peor es que tengo esto mismo en otra aplicación y funciona a la perfección. cuando quitaba  el Foxypreviewer, todo funcionaba y apenas lo colocaba salía el mismo erro de solis.