CE PLUS - Nota 007532

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 05/11/2008 00:00:00

Data/Hora Última Alteração: 09/03/2010 15:40:19

Descrição da Nota: MENSAGENS DA NOTA FISCAL ALINHAMENTO DA DESPESA ICMS

Sintoma

 

Na mensagem da Nota Fiscal não esta alinhando o valor do ICMS com os valores das outras despesas

 

Solução

 

Realizar o tratamento para alinhar o valor da Despesa ICMS na mensagem da Nota Fiscal

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 07532 Data: 05/11/2008 Hora: 16:16:58

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

 

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

Nota Número              : 07532

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00072

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

MENSAGENS DA NOTA FISCAL ALINHAMENTO DA DESPESA ICMS

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

Palavras Chave:

MENSAGEM - NOTA - FISCAL - ALINHAMENTO - ICMS

 

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

Objetos da nota:

REPS /PWS/MZYCI016F01

 

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

 

...

                                     ebeln = itab_zycit042_mark-ebeln

                                     ebelp = itab_zycit042_mark-ebelp  .

      IF sy-subrc EQ 0.

        v_icms_dif   = v_icms_dif  + itab_zycit480-vl_icms.

      ENDIF.

    ENDIF.

  ENDLOOP.

  IF v_icms_dif NE 0.

    v_ind = v_ind + 1.

    WRITE v_icms_dif TO v_dificms CURRENCY itab_zycit049-waers.

* >> Início da exclusão: FORM MENSAGENS_NF

    CONCATENATE text-078 v_dificms

* << Fim da exclusão

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

v_tamanho = '....................'.

CONCATENATE text-078 v_tamanho v_dificms

* << Fim da inclusão

    INTO it_zycee006-msg SEPARATED BY space.

    it_zycee006-indice = v_ind.

    APPEND it_zycee006.

  ENDIF.

  IF v_dif = 'X'.

    v_ind = v_ind + 1.

    it_zycee006-msg =  text-097 .

    CLEAR v_dif.

    it_zycee006-indice = v_ind.

    APPEND it_zycee006.

...