AYUDA CON INFORMES
Publicado por alejandro (12 intervenciones) el 02/09/2004 00:36:27
hace unos dias hice una consulta al foro, diciendo que tenia problemas al tratar de imprimir un informe desde un formulario.
el tema es que cuando hago click desde el formulario se abre un cuadro de dialogo donde me pide elegir varias cosas, entre ellas el informe asociado al formulario.
la respuesta que recibi fue: "que codigo tienes?".
bueno, aca esta el codigo.
lo que yo quiero es obviar este cuadro de dialogo y que directamente al darle click en imprimir, se abra el formulario que yo establezca en algun lado (codigo, opcion) en tiempo de programacion, no en tiempo de ejecucion.
gracias.
#DEFINE DIALOG_CLASS "_outputdialog"
#DEFINE DIALOG_CLASSLIB "_reports.vcx"
LOCAL lcRepName,loOutputDialog,lcDClass
DO CASE
CASE EMPTY(ALIAS())
lcRepName = ""
CASE CURSORGETPROP("sourcetype")=3 && tables
lcRepName = FORCEEXT(DBF(),"FRX")
OTHERWISE
lcRepName = LEFT(ALIAS(),8)+".FRX"
ENDCASE
DO CASE
CASE FILE(DIALOG_CLASSLIB)
lcDClass = DIALOG_CLASSLIB
CASE FILE(HOME()+"FFC\"+DIALOG_CLASSLIB)
lcDClass = HOME()+"FFC\"+DIALOG_CLASSLIB
CASE FILE("..\FFC\"+DIALOG_CLASSLIB)
lcDClass = "..\FFC\"+DIALOG_CLASSLIB
OTHERWISE
THIS.Parent.PrintRpt()
RETURN
ENDCASE
loOutputDialog = NewObject(DIALOG_CLASS,lcDClass)
IF VARTYPE(loOutputDialog) # "O" OR;
%
el tema es que cuando hago click desde el formulario se abre un cuadro de dialogo donde me pide elegir varias cosas, entre ellas el informe asociado al formulario.
la respuesta que recibi fue: "que codigo tienes?".
bueno, aca esta el codigo.
lo que yo quiero es obviar este cuadro de dialogo y que directamente al darle click en imprimir, se abra el formulario que yo establezca en algun lado (codigo, opcion) en tiempo de programacion, no en tiempo de ejecucion.
gracias.
#DEFINE DIALOG_CLASS "_outputdialog"
#DEFINE DIALOG_CLASSLIB "_reports.vcx"
LOCAL lcRepName,loOutputDialog,lcDClass
DO CASE
CASE EMPTY(ALIAS())
lcRepName = ""
CASE CURSORGETPROP("sourcetype")=3 && tables
lcRepName = FORCEEXT(DBF(),"FRX")
OTHERWISE
lcRepName = LEFT(ALIAS(),8)+".FRX"
ENDCASE
DO CASE
CASE FILE(DIALOG_CLASSLIB)
lcDClass = DIALOG_CLASSLIB
CASE FILE(HOME()+"FFC\"+DIALOG_CLASSLIB)
lcDClass = HOME()+"FFC\"+DIALOG_CLASSLIB
CASE FILE("..\FFC\"+DIALOG_CLASSLIB)
lcDClass = "..\FFC\"+DIALOG_CLASSLIB
OTHERWISE
THIS.Parent.PrintRpt()
RETURN
ENDCASE
loOutputDialog = NewObject(DIALOG_CLASS,lcDClass)
IF VARTYPE(loOutputDialog) # "O" OR;
%
Valora esta pregunta


0