CE PLUS - Nota 014212
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: SISCOSERV
Data/Hora da Publicação: 19/09/2014 11:54:38
Data/Hora Última Alteração: 19/09/2014 11:54:38
Descrição da Nota: ASSOCIAÇÃO SISCOSERV, PREENCHIMENTO DOS DADOS DA REMESSA, MOEDA
Sintoma
Ao associar uma RAS/RVS com remessa o campo moeda não está sendo preenchido. Ajuste no saldo da
RAS/RVS para quando o valor da Remessa é maior que o valor da RAS.
Solução
A Associação passou a selecionar a informação de Moeda pra Associação com Remessa.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 14212 Data: 17/09/2014 Hora: 13:53:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 14212
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00008
Agrupamento : 00175
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
13659 - 00001 - 9.0 - 00007 - SISCOSERV, DESP.IMPORTAÇÃO, ORDEM DE VENDA, PEDIDO DE COMPRA, NIF
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO SISCOSERV, PREENCHIMENTO DOS DADOS DA REMESSA, MOEDA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO SISCOSERV, PREENCHIMENTO DOS DADOS DA REMESSA
CAMPO MOEDA E VALOR DA REMESSA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA012F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012F01
...
and despach = p_wa_zycat039-despach
and tpdesp = p_wa_zycat039-tpdesp
and nrpres = p_wa_zycat039-nrpres.
if sy-subrc eq 0.
if v_dom_tporigem ne 'B'.
message i015 with text-e07 text-i11.
endif.
clear p_pago.
exit.
endif.
* >> Início da exclusão: FORM VALIDA_REMESSA_2
select single bukrs recrem nrfat tpoper
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_REMESSA_2
select single bukrs
recrem
nrfat
waers
tpoper
* << Fim da inclusão
from /pws/zycbt124
* >> Início da exclusão: FORM VALIDA_REMESSA_2
into (p_bukrs, p_bukext, p_wa_zycat039-num_nf, v_tpoper)
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_REMESSA_2
into (p_bukrs,
p_bukext,
p_wa_zycat039-num_nf,
p_wa_zycat039-moeda,
v_tpoper)
* << Fim da inclusão
where nrseq = p_wa_zycat039-remessa.
if sy-subrc ne 0.
if v_dom_tporigem ne 'B'.
message i061 with text-i08 p_wa_zycat039-remessa
text-i09.
endif.
clear p_pago.
exit.
endif.
clear: v_nrboleto,
...
...
if v_tpoper eq 'P'.
select single *
from /pws/zycbt134
into wa_zycbt134_aux
where nrseq = wa_zycbt031_aux-nrseq
and tpproc = 'PRINCIPAL'.
v_bcoccme = wa_zycbt134_aux-bco_ccme.
v_vlme = wa_zycbt134_aux-vlme.
else.
v_vlme = wa_zycbt031_aux-vlme.
* >> Início da inclusão: FORM VALIDA_REMESSA_2
endif.
if v_vlme > /pws/zycat031-saldo.
v_vlme = /pws/zycat031-saldo.
* << Fim da inclusão
endif.
endif.
if sy-subrc eq 0.
if /pws/zycat030-tp_origem is initial.
p_wa_zycat039-vme = v_vlme.
p_wa_zycat039-valor = v_vlme.
else.
p_wa_zycat039-vme = p_wa_zycat039-valor.
endif.
if v_tpoper = 'P'.
...