CE PLUS - Nota 009781
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 04/02/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:02:44
Descrição da Nota: COMPLEMENTO DO BOLETO - DATA REPATRIAÇÃO DE ANO ANTERIOR CAMPO CHAVE
Sintoma
Quando a data de repatriação é no ano anterior o programa não efetua corretamente a seleção dos
documentos para contabilização.
Solução
Feito atualização na funcionalidade de complemento do boleto para corrigir o campo chave referência.
A seleção passou a usar a data de repatriação como filtro.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09781 Data: 04/02/2010 Hora: 15:41:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09781
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00007
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00306 - 00020 - 6.0 - 00021 - EXIT AGRUPAMENTO DE JUROS COMPLEMENTO BOLETO
00578 - 00019 - 6.0 - 00022 - MENSAGEM FALTA FATOR CONVERSÃO BOLETO COMISSÃO AGENTE
01958 - 00018 - 6.0 - 00024 - PAGAMENTO DE COMISSÃO DE AGENTE NO COMPLEMENTO DO BOLETO
02599 - 00017 - 6.0 - 00026 - COMPLEMENTO DO BOLETO - DESPESA DE EXPORTAÇÃO - VALOR MI
03007 - 00016 - 6.0 - 00026 - COMPL. DO BOLETO ESTORNO AUTOMATICO QDO OCORRER ERRO NA CONTABILI
03537 - 00015 - 7.0 - 00001 - DESPESA EXPORTAÇÃO - LOCAL DE NEGÓCIO - REGIME CAIXA E COMPETÊNCI
04029 - 00014 - 7.0 - 00002 - COMPLEMENTO DO BOLETO - DADOS CONTRATO - COMISSÃO CONTRATO
04667 - 00013 - 7.0 - 00002 - COMPLEMENTO DO BOLETO
04777 - 00012 - 7.0 - 00003 - COMPLEMENTO DO BOLETO
05362 - 00011 - 7.0 - 00003 - COMPLEMENTO DO BOLETO - PRINCIPAL CONTRATO TRAVA - ESTORNO POR FB
06081 - 00010 - 7.0 - 00004 - COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE
06118 - 00009 - 7.0 - 00004 - CB - 445631 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA.
06881 - 00008 - 7.0 - 00006 - COMPLEMENTO DO BOLETO - TAXA CAMBIAL
06903 - 00007 - 7.0 - 00006 - FORMA DE PAGAMENTO NO COMPLEMENTO DE BOLETO
07003 - 00006 - 7.0 - 00006 - COMPLEMENTO DO BOLETO - DIVISÃO POR ZERO - DUMP
07253 - 00005 - 7.0 - 00006 - NO COMPLEMENTO DO BOLETO, NA REMESSA NÃO FIXAR O NUMERO DE DIAS
07434 - 00004 - 7.0 - 00007 - COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE - NÃO CARREGA TAXA OB0
07845 - 00003 - 7.0 - 00008 - COMPLEMENTO DO BOLETO - SGTXT - OPÇÕES TXTINF TXINF
08649 - 00002 - 7.0 - 00010 - PAGTO DE JUROS D.A PERMITIR AGRUPAMENTO ACC E ACE NUM UNICO BOLET
08896 - 00001 - 7.0 - 00010 - COMPLEMENTO DO BOLETO - ARMAZENAMENTO DE MENSAGENS
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - DATA REPATRIAÇÃO DE ANO ANTERIOR CAMPO CHAVE
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - DATA REPATRIAÇÃO DE ANO ANTERIOR CAMPO CHAVE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
if not wa_mensagem is initial.
endif.
endif.
endform.
form contabiliza_repatriacao_cp.
perform clear_date_batch.
perform get_parameters_repatriacao_cp.
perform determina_ano using itab_dados_tc-dtlanc
itab_zycbt124_aux-bukrs
changing v_ano.
* >> Início da exclusão: FORM CONTABILIZA_REPATRIACAO_CP
select single awkey from bkpf
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_REPATRIACAO_CP
select single awkey
from bkpf
* << Fim da inclusão
into itab_zycbe033-awkey
where belnr eq wa_zycat028-belnr_as
and bukrs eq itab_zycbt124_aux-bukrs
* >> Início da exclusão: FORM CONTABILIZA_REPATRIACAO_CP
and gjahr eq v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_REPATRIACAO_CP
and gjahr eq wa_zycat028-dt_assoc(4).
* << Fim da inclusão
itab_zycbe033-mandt = sy-mandt.
...
...
p_msg2 type sy-msgv2
p_msg3 type sy-msgv3
p_msg4 type sy-msgv4
p_nro type sy-msgno.
if v_message_store is initial.
message id p_classe type p_tipo number p_nro
with p_msg1 p_msg2 p_msg3 p_msg4.
else.
call function 'MESSAGE_STORE'
exporting
* >> Início da exclusão: FORM MESSAGE_STORE
arbgb = p_classe
msgty = p_tipo
msgv1 = p_msg1
msgv2 = p_msg2
msgv3 = p_msg3
msgv4 = p_msg4
txtnr = p_nro
* << Fim da exclusão
* >> Início da inclusão: FORM MESSAGE_STORE
arbgb = p_classe
msgty = p_tipo
msgv1 = p_msg1
msgv2 = p_msg2
msgv3 = p_msg3
msgv4 = p_msg4
txtnr = p_nro
* << Fim da inclusão
exceptions
* >> Início da exclusão: FORM MESSAGE_STORE
others = 3.
* << Fim da exclusão
* >> Início da inclusão: FORM MESSAGE_STORE
others = 3.
* << Fim da inclusão
endif.
endform.
form message_show.
data: v_num_messages type sy-tabix.
clear v_message_store.
call function 'MESSAGES_COUNT'
importing
* >> Início da exclusão: FORM MESSAGE_SHOW
count = v_num_messages
* << Fim da exclusão
* >> Início da inclusão: FORM MESSAGE_SHOW
count = v_num_messages
* << Fim da inclusão
exceptions
* >> Início da exclusão: FORM MESSAGE_SHOW
others = 3.
* << Fim da exclusão
* >> Início da inclusão: FORM MESSAGE_SHOW
others = 3.
* << Fim da inclusão
check v_num_messages > 0.
call function 'MESSAGES_SHOW'
exporting
* >> Início da exclusão: FORM MESSAGE_SHOW
object =
'Mensagens emitidas durante o processo'(m00)
show_linno = space
* << Fim da exclusão
* >> Início da inclusão: FORM MESSAGE_SHOW
object = 'Mensagens emitidas durante o processo'(m00)
show_linno = space
* << Fim da inclusão
exceptions
* >> Início da exclusão: FORM MESSAGE_SHOW
others = 3.
* << Fim da exclusão
* >> Início da inclusão: FORM MESSAGE_SHOW
others = 3.
* << Fim da inclusão
endform.