CE PLUS - Nota 000733
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 26/01/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:02:12
Descrição da Nota: RECLASSIFICAÇÃO DE IA
Sintoma
Reclassificação de IA - Quando a variação cambial é zero (taxa fatura = taxa DI) o sistema não
deveria chamar a rotina que contabiliza a variação na DI. No recebimento, o sistema também está
chamando esta rotina indevidamente.
Solução
Inserida condição para verificar quando não tiver variação.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00733 Data: 26/01/2006 Hora: 15:48:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00733
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00098
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
RECLASSIFICAÇÃO DE IA
----------------------------------------------------------------------------------------------------
Palavras Chave:
VARIAÇÃO CAMBIAL - TAXA FATURA - TAXA DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023TOP
REPS /PWS/MZYCI037F01
REPS /PWS/MZYCI037TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF e_subrc = '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF e_subrc = '0'.
* Inicio da Inclusão : FORM fill_date_f_05_variacao
IF NOT v_erro_f05 EQ 'S'. "caso não haja variação
* Fim da Inclusão : FORM fill_date_f_05_variacao
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_F_05'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_contas = itab_contas
...
...
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
* Inicio da Inclusão : FORM fill_date_f_05_variacao
ENDIF.
* Fim da Inclusão : FORM fill_date_f_05_variacao
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
v_bl,
v_changed,
v_resposta,
v_erro,
* Inicio da Inclusão
v_erro_f05,
* Fim da Inclusão
v_acto,
v_txtdisplay,
v_txtsave,
v_input,
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI037F01
...
APPEND itab_zycbe033.
PERFORM lanctos_variacao_f_05.
* Inicio da Inclusão : FORM fill_date_f_05.
CLEAR v_varia.
* Fim da Inclusão : FORM fill_date_f_05.
LOOP AT itab_zycbe035.
itab_zycbe035-wrbtr = abs( itab_zycbe035-wrbtr ).
itab_zycbe035-wrbtr1 = abs( itab_zycbe035-wrbtr ).
CLEAR: v_xblnr, v_zuonr, v_sgtxt, v_bktxt.
...
...
itab_zycbe035-d_sgtxt = itab_zycbe035-c_sgtxt = v_sgtxt.
itab_zycbe035-d_zuonr = itab_zycbe035-c_zuonr = v_zuonr.
itab_zycbe035-d_xblnr = itab_zycbe035-c_xblnr = v_xblnr.
MODIFY itab_zycbe035.
* Inicio da Inclusão : FORM fill_date_f_05.
v_varia = v_varia + itab_zycbe035-wrbtr.
* Fim da Inclusão : FORM fill_date_f_05.
ENDLOOP.
* Inicio da Exclusão : FORM fill_date_f_05.
if v_varia eq '0'.
v_erro = 'S'.
exit.
endif.
* Fim da Exclusão : FORM fill_date_f_05.
* Inicio da Inclusão : FORM fill_date_f_05.
IF NOT v_varia EQ '0'.
* Fim da Inclusão : FORM fill_date_f_05.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI037'
'ENCR001'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'ENCR001'.
...
...
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
v_erro = 'S'.
ENDIF.
ENDIF.
* Inicio da Inclusão : FORM fill_date_f_05.
ENDIF.
* Fim da Inclusão : FORM fill_date_f_05.
ENDFORM. " fill_date_f_05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI037TOP
...
v_erro(1) ,
v_matuse like /pws/zycbe035-matuse,
* v_sgtxt like bseg-sgtxt,
v_land1 like t001-land1,
* Inicio da Inclusão
v_varia like itab_zycbe035-wrbtr,
* Fim da Inclusão
v_index LIKE sy-tabix.
...