CE PLUS - Nota 007736
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 09/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:15:12
Descrição da Nota: ELIMINA AJUSTE PARA ARREDONDAMENTO NO RATEIO DE PESO DA FATURA.
Sintoma
Elimina ajuste realizado para efetuar arredondamento com cinco casas decimais no rateio do peso
liquido da fatura.
Solução
Elimina ajuste realizado para efetuar arredondamento com cinco casas decimais no rateio do peso
liquido da fatura.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07736 Data: 09/12/2008 Hora: 15:08:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07736
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07674 - 00001 - 7.0 - 00007 - ERRO DE SOMA DE PESO AO TRANSMITIR DI
----------------------------------------------------------------------------------------------------
ELIMINA AJUSTE PARA ARREDONDAMENTO NO RATEIO DE PESO DA FATURA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - PESO - ELIMINA - AJUSTE - FATURA - ARREDONDAMENTO
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
NOT /pws/zycie006-ntgew IS INITIAL.
CLEAR: v_tot_ntgew, v_tot_qtd.
LOOP AT itab_zycit263 WHERE ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp
AND eliminado EQ space.
v_tot_ntgew = itab_zycit263-ntgew + v_tot_ntgew.
v_tot_qtd = itab_zycit263-qtd_iten + v_tot_qtd.
ENDLOOP.
IF NOT v_tot_ntgew IS INITIAL AND
NOT v_tot_qtd IS INITIAL.
* >> Início da exclusão: FORM CALCULA_PESO
v_casas = v_tot_ntgew / v_tot_qtd *
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_PESO
itab_zycit003-ntgew = v_tot_ntgew / v_tot_qtd *
* << Fim da inclusão
itab_zycit003-toinv.
* >> Início da exclusão: FORM CALCULA_PESO
itab_zycit003-ntgew = v_casas.
* << Fim da exclusão
MODIFY itab_zycit003 INDEX v_tabix TRANSPORTING ntgew.
ELSE.
IF NOT itab_zycit003[] IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT nrseq ebeln ebelp ntgew qtd_iten
FROM /pws/zycit003 INTO TABLE itab_peso
...
...
READ TABLE itab_peso WITH KEY
nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
READ TABLE itab_zycit263 WITH KEY
nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp
eliminado = ' '.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM CALCULA_PESO
v_casas = itab_peso-ntgew /
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_PESO
itab_zycit003-ntgew = itab_peso-ntgew /
* << Fim da inclusão
itab_peso-qtd_iten * itab_zycit003-toinv.
* >> Início da exclusão: FORM CALCULA_PESO
itab_zycit003-ntgew = v_casas.
* << Fim da exclusão
ENDIF.
MODIFY itab_zycit003.
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.
...
...
( itab_zycit003-vlreal * itab_zycit003-toinv ).
ENDLOOP.
LOOP AT itab_zycit003.
IF sy-tabix = v_line.
itab_zycit003-ntgew = /pws/zycie006-ntgew - v_tot_ntgew.
IF itab_zycit003-ntgew < 0.
MESSAGE e015 WITH text-165 text-166.
ENDIF.
ELSE.
IF NOT v_tot_real IS INITIAL.
* >> Início da exclusão: FORM CALCULA_PESO
v_casas = /pws/zycie006-ntgew * (
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_PESO
itab_zycit003-ntgew = /pws/zycie006-ntgew * (
* << Fim da inclusão
( itab_zycit003-vlreal * itab_zycit003-toinv ) /
v_tot_real ).
* >> Início da exclusão: FORM CALCULA_PESO
itab_zycit003-ntgew = v_casas.
* << Fim da exclusão
ENDIF.
v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.
ENDIF.
MODIFY itab_zycit003.
ENDLOOP.
...
...
NOT /pws/zycie006-ntgew IS INITIAL.
CLEAR: v_tot_ntgew, v_tot_qtd.
LOOP AT itab_zycit263 WHERE ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp
AND eliminado EQ space.
v_tot_ntgew = itab_zycit263-ntgew + v_tot_ntgew.
v_tot_qtd = itab_zycit263-qtd_iten + v_tot_qtd.
ENDLOOP.
IF NOT v_tot_ntgew IS INITIAL AND
NOT v_tot_qtd IS INITIAL.
* >> Início da exclusão: FORM CALCULA_TOTAL_PLANEJADO
v_casas = v_tot_ntgew / v_tot_qtd *
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TOTAL_PLANEJADO
itab_zycit003-ntgew = v_tot_ntgew / v_tot_qtd *
* << Fim da inclusão
itab_zycit003-toinv.
* >> Início da exclusão: FORM CALCULA_TOTAL_PLANEJADO
itab_zycit003-ntgew = v_casas.
* << Fim da exclusão
MODIFY itab_zycit003 INDEX v_tabix TRANSPORTING ntgew.
ELSE.
IF NOT itab_zycit003[] IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT nrseq ebeln ebelp ntgew qtd_iten
FROM /pws/zycit003 INTO TABLE itab_peso
WHERE nrseq = itab_zycit003-nrseq.
ENDIF.
LOOP AT itab_zycit003.
READ TABLE itab_peso WITH KEY
nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* >> Início da exclusão: FORM CALCULA_TOTAL_PLANEJADO
v_casas = itab_peso-ntgew /
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TOTAL_PLANEJADO
itab_zycit003-ntgew = itab_peso-ntgew /
* << Fim da inclusão
itab_peso-qtd_iten * itab_zycit003-toinv.
* >> Início da exclusão: FORM CALCULA_TOTAL_PLANEJADO
itab_zycit003-ntgew = v_casas.
* << Fim da exclusão
MODIFY itab_zycit003.
ENDLOOP.
ENDIF.
ENDIF.
v_val_plan_tot = v_val_plan_tot + ( itab_zycit003-netpr
* itab_zycit003-toinv * v_taxa ).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
* >> Início da exclusão:
DATA: v_casas TYPE /pws/zycit245-qtd_tot.
* << Fim da exclusão
...