FoxPro/Visual FoxPro - AYUDA CON INFORMES

 
Vista:

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;
%
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA CON INFORMES

Publicado por usr (18 intervenciones) el 02/09/2004 01:30:34
Por lo que veo es el codigo que genera el asistente al momento de crear un formulario, eso te puede complicar un poco y no ayuda mucho trabajar sobre codigo hecho por otra persona....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar