CE PLUS - Nota 000346
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 25/11/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 13:52:45
Descrição da Nota: ERRO NO EMBARQUE COM RELAÇÃO A VALORES DE NOTA DE CRÉDITO
Sintoma
O programa de Embarque estava calculando erroneamente os valores para itens que possuíam uma Nota de
Crédito como Complemento.
Solução
Correção na consulta à tabela de faturamentos, realizando os cálculos de valores corretamente tanto
para o Embarque, quanto para o RE que busca esses valores para seus cálculos.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00346 Data: 25/11/2005 Hora: 15:24:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00346
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00089
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00339 - 00001 - 6.0 - 00021 - AJUSTES NO EMBARQUE DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
ERRO NO EMBARQUE COM RELAÇÃO A VALORES DE NOTA DE CRÉDITO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CRÉDITO; NOTA; VALORES; RELAÇÃO; EMBARQUE; ERRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
arbgb = '/PWS/ZYCEM'
msgty = v_tperr
msgv1 = /pws/zycee001-nrseq
txtnr = 248
zeile = 'PRICING'.
* >> Início da exclusão: FORM ATUALIZA_RATEIO_ITENS
EXIT.
* << Fim da exclusão
ENDIF.
itab_zycet002_rat[] = itab_zycet002[].
itab_zycet008_rat[] = itab_zycet008[].
SORT itab_zycet002_rat BY nrseq vbeln_va aupos vbeln_vf posnr.
CALL FUNCTION '/PWS/ZYCE_RATEIO_EMBARQUE'
...
...
posnl = itab_docrel-posvl
vbeln_vf = itab_docrel-vbelv_vf
posnr = itab_docrel-posnv.
CHECK sy-subrc EQ 0.
CLEAR itab_zycet023.
* >> Início da exclusão: FORM ATUALIZA_RATEIO_ITENS
READ TABLE itab_zycet023 WITH KEY fkart = itab_zycet002-fkart
bukrs = itab_zycet002-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_RATEIO_ITENS
READ TABLE itab_zycet023 WITH KEY fkart = itab_002-fkart
bukrs = itab_002-bukrs.
IF sy-subrc NE 0.
READ TABLE itab_zycet023 WITH KEY fkart = itab_002-fkart.
ENDIF.
* << Fim da inclusão
IF itab_002-shkzg IS INITIAL.
IF itab_zycet023-somaqtd IS INITIAL.
itab_zycet002-brgew_r = itab_zycet002-brgew_r +
itab_002-brgew.
itab_zycet002-ntgew_r = itab_zycet002-ntgew_r +
itab_002-ntgew.
itab_zycet002-fkimg_r = itab_zycet002-fkimg_r +
itab_002-fkimg.
* >> Início da inclusão: FORM ATUALIZA_RATEIO_ITENS
ENDIF.
* << Fim da inclusão
itab_zycet002-vlemb = itab_zycet002-vlemb +
ABS( itab_002-vlfob ).
* >> Início da exclusão: FORM ATUALIZA_RATEIO_ITENS
ENDIF.
* << Fim da exclusão
ELSE.
IF itab_zycet023-somaqtd IS INITIAL.
itab_zycet002-brgew_r = itab_zycet002-brgew_r -
itab_002-brgew.
itab_zycet002-ntgew_r = itab_zycet002-ntgew_r -
itab_002-ntgew.
itab_zycet002-fkimg_r = itab_zycet002-fkimg_r -
itab_002-fkimg.
* >> Início da inclusão: FORM ATUALIZA_RATEIO_ITENS
ENDIF.
* << Fim da inclusão
itab_zycet002-vlemb = itab_zycet002-vlemb -
ABS( itab_002-vlfob ).
* >> Início da exclusão: FORM ATUALIZA_RATEIO_ITENS
ENDIF.
* << Fim da exclusão
ENDIF.
ENDLOOP.
ENDIF.
IF NOT itab_zycet002-vlacrescimo_r IS INITIAL.
ADD itab_zycet002-vlacrescimo_r TO itab_zycet002-vlemb.
...