[RESOLVIDO] Executar Relatório Em Servidor Rpw Através Do Webspeed

mcarril · Agosto 6, 2009

Desconheço a marca Breja, porque aqui é um apelido carinhoso que os admiradores de cerveja colocam na iguaria.

Abraços

yurifranzoni · Agosto 11, 2009

Opa, bom dia!!

Sidnei, de novo, independente de breja, cerveja, gelada, loira ou o que for... rsrsrs... agradeço novamente a atenção, deu tudo certinho por aqui conforme tua sugestão e matou a minha charada.

Grande abraço!

PS: Marly, obrigado pela força heheh por pouco não fui mal interpretado

yurifranzoni · Julho 26, 2012

Ressuscitando mais um tópico... desculpem a chatice, mas tenho poucos locais onde posso procurar...

A situação abaixo está funcionando até hoje:

sidnei disse:

ola yuri;

na verdade vc nao chama o CR0606rp.p, quem deverá chamar ele é o programa programa de rpw que esta rodando em alguma maquina da sua empresa. O que vc precisa é cria um pedido de execução, dai o rpw irá executar esse pedido chamando o cr0606rp.p. abaixo vai um exemplo de como criar o pedido para o RPW.

{btb/btb912zc.i2}
{utp/ut-glob.i}
define variable h-api as handle no-undo.

/*essa temp table deverá tem a mesma estrutura da temp-table do cr0606. */
/* ele é quem passa os parametros para o rpw executar o cr0606rp.p */
define temp-table tt-param no-undo
field destino as integer
field arquivo as char format "x(300)"
field usuario as char format "x(25)"
field data-exec as date
field hora-exec as integer
FIELD envio-destino AS CHAR
FIELD envio-assunto AS CHAR
FIELD envio-mensagem AS CHAR
FIELD envio-anexo AS CHAR.

RUN rpw.

/*----------------------Rotina para gerar o pedido no RPW------------------------*/
PROCEDURE rpw.
for each tt_param_segur: delete tt_param_segur. end.
for each tt_ped_exec_aux_2: delete tt_ped_exec_aux_2. end.
for each tt_ped_exec_param: delete tt_ped_exec_param. end.
for each tt_ped_exec_param_aux: delete tt_ped_exec_param_aux. end.
for each tt_ped_exec_sel: delete tt_ped_exec_sel. end.
for each tt_erros_envio_email: delete tt_erros_envio_email. end.

create tt_param_segur.
assign tt_param_segur.tta_num_vers_integr_api = 3
tt_param_segur.tta_cod_aplicat_dtsul_corren = "crp"
tt_param_segur.tta_cod_ccusto_corren = ""
tt_param_segur.tta_cod_dwb_user = ""
tt_param_segur.tta_cod_empres_usuar = "1"
tt_param_segur.tta_cod_estab_usuar = ""
tt_param_segur.tta_cod_funcao_negoc_empres = ""
tt_param_segur.tta_cod_grp_usuar_lst = "cob"
tt_param_segur.tta_cod_idiom_usuar = "POR"
tt_param_segur.tta_cod_modul_dtsul_corren = "MCR"
tt_param_segur.tta_cod_modul_dtsul_empres = ""
tt_param_segur.tta_cod_pais_empres_usuar = "Brasil"
tt_param_segur.tta_cod_plano_ccusto_corren = ""
tt_param_segur.tta_cod_unid_negoc_usuar = ""
tt_param_segur.tta_cod_usuar_corren = v_cod_usuar_corren
tt_param_segur.tta_cod_usuar_corren_criptog = encode("super")
tt_param_segur.tta_num_ped_exec_corren = 0
tt_param_segur.tta_rec_ped_exec = 0
tt_param_segur.ttv_num_msg_erro = 0
tt_param_segur.ttv_des_msg = "".

