CE PLUS - Nota 007803
Módulo: DRAWBACK
Funcionalidade: Entrada de NF Mercado Interno
Data/Hora da Publicação: 17/12/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:32:33
Descrição da Nota: CALCULO DO VALOR TOTAL DAS NOTAS FISCAIS
Sintoma
O programa esta calculando incorretamente os valores totais das Notas fiscais de entrada.
Solução
Atualização do calculo co valor total das notas fiscais de entrada.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07803 Data: 17/12/2008 Hora: 15:01:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07803
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00077
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07261 - 00001 - 7.0 - 00006 - AJUSTE NA VINCULAÇÃO E ESTORNO DA VINCULAÇÃO AO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
CALCULO DO VALOR TOTAL DAS NOTAS FISCAIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
ENTRADA DE NOTAS FISCAIS NO MERCADO INTERNO VERDE-AMARELO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI052F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052F01
...
ENDIF.
REFRESH: itab_zycit279.
LOOP AT itab_zycit330.
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit330-ebeln
ebelp = itab_zycit330-ebelp.
IF sy-subrc EQ 0.
MOVE itab_ekpo-matnr TO /pws/zycit279-matnr.
ENDIF.
READ TABLE itab_j_1bnflin WITH KEY
itmnum = itab_zycit330-buzei.
* >> Início da exclusão: FORM SALVAR_DADOS
/pws/zycit279-vltot =
itab_zycit330-menge * itab_zycit330-netpr.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
/pws/zycit279-vltot = itab_zycit330-netwr.
* << Fim da inclusão
/pws/zycit279-ntgew = itab_zycit330-menge * itab_zycit330-ntgew.
PERFORM converte_um_ncm USING /pws/zycit279-matnr
CHANGING itab_zycit330-meins
itab_j_1bnflin-werks
itab_zycit330-menge.
/pws/zycit279-valor = /pws/zycit279-vltot / itab_zycit330-menge.
IF /pws/zycie329-tipo IS INITIAL.
PERFORM converter_moeda USING j_1bnflin-netfre
itab_zycit330-waerk
/pws/zycbt007-waersa
...