CE PLUS - Nota 007484
Módulo: DRAWBACK
Funcionalidade: Entrada de NF Mercado Interno
Data/Hora da Publicação: 27/10/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:35:04
Descrição da Nota: CONVERSÃO DE MOEDAS.
Sintoma
Quando temos processos com mais de um item, o programa esta convertendo os calores apenas do
primeiro item.
Solução
Atualização da rotina de conversão de moedas no programa de entrada de nf's no mercado interno.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07484 Data: 27/10/2008 Hora: 17:14:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07484
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00071
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07401 - 00001 - 7.0 - 00007 - ADEQUAÇÃO A PORTARIA N° 21 DE 24.09.2008
----------------------------------------------------------------------------------------------------
CONVERSÃO DE MOEDAS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ENTRADA DE NOTAS FISCAIS NO MERCADO INTERNO CONVERSÃO MOEDAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI052F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052F01
...
SELECT * FROM j_1baj INTO TABLE itab_j_1baj. "#EC CI_NOWHERE
SELECT * FROM j_1bnfstx
INTO TABLE itab_j_1bnfstx
FOR ALL ENTRIES IN itab_zycit330
WHERE docnum EQ itab_zycit330-docnum
AND itmnum EQ itab_zycit330-buzei.
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt007 WHERE
bukrs = j_1bnfdoc-bukrs.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM SALVAR_DADOS
SELECT SINGLE * FROM /pws/zycbt007 . "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
SELECT SINGLE * FROM /pws/zycbt007 . "#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
ENDIF.
IF NOT itab_zycit279_d[] IS INITIAL.
LOOP AT itab_zycit279_d.
READ TABLE itab_zycit330_des
WITH KEY docnum = itab_zycit279_d-docnum
buzei = itab_zycit279_d-buzei.
READ TABLE itab_zycit245_des
WITH KEY nrseqd = itab_zycit330_des-nrseqd
nritem = itab_zycit330_des-nritem.
...
...
IF sy-subrc NE 0.
MESSAGE i015 WITH text-289 j_1bnflin-werks.
LEAVE TO TRANSACTION sy-tcode.
ENDIF.
IF /pws/zycie329-tipo IS INITIAL.
PERFORM converter_moeda USING j_1bnflin-netwr
itab_zycit330-waerk
/pws/zycbt007-waersa
/pws/zycie329-docdat
CHANGING itab_zycit330-netwr.
* >> Início da exclusão: FORM CARREGA_DADOS
/pws/zycie329-waerk = itab_zycit330-waerk =
/pws/zycbt007-waersa.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
itab_zycit330-waerk = /pws/zycbt007-waersa.
* << Fim da inclusão
ELSE.
itab_zycit330-netwr = j_1bnflin-netwr.
ENDIF.
IF /pws/zycie329-cicms IS INITIAL.
itab_zycit330-netpr = itab_zycit330-netwr / j_1bnflin-menge.
ELSE.
SELECT SINGLE j_1bnfstx~taxval
FROM ( j_1bnfstx INNER JOIN j_1baj
ON j_1bnfstx~taxtyp = j_1baj~taxtyp )
INTO v_othbas "#EC CI_BUFFJOIN
WHERE j_1bnfstx~docnum EQ j_1bnflin-docnum
AND j_1bnfstx~itmnum EQ j_1bnflin-itmnum
AND j_1baj~taxgrp EQ 'ICMS'.
itab_zycit330-netwr = itab_zycit330-netwr + v_othbas.
itab_zycit330-netpr = itab_zycit330-netwr / j_1bnflin-menge.
ENDIF.
APPEND itab_zycit330.
ENDLOOP.
* >> Início da inclusão: FORM CARREGA_DADOS
/pws/zycie329-waerk = /pws/zycbt007-waersa.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM blaettern USING p_tccurr p_tclins p_itlin p_okcode
CHANGING nextline.
DATA: b_overlapping(1) TYPE c VALUE 'X'.
IF p_itlin EQ 0.
EXIT.
ENDIF.
CALL FUNCTION 'SCROLLING_IN_TABLE'
...