CE PLUS - Nota 002530
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 28/11/2006 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:12:49
Descrição da Nota: NA MENSAGEM DA NF REMESSA, ESTÁ INFORMANDO VALOR DO ICMS DE UM ITEM.
Sintoma
a pasta mensagens da Nota Fiscal remessa está informando como valor ICMS total da Operação o valor
de ICMS de apenas um dos itens do embarque
Solução
quando parametrizado para região MG a nota fiscal remessa leva o ICMS total do processo.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02530 Data: 28/11/2006 Hora: 10:35:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02530
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00142
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01182 - 00001 - 6.0 - 00023 - 1 - O EMBARQUE POSSUI DOIS ITENS, UM COM ICMS DIFERIDO E OUTRO DR
----------------------------------------------------------------------------------------------------
NA MENSAGEM DA NF REMESSA, ESTÁ INFORMANDO VALOR DO ICMS DE UM ITEM.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF REMESSA - VALOR DO ICMS - PASTA MENSAGENS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
INTO TABLE itab_zycit003
WHERE nrseq = itab_zycit042-nrseq AND
ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp.
ENDIF.
CLEAR v_icms_nfr_1.
READ TABLE itab_zycit044 INDEX 1.
IF sy-subrc EQ 0.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
* >> Início da exclusão: FORM MENSAGENS_NF_R
READ TABLE itab_zycit100_aux WITH KEY ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
LOOP AT itab_zycit042 where docnum = itab_zycit044-DOCNUMNFG.
READ TABLE itab_zycit100_aux WITH KEY ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
* << Fim da inclusão
v_icms_nfr_1 = v_icms_nfr_1 + itab_zycit100_aux-vlicms .
* >> Início da exclusão: FORM MENSAGENS_NF_R
ENDIF.
IF itab_zycit100_aux-codregtri NE '5' AND
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
IF itab_zycit100_aux-codregtriicms NE '5' AND
* << Fim da inclusão
itab_zycit100_aux-icms_dif NE 'X'.
WRITE v_icms_nfr_1 CURRENCY itab_zycit100-waersbem TO v_icms_nfr.
* >> Início da exclusão: FORM MENSAGENS_NF_R
v_cont = v_cont + 1.
* << Fim da exclusão
CONCATENATE text-088 v_icms_nfr
INTO it_zycee006-msg SEPARATED BY space.
* >> Início da inclusão: FORM MENSAGENS_NF_R
ELSE.
CLEAR v_icms_dif.
ENDIF.
ENDLOOP.
IF sy-subrc = 0 AND
NOT v_icms_nfr_1 IS INITIAL.
v_cont = v_cont + 1.
* << Fim da inclusão
it_zycee006-indice = v_cont.
APPEND it_zycee006.
* >> Início da exclusão: FORM MENSAGENS_NF_R
ELSE.
CLEAR v_icms_dif.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
ENDIF.
* << Fim da inclusão
ENDIF.
...