create tt_ped_exec_aux_2.
assign tt_ped_exec_aux_2.tta_num_seq = 1 /* numero sequencial registro na tt */
tt_ped_exec_aux_2.tta_num_ped_exec = 0
tt_ped_exec_aux_2.tta_cod_usuario = v_cod_usuar_corren
tt_ped_exec_aux_2.tta_cod_prog_dtsul = "cr0606" /* Nome cadastrado no EMS */
tt_ped_exec_aux_2.tta_cod_prog_dtsul_rp = "crp\cr0606rp.p" /* Nome F¡sico do Programa */
tt_ped_exec_aux_2.tta_cod_release_prog_dtsul = "2.01.00.001" /* VersÆo do Programa */
tt_ped_exec_aux_2.tta_dat_exec_ped_exec = today
tt_ped_exec_aux_2.tta_hra_exec_ped_exec = replace(string(TIME,"hh:mm:ss"),":","")
tt_ped_exec_aux_2.tta_num_ped_exec_pai = 0
tt_ped_exec_aux_2.tta_log_exec_prog_depend = no
tt_ped_exec_aux_2.tta_cod_servid_exec = "RPW" /* Nome do Servidor RPW */
tt_ped_exec_aux_2.tta_cdn_estil_dwb = 97
tt_ped_exec_aux_2.ttv_num_msg_erro = 0
tt_ped_exec_aux_2.ttv_cod_msg_parameters = ""
tt_ped_exec_aux_2.tta_cod_orig_ped_exec = ""
tt_ped_exec_aux_2.ttv_log_envia_email = no
tt_ped_exec_aux_2.ttv_des_inf_aplic = "".

create tt_ped_exec_param.
assign tt_ped_exec_param.tta_num_seq = 1
tt_ped_exec_param.tta_cod_dwb_parameters = ""
tt_ped_exec_param.tta_cod_dwb_file = "spool\log" + string(tt_ped_exec_aux_2.tta_dat_exec_ped_exec,"99/99/9999")
+ string(tt_ped_exec_aux_2.tta_hra_exec_ped_exec) + ".lst"
/* Arquivo de Log */
tt_ped_exec_param.tta_cod_dwb_output = "arquivo"
tt_ped_exec_param.tta_cod_dwb_order = ""
tt_ped_exec_param.tta_nom_dwb_printer = ""
tt_ped_exec_param.tta_cod_dwb_print_layout = ""
tt_ped_exec_param.tta_log_dwb_print_parameters = no
tt_ped_exec_param.tta_raw_param_ped_exec = ?. /* row transfer */

/*aquiii vc passa os dados to tt-param do cr0606 */
RAW-TRANSFER tt-param TO tt_ped_exec_param.tta_raw_param_ped_exec.

create tt_ped_exec_param_aux.
assign tt_ped_exec_param_aux.tta_num_seq = 1
tt_ped_exec_param_aux.tta_num_dwb_order = 0
tt_ped_exec_param_aux.tta_cod_dwb_parameters = ""
tt_ped_exec_param_aux.tta_raw_param_ped_exec = ?. /* row transfer */

create tt_erros_envio_email.
assign tt_erros_envio_email.ttv_cod_erro = 0
tt_erros_envio_email.ttv_des_erro = "".

run btb/btb912zc.p persistent set h-api.

run pi-execute-2 in h-api (input-output table tt_param_segur,
input-output table tt_ped_exec_aux_2,
input table tt_ped_exec_param,
input table tt_ped_exec_param_aux,
input table tt_ped_exec_sel,
output table tt_erros_envio_email).

delete procedure h-api.

END PROCEDURE.
Clique para expandir...

Agora, a empresa precisa fazer exatamente a mesma coisa, mas o programa a ser chamado via RPW é o Extrato de Comissões do EMS 5.06 (ACR367AA.PY). Sei que a estrutura de chamados RPW do EMS 5 é completamente diferente. Alguém sabe como criar esse chamado no RPW?

Obrigado!

Logar ou Criar uma Conta

[RESOLVIDO] Executar Relatório Em Servidor Rpw Através Do Webspeed

mcarril Membro Participativo

yurifranzoni Sem Pontuação

yurifranzoni Sem Pontuação

Compartilhe esta Página