Rodar um Relatório no Forms

[LC_JK]

Como faço para Rodar um relatório no Forms?! Como posso passar os parametros para ele?!

[dr_gori]

Veja a rotina abaixo.
Deve solucionar seu problema!!!

Selecionar tudo

DECLARE
   Print_Name    Varchar2(100);
   Port_name     Varchar2(100);
   PL_ID          PARAMLIST;
BEGIN
	
  -- cria lista de parâmetros vazia
  PL_ID := Get_Parameter_List('tmpdata');
  If Not Id_Null(Pl_Id) Then
     Destroy_Parameter_List( Pl_Id );
  End If;
  Pl_Id := Create_Parameter_List('tmpdata');
   
  -- adiciona os parametros
	Add_Parameter(Pl_Id, 'PARAMFORM'  ,   Text_Parameter, 'NO');
	Add_Parameter(Pl_Id, 'DESTYPE'    ,   Text_Parameter, 'PREVIEW');  
	Add_Parameter(Pl_Id, 'ORIENTATION',   Text_Parameter, 'PORTRAIT');
	Add_Parameter(Pl_Id, 'SEU_PARAMETRO', Text_Parameter, sysdate);
  -- Destino pode ser FILE, PREVIEW  ou PRINTER
  -- Orientacao pode ser PORTRAIT LANDSCAPE
	

	Win_Api_Dialog.Select_Printer( Print_Name, Port_Name );
	
	Add_Parameter(Pl_Id, 'DESNAME', Text_Parameter, PRINT_NAME||','||PORT_NAME);
  
	Run_Product(Reports, 'c:\seu_report', aSynchronous, Runtime, Filesystem, Pl_Id, Null);


End;

[gubsd]

A rotina abaixo citada p/ dr_gori eu chamo-a no froms através de uma trigger WHEN_BUTTON_PRESSED??

Grato.

Gustavo

[Toad]

Isso Gustavo.

Você pode colocar em seu form um botão e joga esse código no trigger WHEN_BUTTON_PRESSED...

No meu, deu erro em Win_Api_Dialog.Select_Printer como se eu tivesse que declarar alguma função!

Alguém sabe como corrigir isso!?

[TBou]

você precisa anexar a biblioteca D2KWUtil que tem estas funções de API do windows.

[ricardoar]

Estou com a mesma situação mas como que eu recebo e manipulo o valor vindo do FORMs no Report? Pelo codigo do dr_gori o parametro de destino é DESNAME ou seja o report deve ter um parametro com o mesmo nome no Parameter Form?

Resumindo até consigo teoricamente passar o parametro para meu report mas ele retorna em branco. Mas o form está acusando um erro:

FRM-47013: Cannot add parameter TESTE2 to Parameter List TXT_PROJETO: parameter with this name exists


Obrigado desde já.

[Toad]

Ricardo. Me parece ser um caso diferente.
Tem como você postar o código pra gente ver?