Chamada de Relatório

[saulo-jitsu 0]

Pessoal,

eu to usando o CR8 pra criar um relatório(q possui sub-relatório) e to chamando ele no vb6.

o problema é q eu não consigo chamar ele.

ele diz q o não encontra o subrelatório.

Crpt_relatorios.GroupSelectionFormula = Empty

				  Crpt_relatorios.ReportFileName = App.Path & "\DATABASE\rel_consolidado.rpt"

				  Crpt_relatorios.Connect = "PWD=***"

				  Crpt_relatorios.RetrieveDataFiles
				  
				  Crpt_relatorios.GroupSelectionFormula = formula
				  
				  '**************************
				  
				  Crpt_relatorios.SubreportToChange = "rel_min_contrat_consol"

				  Crpt_relatorios.GroupSelectionFormula = formula

				  Crpt_relatorios.Connect = "PWD=***"

				  Crpt_relatorios.WindowState = crptMaximized

				  Crpt_relatorios.WindowShowExportBtn = False

				  Crpt_relatorios.WindowShowPrintBtn = True

				  Crpt_relatorios.WindowShowPrintSetupBtn = True

				  Crpt_relatorios.WindowShowProgressCtls = True

				  Crpt_relatorios.WindowShowRefreshBtn = True

				  Crpt_relatorios.WindowShowSearchBtn = True

				  Crpt_relatorios.WindowShowCloseBtn = True

				  Crpt_relatorios.WindowShowZoomCtl = True
				 
				  Crpt_relatorios.Action = 1

   
			prepara_Relatorio = True

[Se Puder Ajudar... 0]

oi

eu estou a usar o CR 8.5 mas percebi o problema e acho k vai ser facil de ultrapassar, porque as versões são proximas.

em primeiro lugar acho que ligar reports uns aos outros não dá lá grande resultado, o ideal é mesmo editar o subreport atraves da opção

'Insert'->'subreport'->'Create a subreport', porque se for atraves do 'choose report' eu tive alguns problemas, mas isso e opção tua.

 

atraves da opção que indiquei e muito simples abrir os relatorios, porque como os relatorios sao editados quase que como um so, se chamar-mos o principal, o subreport aparecerá juntamente com o report principal.

 

de seguida para chamar o report principal eu uso esse codigo para o vb 6:

Report.DiscardSavedData = True

Report.Destination = crptToWindow

Report.CopiesToPrinter = 1

Report.WindowTitle = "<título da janela>"

Report.WindowState = crptMaximized

Report.ReportFileName = "<caminho>+<nome do report>" (exemplo: Report.ReportFileName = App.Path & "\REPORT.rpt")

Report.Action = 1

 

eu acho simples e espero que tenha ajudado a encontrar uma solução... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif