CE PLUS - Nota 009503
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Associação Ordem de Pagamento
Data/Hora da Publicação: 02/12/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:23:19
Descrição da Nota: ASSOCIAÇÃO - ERRO NA MODIFICAÇÃO DA ASSOCIAÇÃO DE ORDEM DE PAGAMENTO
Sintoma
Ao estornar a associação de ordem de pagamento com embarque, se entrar na tela da associação -
modificar e informar o embarque, parcela, divisão e data de associação, o programa está abrindo a
tela da associação somente com o embarque, porém não deveria nem abrir a tela da funcionalidade pois
a associação já foi estornada.
Solução
Foi feito a consistência para não entrar nas faturas que não tenham saldo a associar. E mesmo
informando os dados manualmente, o sistema só irá exibir se estiver com todas as informações do
critério de seleção preenchidas. Criada verificação de existência de associação.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09503 Data: 02/12/2009 Hora: 16:11:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09503
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03270 - 00017 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
03379 - 00016 - 7.0 - 00001 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - DES. ADIC. REMESSA
03680 - 00015 - 7.0 - 00001 - TRADUÇÕES DO PRODUTO.
04316 - 00014 - 7.0 - 00002 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - DUMP
04465 - 00013 - 7.0 - 00002 - ASSOCIAÇÃO ORDEM PAGAMENTO - MATCHCODE - FILTRO POR EMISSOR ORDEM
04501 - 00012 - 7.0 - 00002 - CORREÇÃO DO MODO EM QUE A CARGA NO EMBARQUE É CARREGADO(CRIAR/EXI
04958 - 00011 - 7.0 - 00003 - FATURA/VINCULAÇÃO/LIQUIDAÇÃO - COMMODITIES
05478 - 00010 - 7.0 - 00003 - DA - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO
05512 - 00009 - 7.0 - 00004 - TRATAMENTO CAMPOS /PWS/ZYCBT030-BELNR_T /PWS/ZYCBT030-BUDAT_T
06029 - 00008 - 7.0 - 00004 - CB - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
06077 - 00007 - 7.0 - 00004 - DESPESAS DE EXPORTAÇÃO
07585 - 00006 - 7.0 - 00007 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - PRIMEIRA TELA DE REMESSA VAZI
07816 - 00005 - 7.0 - 00008 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - EXCLUSÃO REGISTRO /PWS/ZYCBT2
07931 - 00004 - 7.0 - 00008 - DA - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL E ASSOCIAÇÃO(SML)
09221 - 00003 - 8.0 - 00001 - CODE INSPECTOR CÂMBIO
09326 - 00002 - 8.0 - 00001 - NOTA TRADUÇÃO CÂMBIO
09463 - 00001 - 8.0 - 00001 - TRADUÇÃO PW.CE CÂMBIO - PORTUGUÊS PARA INGLÊS
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO - ERRO NA MODIFICAÇÃO DA ASSOCIAÇÃO DE ORDEM DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO - ERRO NA MODIFICAÇÃO DA ASSOCIAÇÃO DE ORDEM DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCB035
DYNP /PWS/SAPMZYCB035 0001
REPS /PWS/MZYCB035F01
REPS /PWS/MZYCB035F02
REPS /PWS/MZYCB035I01
REPT /PWS/SAPMZYCB035
TABU /PWS/ZYGLT321
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB035
Não há modificações.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB035 0001
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0001
PROCESS BEFORE OUTPUT.
MODULE screen.
PROCESS AFTER INPUT.
CHAIN.
FIELD: /pws/zycbe227a-nrinvoic,
/pws/zycbe227a-nrparcf,
* >> Início da exclusão:
/pws/zycbe227a-gsberf.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbe227a-gsberf,
/pws/zycbe227a-dtassoc.
* << Fim da inclusão
MODULE consiste_embarque.
ENDCHAIN.
CHAIN.
FIELD: btn_remessa,
/pws/zycbe229a-nrseq,
/pws/zycbe227a-dtassoc MODULE consiste_campos ON CHAIN-REQUEST .
ENDCHAIN.
MODULE user_command.
MODULE user_command_exit AT EXIT-COMMAND.
PROCESS ON VALUE-REQUEST.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F01
Não há modificações.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F02
...
from t001
into table itab_t001.
select werks j_1bbranch
from t001w
into table itab_t001w.
select *
from /pws/zycbt007
into table itab_zycbt007.
select *
from /pws/zycbt089
* >> Início da exclusão: FORM CARREGA_PARAMETROS
into table itab_zycbt089. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zycbt089. "#EC CI_NOWHERE
* << Fim da inclusão
select codpadr kurst
from /pws/zycbt009
into table itab_zycbt009.
select codeven codmod bukrs ctmoed blart koart agums txtdesc
from /pws/zycbt011
* >> Início da exclusão: FORM CARREGA_PARAMETROS
into table itab_zycbt011. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zycbt011. "#EC CI_NOWHERE
* << Fim da inclusão
select modo descr
from /pws/zycbt039
* >> Início da exclusão: FORM CARREGA_PARAMETROS
into table itab_zycbt039. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
select ktosl codeven cpor3 cpocb descr
from /pws/zyglt321
* >> Início da exclusão: FORM CARREGA_PARAMETROS
into table itab_zyglt321. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zyglt321. "#EC CI_NOWHERE
* << Fim da inclusão
select vktrt dtvrc
from /pws/zycet048
into table itab_zycet048.
select vktra_ci vktra
from /pws/zycit054
* >> Início da exclusão: FORM CARREGA_PARAMETROS
into table itab_zycit054. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zycit054. "#EC CI_NOWHERE
* << Fim da inclusão
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = c_codmod
i_func = c_programa
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
...
...
form seleciona_dados_liq_andamento
using value(p_wa_fatura) type t_s_fatura.
check not p_wa_fatura is initial.
select bukrs nrinvoic belnr nrparcf gsberf dtincl waers saldo belnr2
dtbelnr koart hkont umskz
from /pws/zycbt209
into table itab_zycbt209
where
nrinvoic = p_wa_fatura-nrinvoic and
nrparcf = p_wa_fatura-nrparcf and
* >> Início da exclusão: FORM SELECIONA_DADOS_LIQ_ANDAMENTO
gsberf = p_wa_fatura-gsberf. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_LIQ_ANDAMENTO
gsberf = p_wa_fatura-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
endform.
form seleciona_dados_associacao
using
value(p_wa_fatura) type t_s_fatura
value(p_nrseq) type /pws/zycbt229-nrseq_remessa
value(p_dtassoc) type /pws/zycbt227-dtassoc.
check not ( p_wa_fatura is initial and p_nrseq is initial ).
if not p_wa_fatura is initial.
select *
from /pws/zycbt227
...
...
tpoper = 'R'.
if sy-subrc <> 0.
p_nao_existe = 'X'.
endif.
endform.
form verifica_embarque
using value(p_wa_fatura) type t_s_fatura
changing p_nao_existe type c.
data
v_vlslliq type /pws/zycbt030-vlslliq. "#EC NEEDED
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
if sy-tcode = c_transacao_a.
* << Fim da inclusão
select vlslliq
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
from /pws/zycbv218
into v_vlslliq
up to 1 rows
where
nrinvoic = p_wa_fatura-nrinvoic and
nrparcf = p_wa_fatura-nrparcf and
gsberf = p_wa_fatura-gsberf.
endselect.
else.
select vlslliq
* << Fim da inclusão
from /pws/zycbt030
into v_vlslliq
up to 1 rows
where
nrinvoic = p_wa_fatura-nrinvoic and
nrparcf = p_wa_fatura-nrparcf and
gsberf = p_wa_fatura-gsberf.
endselect.
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
endif.
* << Fim da inclusão
if sy-subrc <> 0.
p_nao_existe = 'X'.
endif.
endform.
form consiste_dtassoc
using
value(p_nrinvoic) type /pws/zycbe227a-nrinvoic
value(p_nrparcf) type /pws/zycbe227a-nrparcf
value(p_gsberf) type /pws/zycbe227a-gsberf
value(p_nrseq) type /pws/zycbe229a-nrseq
...
...
changing v_nao_existe.
if v_nao_existe = 'X' and ok_code <> 'NOVO'.
message e061
with 'Não existe'(m16) 'associação'(m17) 'nesta data.'(m18).
endif.
endform.
form consiste_embarque
using
value(p_nrinvoic) type /pws/zycbe227a-nrinvoic
value(p_nrparcf) type /pws/zycbe227a-nrparcf
* >> Início da exclusão: FORM CONSISTE_EMBARQUE
value(p_gsberf) type /pws/zycbe227a-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_EMBARQUE
value(p_gsberf) type /pws/zycbe227a-gsberf
value(p_dtassoc) type /pws/zycbe227a-dtassoc.
* << Fim da inclusão
data:
wa_fatura type t_s_fatura,
v_nao_existe(1) type c.
if p_nrinvoic is initial and p_nrparcf is initial and
p_gsberf is initial.
message e061
with 'Favor entrar com'(m19) 'os dados do'(m23) 'embarque.'(m21).
else.
wa_fatura-nrinvoic = p_nrinvoic.
wa_fatura-nrparcf = p_nrparcf.
wa_fatura-gsberf = p_gsberf.
perform verifica_embarque
using wa_fatura
changing v_nao_existe.
if v_nao_existe = 'X'.
message e015
with 'O embarque'(m11) 'não possui saldo a associar.'(m13).
* >> Início da inclusão: FORM CONSISTE_EMBARQUE
endif.
if sy-tcode ne c_transacao_c
and sy-tcode ne c_trans_sml_c.
clear v_nao_existe.
perform verifica_data_associacao
using wa_fatura
p_dtassoc
changing v_nao_existe.
if v_nao_existe = 'X'.
message e061 with text-m16 text-m17 text-m18.
endif.
* << Fim da inclusão
endif.
endif.
endform.
form consiste_remessa using value(p_nrseq) type /pws/zycbe229a-nrseq.
data
v_nao_existe(1) type c.
perform verifica_remessa
using p_nrseq
changing v_nao_existe.
if v_nao_existe = 'X'.
...
...
exceptions
text_not_found = 1
others = 2.
if sy-subrc <> 0.
exit.
endif.
if v_resposta = c_sim.
perform salva_dados.
endif.
endform.
* >> Início da inclusão:
form verifica_data_associacao
using value(p_wa_fatura) type t_s_fatura
value(p_dt_associ) type /pws/zycbe227a-dtassoc
changing p_nao_existe type c.
data: v_dtassoc type /pws/zycbe227a-dtassoc.
select dtassoc
from /pws/zycbt227
into v_dtassoc
up to 1 rows
where
nrinvoic = p_wa_fatura-nrinvoic and
nrparcf = p_wa_fatura-nrparcf and
gsberf = p_wa_fatura-gsberf and
dtassoc = p_dt_associ.
endselect.
if sy-subrc ne 0.
move 'X' to p_nao_existe.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035I01
...
/pws/zycbe227a-gsberf
/pws/zycbe229a-nrseq
/pws/zycbe227a-dtassoc.
ENDMODULE.
MODULE consiste_embarque INPUT.
CHECK btn_embarque = 'X' AND ok_code = 'ENTE'.
PERFORM consiste_embarque
USING
/pws/zycbe227a-nrinvoic
/pws/zycbe227a-nrparcf
* >> Início da exclusão: MODULE CONSISTE_EMBARQUE
/pws/zycbe227a-gsberf.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_EMBARQUE
/pws/zycbe227a-gsberf
/pws/zycbe227a-dtassoc.
* << Fim da inclusão
ENDMODULE.
MODULE consiste_remessa INPUT.
CHECK btn_remessa = 'X' AND ok_code = 'ENTE'.
PERFORM consiste_remessa
USING /pws/zycbe229a-nrseq.
ENDMODULE.
MODULE atualiza_saldos INPUT.
PERFORM atualiza_saldos.
ENDMODULE.
MODULE consiste_campos INPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB035
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: M53
Texto: (6 caracteres)
"Invoic"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: M54
Texto: (33 caracteres)
"Pending the update of Commodities"
Comprimento máximo: 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABU /PWS/ZYGLT321
Não há modificações.
Não há modificações.
Não há modificações.
Não há modificações.
Não há modificações.