CE PLUS - Nota 004289
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 27/07/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:46:43
Descrição da Nota: DECLARAÇÃO DE IMPORTAÇÃO (DI) - VARIAÇÃO CAMBIAL
Sintoma
A variação cambial não foi feita na DI devido a problemas na conta.
O sistema salva a DI, não gera a variação mas não dá nenhuma mensagem de erro.
Quando o sistema não conseguir fazer F-05 ou F-51 na variação da DI, deverá aparecer uma mensagem de
erro sobre o problema.
Solução
Exibir mensagens de erros, se houver, depois da função de Variação Cambial.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04289 Data: 27/07/2007 Hora: 10:55:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04289
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03978 - 00001 - 7.0 - 00002 - DOCUMENTO DA VARIAÇÃO CAMBIAL ESTA SUMINDO AO SALVAR A DI
----------------------------------------------------------------------------------------------------
DECLARAÇÃO DE IMPORTAÇÃO (DI) - VARIAÇÃO CAMBIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
VARIAÇÃO CAMBIAL; F_05; F-51; MENSAGEM DE ERRO BI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
table_initial = 1
existe_recebimento = 2
flag_reclassificacao = 3
dados_di_inicial = 4
OTHERS = 5
.
IF sy-subrc <> 0.
ENDIF.
READ TABLE itab_variacao INDEX 1.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM RECLASSIFICACAO_IA_FUNCAO
IF NOT itab_variacao-belnr_0_f05 IS INITIAL OR
NOT itab_variacao-belnr_1_f05 IS INITIAL OR
NOT itab_variacao-belnr_2_f05 IS INITIAL OR
NOT itab_variacao-belnr_3_f05 IS INITIAL OR
NOT itab_variacao-belnr_0 IS INITIAL OR
NOT itab_variacao-belnr_1 IS INITIAL OR
NOT itab_variacao-belnr_2 IS INITIAL OR
NOT itab_variacao-belnr_3 IS INITIAL.
* << Fim da inclusão
MOVE :
itab_variacao-belnr_0 TO /pws/zycie085-belnr_0 ,
itab_variacao-belnr_1 TO /pws/zycie085-belnr_1,
itab_variacao-belnr_2 TO /pws/zycie085-belnr_2,
itab_variacao-belnr_3 TO /pws/zycie085-belnr_3,
itab_variacao-budat_0 TO /pws/zycie085-budat_0,
itab_variacao-budat_1 TO /pws/zycie085-budat_1,
itab_variacao-budat_2 TO /pws/zycie085-budat_2,
itab_variacao-budat_3 TO /pws/zycie085-budat_3,
itab_variacao-belnr_0_f05 TO /pws/zycie085-belnr_0_f05,
itab_variacao-belnr_1_f05 TO /pws/zycie085-belnr_1_f05,
itab_variacao-belnr_2_f05 TO /pws/zycie085-belnr_2_f05,
itab_variacao-belnr_3_f05 TO /pws/zycie085-belnr_3_f05.
* >> Início da inclusão: FORM RECLASSIFICACAO_IA_FUNCAO
ELSE.
CLEAR itab_zycbt032.
READ TABLE itab_zycbt032 WITH KEY
tcode = 'F-51'
tpmsg = 'E'.
IF sy-subrc IS INITIAL.
MESSAGE i015(/pws/zycim) WITH
itab_zycbt032-tcode
itab_zycbt032-msg(50)
itab_zycbt032-msg+50(50).
ELSE.
CLEAR itab_zycbt032.
READ TABLE itab_zycbt032 WITH KEY
tcode = 'F-05'
tpmsg = 'E'.
IF sy-subrc IS INITIAL.
MESSAGE i015(/pws/zycim) WITH
itab_zycbt032-tcode
itab_zycbt032-msg(50)
itab_zycbt032-msg+50(50).
ENDIF.
ENDIF.
ENDIF.
ELSE.
CLEAR itab_zycbt032.
READ TABLE itab_zycbt032 WITH KEY
tcode = 'F-51'
tpmsg = 'E'.
IF sy-subrc IS INITIAL.
MESSAGE i015(/pws/zycim) WITH
itab_zycbt032-tcode
itab_zycbt032-msg(50)
itab_zycbt032-msg+50(50).
ELSE.
CLEAR itab_zycbt032.
READ TABLE itab_zycbt032 WITH KEY
tcode = 'F-05'
tpmsg = 'E'.
IF sy-subrc IS INITIAL.
MESSAGE i015(/pws/zycim) WITH
itab_zycbt032-tcode
itab_zycbt032-msg(50)
itab_zycbt032-msg+50(50).
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.