CE PLUS - Nota 008402
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 13/05/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:19:47
Descrição da Nota: BASE DIFERIDA ESTÁ SENDO LANÇADA INCORRETAMENTE NAS MESNSAGENS DA NF.
Sintoma
Ao ocorrer à quebra de notas fiscais em processos que possuem itens diferidos, a base diferida da
nota criada é acumulada para as notas subseqüentes.
Solução
Realizado ajuste para limpar a variavel após a utilização do valor.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08402 Data: 13/05/2009 Hora: 13:06:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08402
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00098
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07718 - 00001 - 7.0 - 00007 - NOTAS FISCAIS MENSAGENS EM PORTUGUÊS INDEPENDENTE DO IDIOMA LOGAD
----------------------------------------------------------------------------------------------------
BASE DIFERIDA ESTÁ SENDO LANÇADA INCORRETAMENTE NAS MESNSAGENS DA NF.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - GLOBAL - BASE - DIFERIDA - MENSAGENS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
IF v_base_dif NE 0.
v_ind = v_ind + 1.
WRITE v_base_dif TO v_basedif CURRENCY itab_zycit049-waers.
CONCATENATE 'Base de Cálculo do ICMS:' v_basedif
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
it_zycee006-indice = v_ind.
APPEND it_zycee006.
* >> Início da inclusão: FORM MENSAGENS_NF
CLEAR: v_base_dif.
* << Fim da inclusão
ENDIF.
CLEAR wa_zyglt369.
SELECT SINGLE *
FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
AND branch EQ /pws/zycit085-j_1bbranch
AND urfdesp EQ /pws/zycit085-urfdesp.
IF sy-subrc EQ 0 .
CONCATENATE wa_zyglt369-bukrs wa_zyglt369-branch
...
...
APPEND it_zycee006.
ENDIF.
v_idm = it_zycee006-indice.
IF v_base_dif NE 0.
v_idm = v_idm + 1.
it_zycee006-indice = v_idm.
WRITE v_base_dif TO v_basedif CURRENCY itab_zycit049-waers.
CONCATENATE 'Base de Cálculo do ICMS:' v_basedif
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
* >> Início da inclusão: FORM MENSAGENS_NF_R
CLEAR: v_base_dif.
* << Fim da inclusão
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.
LOOP AT itab_zycit042 WHERE docnum = itab_zycit044-docnumnfg.
READ TABLE itab_zycit100_aux WITH KEY ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF ( /pws/zycit085-tpdi EQ 'N' AND
...