CE PLUS - Nota 011600
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 01/11/2011 00:00:00
Data/Hora Última Alteração: 26/11/2012 15:02:35
Descrição da Nota: LEVA VALORES ERRADO AO CRIAR NF REMESSA.
Sintoma
Leva valores errado ao criar NF Remessa quando marca vários itens.
Solução
Verificar itens da Remessa.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11600 Data: 01/11/2011 Hora: 09:41:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11600
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00092
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05719 - 00001 - 7.0 - 00004 - OPERAÇÃO FUNDAP (PARTE II)
08367 - 00002 - 7.0 - 00009 - AJUSTE PARA LANÇAR PIS E COFINS NA PASTA DE IMPOSTOS DA NF REMESS
11227 - 00003 - 8.0 - 00007 - NÃO APRESENTA A LINHA DO COFINS NA NF REMESSA
11494 - 00004 - 8.0 - 00009 - ACRESCENTAR TRATAMENTO PARA LINHA DO II NA NF.
----------------------------------------------------------------------------------------------------
LEVA VALORES ERRADO AO CRIAR NF REMESSA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA - VALORES - IMPOSTOS - CRIAÇÃO - VÁRIOS ITENS.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
* >> Início da exclusão: FORM ITENS_NFRNEW
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
CLEAR itab_zycit398[] .
REFRESH itab_zycit398[] .
* << Fim da inclusão
...
...
READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
it_zycee007-leicofins = itab_zycit398-leicofins.
ENDIF.
itab_zycit100-basepis = itab_zycit100-basecofins =
itab_zycit100-basecofins /
itab_zycit044-menge * itab_zycit044-qtd_item.
IF NOT itab_zycit100-vlpis IS INITIAL.
CLEAR itab_zycit036.
* >> Início da exclusão: FORM ITENS_NFRNEW
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp
* << Fim da inclusão
codigo = 'PIS'.
it_zycee007-taxval_pis = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
ELSE.
CLEAR it_zycee007-taxval_pis .
ENDIF.
...
...
WHEN 3.
v_montante1 = itab_zycit100-basepis.
it_zycee007-othbas_pis = v_montante1.
ENDCASE.
READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
it_zycee007-leicofins = itab_zycit398-leicofins.
ENDIF.
IF NOT itab_zycit100-vlcofins IS INITIAL.
CLEAR itab_zycit036.
* >> Início da inclusão: FORM ITENS_NFRNEW
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit044-nrseq
* << Fim da inclusão
* >> Início da exclusão: FORM ITENS_NFRNEW
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp
* << Fim da inclusão
codigo = 'COFINS'.
it_zycee007-taxval_cof = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
ELSE .
CLEAR it_zycee007-taxval_cof .
ENDIF.
...
...
READ TABLE itab_zycit398 WITH KEY tributos = 'ICMSST'.
IF sy-subrc EQ 0.
IF NOT itab_zycit100-vlicms_st IS INITIAL.
CLEAR itab_zycit036.
* >> Início da exclusão: FORM ITENS_NFRNEW
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp
* << Fim da inclusão
codigo = 'ICMSST'.
it_zycee007-taxval_st = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
ELSE .
CLEAR it_zycee007-taxval_st .
ENDIF.
it_zycee007-taxtyp_st = itab_zycit398-taxtyp.
IF NOT it_zycee007-taxval_st IS INITIAL.
it_zycee007-rate_st = itab_zycit100-aliq_icms_st.
ENDIF.
...
...
ELSE.
CLEAR it_zycee007-taxtyp_st.
ENDIF.
READ TABLE itab_zycit398 WITH KEY tributos = 'II'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM ITENS_NFRNEW
it_zycee007-taxtyp_ii = itab_zycit398-taxtyp.
ELSE.
CLEAR it_zycee007-taxtyp_ii.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
IF NOT itab_zycit100-vlii IS INITIAL.
CLEAR itab_zycit036.
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp
codigo = 'II'.
it_zycee007-taxval_ii = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
ELSE .
CLEAR it_zycee007-taxval_ii .
ENDIF.
ELSE .
CLEAR it_zycee007-taxval_ii .
* << Fim da inclusão
ENDIF.
IF NOT it_zycee007-taxval_ii IS INITIAL.
* >> Início da inclusão: FORM ITENS_NFRNEW
it_zycee007-taxtyp_ii = itab_zycit398-taxtyp.
* << Fim da inclusão
it_zycee007-rate_ii = itab_zycit003-advalii.
ENDIF.
CASE itab_zycit398-tribpiscof.
...
...
FORM adiciona_outros_impostos.
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
CLEAR itab_zycit398.
REFRESH itab_zycit398.
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM ADICIONA_OUTROS_IMPOSTOS
DATA: BEGIN OF itab_zycit398 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit398.
DATA: END OF itab_zycit398.
* << Fim da exclusão
...
...
FORM valores_fundap_r.
* >> Início da exclusão: FORM VALORES_FUNDAP_R
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_FUNDAP_R
clear itab_zycit398 .
refresh itab_zycit398.
* << Fim da inclusão
...