CE PLUS - Nota 004542
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 28/08/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:14:41
Descrição da Nota: MENSAGENS NA NOTA DE REMESSA - ICMS TOTAL DA OPERAÇÃO
Sintoma
Problema no campo Informações complementares da nota fiscal de remessa. São embarques com ICMS com
"recolhimento integral" na DI, sem diferimento. Na nota fiscal de remessa deve constar o valor do
ICMS total pago na Global no campo de informações complementares conforme lei, no parágrafo 3º do
artigo 336 do anexo IX do RICMS/MG.
Solução
Foi corrigido o programa da Nota Fiscal
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04542 Data: 28/08/2007 Hora: 10:48:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04542
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03302 - 00001 - 7.0 - 00001 - NA NOTA FISCAL VERIFICAR TABELA ZYCIT062 PARA NÃO INCIDÊNCIA DA D
----------------------------------------------------------------------------------------------------
MENSAGENS NA NOTA DE REMESSA - ICMS TOTAL DA OPERAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGENS NA NOTA DE REMESSA - ICMS TOTAL DA OPERAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
APPEND it_zycee006.
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.
* >> Início da exclusão: FORM MENSAGENS_NF_R
IF
( /pws/zycit085-tpdi EQ 'N' AND
'56' CA itab_zycit100-codregtriicms ) OR
( /pws/zycit085-tpdi EQ 'S' AND
'56' CA itab_zycit100-codregtri ).
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
IF ( /pws/zycit085-tpdi EQ 'N' AND
NOT ' 456' CA /pws/zycit100-codregtriicms ) OR
( /pws/zycit085-tpdi EQ 'S' AND
NOT '56' CA /pws/zycit100-codregtri ) .
* << Fim da inclusão
IF itab_zycit100_aux-icms_dif NE 'X'.
v_icms_nfr_1 = v_icms_nfr_1 + itab_zycit100_aux-vlicms .
ELSE.
v_dif = 'X'.
ENDIF.
ELSE.
CLEAR v_icms_dif.
ENDIF.
ENDLOOP.
IF NOT v_icms_nfr_1 IS INITIAL.
...