CE PLUS - Nota 009089
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 25/09/2009 00:00:00
Data/Hora Última Alteração: 04/04/2013 11:30:24
Descrição da Nota: DIFERENÇA NO VALOR TOTAL ENTRE A NF GLOBAL E REMESSA.
Sintoma
O valor total da nota fiscal de remessa está diferente da nota fiscal global.
Solução
Ajustada nota fiscal de remessa para buscar as informaçoes dos impostos da mesma forma que a nota
fiscal global.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09089 Data: 25/09/2009 Hora: 10:36:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09089
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08149 - 00001 - 7.0 - 00008 - VALOR DE FRETE E SEGURO COM DIFERENÇA DE CENTAVOS
08953 - 00002 - 8.0 - 00001 - TRAMENTO PARA DIFERENÇA DE CENTAVOS DEVIDO RATEIO DE DESPESAS
----------------------------------------------------------------------------------------------------
DIFERENÇA NO VALOR TOTAL ENTRE A NF GLOBAL E REMESSA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DIFERENÇA - TOTAL - NOTA - FISCAL - NF - GLOBAL - REMESSA
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
CLEAR: v_outras_ic, v_impostos,
v_despesas, v_ipi, v_icms.
IF /pws/zycbt007-waersb IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie041-bukrs.
ENDIF.
* >> Início da inclusão: FORM VALORES_R
READ TABLE itab_zycit100 WITH KEY
nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
* << Fim da inclusão
LOOP AT itab_zycit036
WHERE ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
READ TABLE itab_zycit036_di
WITH KEY ebeln = itab_zycit036-ebeln
ebelp = itab_zycit036-ebelp
codigo = itab_zycit036-codigo.
IF itab_zycit036-codigo = 'FRETEI'.
* >> Início da inclusão: FORM VALORES_R
IF /pws/zycit062-arbase EQ 'X' AND
NOT itab_zycit036_di-vlmov IS INITIAL.
* << Fim da inclusão
it_zycee007-netfre =
* >> Início da inclusão: FORM VALORES_R
( itab_zycit100-vlfre / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
ELSE.
it_zycee007-netfre =
* << Fim da inclusão
( itab_zycit036_di-vlmov / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
* >> Início da inclusão: FORM VALORES_R
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit036-codigo = 'SEGURO'.
* >> Início da inclusão: FORM VALORES_R
IF /pws/zycit062-arbase EQ 'X' AND
NOT itab_zycit036_di-vlmov IS INITIAL.
it_zycee007-netins =
( itab_zycit100-vlseg / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
ELSE.
* << Fim da inclusão
it_zycee007-netins =
( itab_zycit036_di-vlmov / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
* >> Início da inclusão: FORM VALORES_R
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit036-codigo = 'II'.
* >> Início da inclusão: FORM VALORES_R
IF /pws/zycit062-arbase EQ 'X' AND
NOT itab_zycit036_di-vlreal IS INITIAL.
it_zycee007-netins =
( itab_zycit100-vlii / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
ELSE.
* << Fim da inclusão
v_despesas = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
* >> Início da inclusão: FORM VALORES_R
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit036-codigo = 'IPI'.
* >> Início da inclusão: FORM VALORES_R
IF /pws/zycit062-arbase EQ 'X' AND
NOT itab_zycit036_di-vlreal IS INITIAL.
it_zycee007-netins =
( itab_zycit100-vlipi / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
ELSE.
* << Fim da inclusão
v_ipi = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
* >> Início da inclusão: FORM VALORES_R
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit036-codigo = 'ICMS'.
* >> Início da inclusão: FORM VALORES_R
IF /pws/zycit062-arbase EQ 'X' AND
NOT itab_zycit036_di-vlreal IS INITIAL.
it_zycee007-netins =
( itab_zycit100-vlicms / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
ELSE.
* << Fim da inclusão
v_icms = ( itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item ).
* >> Início da inclusão: FORM VALORES_R
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
READ TABLE itab_zycit100 WITH KEY
nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
...