CE PLUS - Nota 008973
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 08/09/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:24:35
Descrição da Nota: RATEIO DO PESO BRUTO NA NOTA FISCAL DE REMESSA
Sintoma
O peso bruto lançado no cabeçalho da nota fiscal de remessa não bate com o informado no BL.
Solução
Ajustado programa de rateio para aplicar a diferença no rateio do peso bruto no ultimo item do
processo.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08973 Data: 08/09/2009 Hora: 13:31:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08973
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00114
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
RATEIO DO PESO BRUTO NA NOTA FISCAL DE REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - PESO - BRUTO - NOTA - FISCAL - REMESSA
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM peso_remessa_n.
* >> Início da inclusão: FORM PESO_REMESSA_N
DATA: v_brgewtot TYPE j_1bnfdoc-brgew,
v_ebeln TYPE /pws/zycit003-ebeln ,
v_ebelp TYPE /pws/zycit003-ebelp .
DATA: local_tntgew LIKE itab_zycit003_aux-ntgew.
* << Fim da inclusão
* >> Início da exclusão: FORM PESO_REMESSA_N
DATA: local_tntgew LIKE itab_zycit003_aux-ntgew.
* << Fim da exclusão
LOOP AT itab_zycit003_aux.
local_tntgew = local_tntgew + itab_zycit003_aux-ntgew.
ENDLOOP.
READ TABLE itab_zycit044 INDEX 1.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi = itab_zycit044-nrseqnf.
SELECT SINGLE * FROM /pws/zycit093
WHERE nrseqce = /pws/zycit085-nrbl.
* >> Início da inclusão: FORM PESO_REMESSA_N
SORT itab_zycit003_aux BY ebeln ebelp DESCENDING.
READ TABLE itab_zycit003_aux INDEX 1.
v_ebeln = itab_zycit003_aux-ebeln.
v_ebelp = itab_zycit003_aux-ebelp.
IF v_graneis EQ 'S'.
IF NOT /pws/zycit093-brgewd IS INITIAL.
/pws/zycit093-brgew = /pws/zycit093-brgewd.
ENDIF.
ENDIF.
LOOP AT itab_zycit003_aux.
IF ( itab_zycit003_aux-ebeln EQ v_ebeln AND
itab_zycit003_aux-ebelp EQ v_ebelp ) .
ELSE.
IF NOT local_tntgew IS INITIAL .
IF NOT itab_zycit003_aux-ntgewd IS INITIAL.
v_brgewtot = v_brgewtot +
( ( itab_zycit003_aux-ntgewd / local_tntgew ) *
/pws/zycit093-brgew ).
ELSE.
v_brgewtot = v_brgewtot +
( ( itab_zycit003_aux-ntgew / local_tntgew ) *
/pws/zycit093-brgew ).
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
* << Fim da inclusão
CLEAR: v_ntgew, v_brgew.
LOOP AT itab_zycit044.
LOOP AT itab_zycit003
WHERE ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
v_ntgew = v_ntgew +
( ( itab_zycit003-ntgew / itab_zycit044-menge ) *
itab_zycit044-qtd_item ).
* >> Início da inclusão: FORM PESO_REMESSA_N
IF ( itab_zycit044-ebeln EQ v_ebeln AND
itab_zycit044-ebelp EQ v_ebelp ) .
v_brgew = v_brgew + ( ( /pws/zycit093-brgew - v_brgewtot )
/ itab_zycit044-menge * itab_zycit044-qtd_item ).
ELSE.
* << Fim da inclusão
v_brgew = v_brgew + ( ( ( itab_zycit003-ntgew / local_tntgew ) *
/pws/zycit093-brgew ) / itab_zycit044-menge *
itab_zycit044-qtd_item ) .
* >> Início da inclusão: FORM PESO_REMESSA_N
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDLOOP.
it_zycee005-ntgew = v_ntgew.
it_zycee005-brgew = v_brgew.
...