CE PLUS - Nota 009895
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Parâmetros
Data/Hora da Publicação: 03/03/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:27:19
Descrição da Nota: PARÂMETROS GERAIS MENSAGEM PROVISÃO
Sintoma
Ao alterar a Tabela parâmetro geral o campo Doc. Provisão para sim, e criar uma Fatura Câmbio
Importação, ao gerar o boleto o saldo desta fatura esta zerada sem nenhuma associação.
Solução
Criada mensagem que informa o usuário quando Doc. Provisão marcada como Sim, informando que em
início de projeto poderá ser mudado só para carga da fatura. Foi desabilitado o salvar quando
estiver apenas exibindo os dados, e quando entrar em modificar deverá estar habilitado o salvar.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09895 Data: 03/03/2010 Hora: 10:34:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09895
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00011
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06988 - 00003 - 7.0 - 00006 - PAGAMENTO ANTECIPADO MESMO COM O PEDIDO BLOQUEADO
09100 - 00002 - 8.0 - 00001 - CAPTAÇÃO - DP DOWN PAYMENT - ORDEM DE VENDA
09279 - 00001 - 8.0 - 00001 - REMESSA FINANCEIRA CONTAB.PELA F-43 PARA PAGTO.EM COMPETENCIA
----------------------------------------------------------------------------------------------------
PARÂMETROS GERAIS MENSAGEM PROVISÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PARAMETRO GERAL MENSAGEM PROVISAO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYGL007I01
REPS /PWS/MZYGL007O01
REPS /PWS/MZYGL007TOP
REPT /PWS/SAPMZYGL007
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007I01
...
wa_zycbt089 ne wa_zycbt089_aux.
call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
exporting
defaultoption = 'Y'
diagnosetext1 = text-007
textline1 = text-008
titel = text-009
importing
answer = v_resposta
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
others = 0."#EC *
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
others = 0. "#EC *
* << Fim da inclusão
if v_resposta eq 'J'.
move: sy-uname to wa_zyglt009-user_ultmodif,
sy-datum to wa_zyglt009-data_ultmodif,
sy-uzeit to wa_zyglt009-hora_ultmodif.
modify /pws/zycbt007 from wa_zycbt007.
modify /pws/zycbt089 from wa_zycbt089.
modify /pws/zyglt009 from wa_zyglt009.
commit work.
perform unlock_record.
leave program.
...
...
leave program.
endif.
else.
perform unlock_record.
leave program.
endif.
endmodule.
module user_command_0100 input.
case ok_code.
when 'SAVE'.
* >> Início da inclusão: MODULE USER_COMMAND_0100
if v_resposta_save_provisao ne 'A'.
* << Fim da inclusão
move: sy-uname to wa_zyglt009-user_ultmodif,
sy-datum to wa_zyglt009-data_ultmodif,
sy-uzeit to wa_zyglt009-hora_ultmodif.
perform nome_usuario.
wa_zyglt009-user_save = v_name.
select single bukrs from /pws/zycbt007
into /pws/zycbt007-bukrs
where bukrs eq wa_zycbt007-bukrs.
wa_zycbt007-bukrs = /pws/zycbt007-bukrs.
wa_zyglt009-bukrs = /pws/zycbt007-bukrs.
...
...
loop at screen.
screen-input = 1.
modify screen.
endloop.
message i015 with text-004.
v_status = '0'.
endif.
wa_zycbt007_aux = wa_zycbt007.
wa_zyglt009_aux = wa_zyglt009.
wa_zycbt089_aux = wa_zycbt089.
* >> Início da inclusão: MODULE USER_COMMAND_0100
endif.
* << Fim da inclusão
when 'ALT'.
if v_status = '1'.
call function '/PWS/ZYGL_DEQUEUE_ZYCBT007'.
call function '/PWS/ZYGL_DEQUEUE_ZYCBT089'.
call function '/PWS/ZYGL_DEQUEUE_ZYGLT009'
exporting
bukrs = wa_zyglt009-bukrs.
commit work.
if wa_zycbt007 ne wa_zycbt007_aux or
wa_zyglt009 ne wa_zyglt009_aux or
...
...
/pws/zycbt007-dt_efet = 'E'.
endif.
if v_dacc1 = 'X'.
/pws/zyglt009-dacc = 'X'.
elseif v_dacc2 = 'X'.
/pws/zyglt009-dacc = ' '.
endif.
if v_docprov1 = 'X'.
/pws/zyglt009-docprov = 'X'.
elseif v_docprov2 = 'X'.
* >> Início da inclusão: MODULE SET_SCREEN_103
/pws/zyglt009-docprov = ' '.
endif.
if v_docprov1 = 'X'.
if ok_code = 'SAVE'.
call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
exporting
defaultoption = 'Y'
diagnosetext1 = text-093
diagnosetext2 = text-094
textline1 = text-095
titel = text-096
importing
answer = v_resposta
exceptions
others = 0. "#EC
endif.
if v_resposta = 'N'.
* << Fim da inclusão
/pws/zyglt009-docprov = ' '.
* >> Início da inclusão: MODULE SET_SCREEN_103
v_docprov1 = ' '.
v_docprov2 = 'X'.
elseif v_resposta = 'J'.
message i015 with text-097 text-098.
elseif v_resposta = 'A'.
move v_resposta
to v_resposta_save_provisao.
endif.
* << Fim da inclusão
endif.
if v_ped_bloq1 = 'X'.
/pws/zyglt009-flag_ped_bloq = 'X'.
elseif v_ped_bloq2 = 'X'.
/pws/zyglt009-flag_ped_bloq = ' '.
endif.
if v_fpredicao1 = 'X'.
/pws/zycbt007-fpredicao = 'X'.
elseif v_fpredicao2 = 'X'.
clear /pws/zycbt007-fpredicao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007O01
module status_0100 output.
set titlebar '001'.
if v_status eq '0' and not v_flag eq 1.
set pf-status '0001' excluding 'SAVE'.
elseif not v_flag eq 1.
set pf-status '0001'.
elseif sy-ucomm eq 'SAVE'.
* >> Início da inclusão: MODULE STATUS_0100
set pf-status '0001' excluding 'SAVE'.
elseif sy-ucomm eq 'ALT'.
* << Fim da inclusão
set pf-status '0001'.
loop at screen.
if not screen-name eq 'TAB_GERAL' and
not screen-name eq 'TAB_EXP' and
not screen-name eq 'TAB_IMP' and
not screen-name eq 'TAB_EMPRESA'.
screen-input = '0'.
modify screen.
endif.
endloop.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007TOP
...
v_dtest1 type c,
v_dtest2 type c,
v_dtest3 type c,
v_dtest4 type c,
v_contbrl1 type c,
v_contbrl2 type c,
v_compempr1 type c,
v_compempr2 type c,
v_infotext1 type c,
v_infotext2 type c,
* >> Início da exclusão:
v_dtvincul1 type c,"#EC NEEDED
v_dtvincul2 type c,"#EC NEEDED
v_dtliquid1 type c,"#EC NEEDED
v_dtliquid2 type c,"#EC NEEDED
v_dtliquidcp1 type c,"#EC NEEDED
v_dtliquidcp2 type c,"#EC NEEDED
v_dtliquidcp3 type c,"#EC NEEDED
v_dtliquidcp4 type c,"#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
v_dtvincul1 type c, "#EC NEEDED
v_dtvincul2 type c, "#EC NEEDED
v_dtliquid1 type c, "#EC NEEDED
v_dtliquid2 type c, "#EC NEEDED
v_dtliquidcp1 type c, "#EC NEEDED
v_dtliquidcp2 type c, "#EC NEEDED
v_dtliquidcp3 type c, "#EC NEEDED
v_dtliquidcp4 type c, "#EC NEEDED
* << Fim da inclusão
v_dtjuros1 type c,
v_dtjuros2 type c,
v_dtjuros3 type c,
v_proliquid1 type c,
v_proliquid2 type c,
v_aviso1 type c,
v_aviso2 type c,
v_comis1 type c,
v_comis2 type c,
v_comis3 type c,
...
...
v_dtefet2 type c,
v_dtefet3 type c,
v_fdivisao1 type c,
v_fdivisao2 type c,
v_dacc1 type c,
v_dacc2 type c,
v_docprov1 type c,
v_docprov2 type c,
v_ped_bloq1 type c,
v_ped_bloq2 type c,
* >> Início da exclusão:
modul(30) type c value '/PWS/SAPMZYGL007', "#EC *
* << Fim da exclusão
* >> Início da inclusão:
modul(30) type c value '/PWS/SAPMZYGL007', "#EC *
* << Fim da inclusão
ok_code like sy-ucomm,
v_resposta(1) type c,
v_ftransf1 type c,
v_ftransf2 type c,
v_fltxt1 type c,
v_fltxt2 type c,
v_fpredicao1 type c,
v_fpredicao2 type c,
v_cont_canc1 type c,
v_cont_canc2 type c,
...
...
v_calc_rot_sep2 type c,
v_cont_rot_sep1 type c,
v_cont_rot_sep2 type c,
v_tx_transf_lpcp1 type c,
v_tx_transf_lpcp2 type c,
v_provjur_moeda1 type c,
v_provjur_moeda2 type c,
v_campo(100) type c,
v_usuario2(100) type c,
v_name(100) type c,
* >> Início da exclusão:
v_name_aux(100) type c,"#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
v_name_aux(100) type c, "#EC NEEDED
* << Fim da inclusão
v_forn_rec_fed(35) type c,
v_eletro1 type c,
v_eletro2 type c,
v_est_var1 type c,
v_est_var2 type c,
v_f_cont_canc1 type c,
v_f_cont_canc2 type c,
v_bx_cli1 type c,
v_bx_cli2 type c,
v_bx_pdd_1 type c,
...
...
v_cc1(1) type c,
v_cc2(1) type c,
v_lei(30),
v_cambio(30),
v_f63pa type c,
v_f43pa type c,
v_f63pf type c,
v_f43pf type c,
v_f63re type c,
v_f43re type c,
* >> Início da exclusão:
v_origem(30).
* << Fim da exclusão
* >> Início da inclusão:
v_origem(30),
v_resposta_save_provisao.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL007
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 093
Texto: (62 caracteres)
"Parâmetro Importação-Doc. Provisão só deve ficar SIM em início"
Comprimento máximo: 62
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 094
Texto: (48 caracteres)
"de projeto, para carga de faturas de importação."
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 095
Texto: (33 caracteres)
"Tem certeza que deseja continuar?"
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 096
Texto: (5 caracteres)
"Aviso"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 097
Texto: (43 caracteres)
"Favor retornar este parâmetro para NÃO após"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 098
Texto: (42 caracteres)
" finalizar carga de faturas de importação."
Comprimento máximo: 42