CE PLUS - Nota 004607
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 03/09/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:15:09
Descrição da Nota: MENSAGEM DA NOTA FISCAL GLOBAL ICMS INTEGRAL
Sintoma
Para embarques com mais de um item, consumo ou industrialização, cujo ICMS é recolhimento integral,
no campo observações aparece o valor do ICMS somente do último item. No campo do valor do ICMS da
nota está correto, erro somente em OBSERVAÇÕES.
Solução
Foi corrigido o pw.CE para pegar a informação correta
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04607 Data: 03/09/2007 Hora: 15:58:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04607
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00011
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04590 - 00001 - 7.0 - 00003 - NOTA FISCAL DE REMESSA ICMS DIFERIDO SUSPENSÃO
----------------------------------------------------------------------------------------------------
MENSAGEM DA NOTA FISCAL GLOBAL ICMS INTEGRAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM DA NOTA FISCAL GLOBAL ICMS INTEGRAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
v_tamanho = '............................'.
CLEAR v_vldp_x.
IF NOT v_vlcofins IS INITIAL.
MOVE: v_vlcofins TO itab_zycit049_aux_r-vldp,
itab_zycit049_aux_r-vldp TO v_vldp_x.
CONCATENATE text-087 v_tamanho v_vldp_x
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
* >> Início da inclusão: FORM MENSAGENS_NF
clear v_icms_dif.
* << Fim da inclusão
LOOP AT itab_zycit042_mark.
READ TABLE itab_zycit100 WITH KEY
nrseq = itab_zycit042_mark-nrseq
ebeln = itab_zycit042_mark-ebeln
ebelp = itab_zycit042_mark-ebelp .
IF sy-subrc EQ 0 AND
( /pws/zycit085-tpdi EQ 'N' AND
'56' CA itab_zycit100-codregtriicms ) OR
( /pws/zycit085-tpdi EQ 'S' AND
'56' CA itab_zycit100-codregtri ).
IF itab_zycit100-icms_dif NE 'X'.
* >> Início da exclusão: FORM MENSAGENS_NF
v_icms_dif = itab_zycit100-vlicms.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
v_icms_dif = v_icms_dif + itab_zycit100-vlicms.
* << Fim da inclusão
ELSE.
v_dif = 'X'.
ENDIF.
ENDIF.
ENDLOOP.
CLEAR itab_zycit042_mark[].
REFRESH itab_zycit042_mark[].
IF v_icms_dif NE 0.
v_ind = v_ind + 1.
WRITE v_icms_dif TO v_dificms CURRENCY itab_zycit049-waers.
...