Pessoal preciso de uma ajuda tua, talvez você conheça alguém que faça relatorio do report.
Seguinte tenho uma aplicação aqui no forms e gera uma carta no report porem o pessoal roda tudo via web.
Na hora de gerar o relatorio na Web esta dando um erro.
Talvez você conhece uma maneira de fazer isso..
Vou colar o codigo ai pra você dar uma olha quem sabe você pode me ajudar;;;;
----Inicio Codigo
IF (MSG_CONFIRMACAO('Deseja Emitir Carta de Devolução de Documento ? '))THEN
--MSG_INFORMACAO('Gerando Carta de Devolução de Documento !');
DECLARE
PL_ID ParamList;
Wrk_Desformat VARCHAR2(200);
Wrk_Destype VARCHAR2(200);
Wrk_Desname VARCHAR2(200);
w_report_server VARCHAR2(200) := null;
string_conn VARCHAR2(500);
w_nome_relatorio VARCHAR2(50) := null;
v_rep VARCHAR2(100);
repid REPORT_OBJECT;
filename_ varchar2(256);
BEGIN
SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY'); -- COLOCA O CURSOR NO FORMATO DE AMPULHETA
Wrk_Destype := 'Preview';
Wrk_Desformat := 'PDF';
Wrk_Desname := NULL;
PL_ID := CREATE_PARAMETER_LIST('relatorio');
PL_ID := GET_PARAMETER_LIST('relatorio');
-----Item NOvo ---
if ( get_application_property(user_interface) = 'WEB' ) then
dbms_random.initialize(3);
filename_ := 'NOME_'|| to_char( abs( dbms_random.random ) ) ||'.pdf';
dbms_random.terminate();
ADD_PARAMETER(PL_ID, 'PARAMFORM', TEXT_PARAMETER, 'NO');
ADD_PARAMETER(PL_ID, 'DESTYPE' , TEXT_PARAMETER, Wrk_Destype);
ADD_PARAMETER(PL_ID, 'DESFORMAT', TEXT_PARAMETER, Wrk_Desformat);
ADD_PARAMETER(PL_ID, 'DESNAME' , TEXT_PARAMETER, Wrk_Desname);
ADD_PARAMETER(PL_ID,'PF_CIDADE' ,TEXT_PARAMETER,:GARANTIA.CIDADE);
ADD_PARAMETER(PL_ID,'PF_CODIGO' ,TEXT_PARAMETER,:MOSTRA_DADOS.NUMERO);
ADD_PARAMETER(PL_ID,'PF_CONSUMIDOR' ,TEXT_PARAMETER,:MOSTRA_DADOS.NOME);
ADD_PARAMETER(PL_ID,'PF_CPF' ,TEXT_PARAMETER,:MOSTRA_DADOS.CPF);
ADD_PARAMETER(PL_ID,'PF_DATA_ENVIO' ,TEXT_PARAMETER,TO_CHAR(:MOSTRA_DADOS.DATA_ENVIO_DOC,'DD/MM/YYYY'));
ADD_PARAMETER(PL_ID,'PF_EMPRESA' ,TEXT_PARAMETER,:GARANTIA.LOJA);
ADD_PARAMETER(PL_ID,'PF_GRUPO_LOJA' ,TEXT_PARAMETER,:GARANTIA.GRUPO);
ADD_PARAMETER(PL_ID,'PF_LOTE' ,TEXT_PARAMETER,:PESQUISA.LOTE);
ADD_PARAMETER(PL_ID,'PF_MOTIVO' ,TEXT_PARAMETER,:OPCAO.NOME_ERRO);
ADD_PARAMETER(PL_ID,'PF_NUMERO_COMPRA' ,TEXT_PARAMETER,:MOSTRA_DADOS.VENDA);
ADD_PARAMETER(PL_ID,'PF_VALOR_PRESTACAO' ,TEXT_PARAMETER,:MOSTRA_DADOS.VALOR);
RUN_PRODUCT(REPORTS,'relatorio.REP', ASYNCHRONOUS, RUNTIME, FILESYSTEM,PL_ID, NULL);
web.show_document( 'http://'||'193.10.1.174'||'/reports/' || filename_, '_BLANK' );
end if;
END;
MSG_INFORMACAO('Carta de Devolução Gerada com Sucesso !');
SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT'); -- COLOCA O CURSOR NO FORMATO DEFAULT
ELSE
bell;bell;
MSG_INFORMACAO('Carta Não Emitida !');
END IF;
---Fim codigo
Vlw galera
ORACLE - REPORT / WEB
-
- Moderador
- Mensagens: 1396
- Registrado em: Sex, 01 Fev 2008 2:06 pm
- Localização: Rio de Janeiro - RJ
- Contato:
qual o erro?
como assim roda tudo via web?? forms não e baseado em applet java.. e applet não e so web
????
como assim roda tudo via web?? forms não e baseado em applet java.. e applet não e so web
????
-
- Rank: Analista Júnior
- Mensagens: 76
- Registrado em: Sex, 31 Out 2008 4:30 pm
- Localização: belo horizonte-mg
quando eu chamo a tela do forms via APPLET.dai eu mando gerar o relatorio .Ele chega a mostrar internet explorer aberto mas não traz resultado nenhum apenas "A PAGINA NÃO PODE SER EXIBIDA"
obrigado
obrigado
-
- Moderador
- Mensagens: 1396
- Registrado em: Sex, 01 Fev 2008 2:06 pm
- Localização: Rio de Janeiro - RJ
- Contato:
tenta compilar completo o .rpt ( se não me engano ctrl + shift + k ) e colocar novamente no servidor
-
- Informação
-
Quem está online
Usuários navegando neste fórum: Nenhum usuário registrado e 16 visitantes