FiveTech Software tech support forums

resulta que el programa a la hora de genrar un reporte este lo hace bien, pero cuando cierro la ventana del reporte, este me cierra todo el programa, ya estuve buscando y nada, el reporte lo tome de otro del mismo sistema y unicamente cambie la informacion que imprime, la unica diferencia es que en uno lo mando llamara desde una toolbar y el que me cierra el sistema lo mando llamar desde la vtaskbar, alguna idea por donde buscarle?
salu2
paco

Paco,

el reporte lo lanzas desde un boton de un dialogo ?

usas el metodo transparent en el dialogo ?

usas tsay dentro del dialogo ?


a mi me paso este problema, tuve que debugear linea a linea

para dar con el error,

y resulta que cuando uso el metodo TRANSPARENT y say,

es cuando sale el error

intenta quitarle el metodo transparent al dialogo

y los says hay que agregar la Data,

oSay:lTransParent := .t.


las propiedades TRANSPARENT le duele a la tprinter,,


Saludos,,,

Increible!
Mientras probaba ésto que dices, me decía "a ver si va a ser cierto", después de la cantidad de pruebas que he hecho, y nada, me ocurría lo mismo, se cerraba el programa.
Y no sólo me ocurría a mi, mira éste último post:
http://fivetechsoft.com/forums/viewtopic.php?t=6687&highlight=

Sera posible, !pues es cierto!, y la cantidad de horas y comidas de coco que he echado al tema.

Muchas gracias amigo!

Saludos

Jose Luis

Francisco,

Si no lo llamas desde la vtaskbar no cierra el programa ?

Por favor comprueba si en disco se genera un fichero error.log

Jose Luis,

efectivamente es un dolor de cabeza,

pero no necesitas un gran codigo para darte cuenta

del problema,,

simplemente crea un dialogo desde resource,

ponle un say y un boton

agregale el metodo TRANSPARENT al momento de programas,

y manda llamar esta funcion. y veras que el sistema se sale

sin de decir nada.

static function _cuadricula()
local nFor
local nCol
Local oPrn
local oFnt1

PRINT oPrn TITLE 'Cuadricula' PREVIEW

DEFINE FONT oFnt1 NAME "TAHOMA" SIZE 0,-08 OF oPrn bold
oPrn:lPrvModal := .t.

page
for nFor := 1 to 26
oPrn:cmsay( nFor, 1, strzero(nFor,02), oFnt1 )
for nFor2 := 2 to 20
oPrn:cmsay( nFor, nFor2, strzero(nFor2,02), oFnt1 )
next
next
endPage
endPrint
return (.T.)

Como veras el metodo transparent le duele a la tprinter o al preview.

Saludos... Cordiales

gracias a todos,
efectivamente cesar, omiti la clausula TRANSPARENT en mi dialogo creado desde recuros y ya no aborto el programa "FUNCIONO", por cierto Antonio esa salida del sistema no generea ningun archivo .log, me cerciore que no existiera para ver si lo generaba hice la prueba y no lo genero. Buen caso para la araña...
Salu2
Paco