CE PLUS - Nota 004590

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 31/08/2007 00:00:00

Data/Hora Última Alteração: 09/03/2010 10:27:18

Descrição da Nota: NOTA FISCAL DE REMESSA ICMS DIFERIDO SUSPENSÃO

Sintoma

 

Quando criamos uma nota fiscal de remessa com o ICMS diferido e logo em seguida criamos uma nota

fiscal de remessa com o ICMS suspenso, o programa esta gravando o ICMS da segunda nota como

diferido.

 

Solução

 

Adicionado um clear na variavel.

Versões Tratadas

7.0

Informações Complementares

 

----------------------------------------------------------------------------------------------------

Nota Número 04590 Data: 31/08/2007 Hora: 16:24:51

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 04590

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00013

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

----------------------------------------------------------------------------------------------------

NOTA FISCAL DE REMESSA ICMS DIFERIDO SUSPENSÃO

----------------------------------------------------------------------------------------------------

Palavras Chave:

NOTA FISCAL DE REMESSA ICMS DIFERIDO SUSPENSÃO

 

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI016F01

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI016F01

 

...

      v_cont = v_cont + 1.

      it_zycee006-indice = v_cont.

      WRITE v_icms_nfr_1 CURRENCY itab_zycit100-waersbem

          TO v_icms_nfr.

      CONCATENATE text-088 v_icms_nfr

        INTO it_zycee006-msg SEPARATED BY space.

      APPEND it_zycee006.

    ENDIF.

    IF v_dif = 'X'.

      it_zycee006-msg =  text-097 .

* >> Início da inclusão: FORM MENSAGENS_NF_R

      CLEAR v_dif.

* << Fim da inclusão

      v_cont = v_cont + 1.

      it_zycee006-indice = v_cont.

      APPEND it_zycee006.

    ENDIF.

  ENDIF.

  SELECT SINGLE *

    FROM /pws/zyglt369

    INTO wa_zyglt369

    WHERE bukrs  EQ /pws/zycit085-bukrs

     AND  branch EQ /pws/zycit085-j_1bbranch

...