CE PLUS - Nota 010100
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 27/04/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:15:07
Descrição da Nota: CÁLCULO DO VALOR TOTAL DA ANA
Sintoma
O programa está calculando incorretamente os valores da pasta 'Carga 2'.
Solução
Correção da rotina de cálculos.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10100 Data: 27/04/2010 Hora: 11:49:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10100
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
10023 - 00001 - 8.0 - 00003 - AJUSTADO CALCULO DO SEGURO (ANA)
----------------------------------------------------------------------------------------------------
CÁLCULO DO VALOR TOTAL DA ANA
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR TOTAL USD ANA CARGA 2
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F03
...
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF itab_it-qtd_itend NE '' AND itab_it-vlreald IS INITIAL.
itab_it-vlreald = itab_it-vlreal + ( ( v_tdif *
itab_zycit003-ntgew / v_ntgew ) / itab_zycit003-qtd_iten ).
MODIFY itab_it.
ENDIF.
ENDLOOP.
LOOP AT itab_it.
* >> Início da inclusão: FORM CALC_INIT
itab_it-seq = sy-tabix.
* << Fim da inclusão
READ TABLE itab_zycit003 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF NOT itab_it-vlreald IS INITIAL.
itab_it-vlreal = itab_it-vlreald.
ENDIF.
CLEAR: v_tvaln, v_qtd_iten.
IF itab_it-qtd_itend NE ''.
v_qtd_iten = itab_it-qtd_itend.
...
...
ENDIF.
v_tntgew = v_tntgew + itab_it-ntgew.
v_tot_plan = v_tot_plan + ( v_qtd_iten * itab_it-netpr ).
v_tmle = v_tmle + ( ( v_qtd_iten * itab_it-vlreal ) *
itab_it-dttaxbem ).
v_tfrefat = v_tfrefat + itab_it-vlfre_fat.
v_rfrefat = v_rfrefat + ( itab_it-vlfre_fat * itab_it-dttaxbem ).
v_tsegfat = v_tsegfat + itab_it-vlseg_fat.
v_rsegfat = v_rsegfat + ( itab_it-vlseg_fat * itab_it-dttaxbem ).
IF p_tipo = 'I'.
* >> Início da exclusão: FORM CALC_INIT
itab_it-seq = sy-tabix.
MODIFY itab_it INDEX sy-tabix TRANSPORTING seq vlreal.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_INIT
MODIFY itab_it INDEX itab_it-seq TRANSPORTING seq vlreal.
* << Fim da inclusão
ENDIF.
IF /pws/zycie085-mdadicao = 'N'.
IF itab_it-waersbem EQ /pws/zycie085-waersfob.
v_tval = v_tval + ( v_qtd_iten * itab_it-vlreal ).
ELSE.
CLEAR: v_taxa.
PERFORM taxa_converte USING itab_it-waersbem
/pws/zycie085-dttax
CHANGING v_taxa.
IF v_taxa EQ 0 .
...