CE PLUS - Nota 010114
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 30/04/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:14:07
Descrição da Nota: REFAZER A VARIAÇÃO CAMBIAL CASO A TAXA TENHA SIDO ALTERADA.
Sintoma
Após alterar a taxa de conversão na tabela /pws/zycit174, se acessar uma DI que já foi feito a
variação cambial, ao atualizarmos a DI e salvarmos o programa atualiza as taxas e valores da DI mas
não refaz a variação cambial.
Solução
Ajustado programa para refazer a variação cambial quando ocorrer a alteração das taxas.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10114 Data: 30/04/2010 Hora: 14:37:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10114
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00019
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04532 - 00001 - 7.0 - 00002 - BANCO - DI NACIONALIZAÇÃO - PASTA PAGAMENTOS
06459 - 00002 - 7.0 - 00005 - NECESSÁRIO CRIAÇÃO DE CAMPO HORA DE CRIAÇÃO E ALTERAÇÃO DA DI
----------------------------------------------------------------------------------------------------
REFAZER A VARIAÇÃO CAMBIAL CASO A TAXA TENHA SIDO ALTERADA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VARIAÇÃO - CAMBIAL - ESTORNO - CONTABILIZAÇÃO - ALTERAÇÃO - TAXA
/PWS/SAPMZYCI023 - /PWS/ZYCIT174
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F05
REPT /PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
MODIFY itab_zycit095.
ENDLOOP.
ENDIF.
PERFORM refresh_all.
SELECT SINGLE * FROM /pws/zycit085 INTO /pws/zycit085 WHERE
nrseqdi = /pws/zycie085-nrseqdi.
IF sy-subrc NE 0.
PERFORM fill_nrseq.
ELSE.
IF sy-tcode <> '/PWS/ZYCI023_C' AND sy-tcode <> '/PWS/ZYCI023_I'.
* >> Início da inclusão: FORM SAVE_DATA
IF ( /pws/zycie085-ukursfob NE /pws/zycit085-ukursfob OR
/pws/zycie085-ukursfre NE /pws/zycit085-ukursfre OR
/pws/zycie085-ukursseg NE /pws/zycit085-ukursseg ) AND
( NOT /pws/zycit085-belnr_0 IS INITIAL OR
NOT /pws/zycit085-belnr_1 IS INITIAL OR
NOT /pws/zycit085-belnr_2 IS INITIAL OR
NOT /pws/zycit085-belnr_3 IS INITIAL ).
SELECT SINGLE * FROM /pws/zycit041
WHERE nrseq = /pws/zycie085-nrseqdi.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-285 text-286.
EXIT.
ELSE.
CLEAR v_dele.
PERFORM deleta_variacao.
ENDIF.
ENDIF.
* << Fim da inclusão
/pws/zycie085-dtusera = sy-datlo.
/pws/zycie085-hrusera = sy-uzeit.
/pws/zycie085-usernamea = sy-uname.
ELSEIF v_salvo NE 'X'.
v_salvo = 'X'.
PERFORM fill_nrseq.
MESSAGE i015 WITH text-013 /pws/zycie085-nrseqdi.
ENDIF.
ENDIF.
MODIFY /pws/zycit085 FROM /pws/zycie085.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF v_dele IS INITIAL.
IF /pws/zycie085-belnr_0_f05 EQ /pws/zycie085-belnr_1_f05.
CLEAR /pws/zycie085-belnr_1_f05.
ENDIF.
IF /pws/zycie085-belnr_0_f05 EQ /pws/zycie085-belnr_2_f05.
CLEAR /pws/zycie085-belnr_2_f05.
ENDIF.
IF /pws/zycie085-belnr_0_f05 EQ /pws/zycie085-belnr_3_f05.
CLEAR /pws/zycie085-belnr_3_f05.
ENDIF.
* >> Início da inclusão: FORM DELETA_VARIACAO
CLEAR /pws/zycie085-belnr_0_f05.
* << Fim da inclusão
ENDIF.
ENDIF.
IF NOT /pws/zycie085-belnr_1_f05 IS INITIAL.
v_text = text-208.
PERFORM executa_fb08 USING /pws/zycie085-belnr_1_f05
/pws/zycie085-budat_1.
IF v_dele IS INITIAL.
IF /pws/zycie085-belnr_1_f05 EQ /pws/zycie085-belnr_2_f05.
CLEAR /pws/zycie085-belnr_2_f05.
ENDIF.
IF /pws/zycie085-belnr_1_f05 EQ /pws/zycie085-belnr_3_f05.
CLEAR /pws/zycie085-belnr_3_f05.
ENDIF.
* >> Início da inclusão: FORM DELETA_VARIACAO
CLEAR /pws/zycie085-belnr_1_f05.
* << Fim da inclusão
ENDIF.
ENDIF.
IF NOT /pws/zycie085-belnr_2_f05 IS INITIAL.
v_text = text-208.
PERFORM executa_fb08 USING /pws/zycie085-belnr_2_f05
/pws/zycie085-budat_2.
IF v_dele IS INITIAL.
IF /pws/zycie085-belnr_2_f05 EQ /pws/zycie085-belnr_3_f05.
CLEAR /pws/zycie085-belnr_3_f05.
ENDIF.
* >> Início da inclusão: FORM DELETA_VARIACAO
CLEAR /pws/zycie085-belnr_2_f05.
* << Fim da inclusão
ENDIF.
ENDIF.
IF NOT /pws/zycie085-belnr_3_f05 IS INITIAL.
v_text = text-208.
PERFORM executa_fb08 USING /pws/zycie085-belnr_3_f05
/pws/zycie085-budat_3.
* >> Início da inclusão: FORM DELETA_VARIACAO
IF v_dele IS INITIAL.
CLEAR /pws/zycie085-belnr_2_f05.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM executa_fb08 USING p_belnr
p_budat.
DATA: v_belnr_ant LIKE /pws/zycie085-belnr_0.
IF NOT p_budat IS INITIAL.
v_budat = p_budat.
ELSE.
v_budat = /pws/zycie085-dtreg.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI023
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 285
Texto: (27 caracteres)
"Taxa de conversão alterada."
Comprimento máximo: 73
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 286
Texto: (46 caracteres)
"É necessario estornar a nota para salvar a DI."
Comprimento máximo: 50