CE PLUS - Nota 005107
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 30/10/2007 00:00:00
Data/Hora Última Alteração: 21/02/2011 13:24:47
Descrição da Nota: NO DRAFT DA NF REMESSA, O VALOR DO ICMS ESTÁ INCORRETO
Sintoma
Erro no DRAFT da Nota fiscal de Remessa. No DRAFT da primeira nota fiscal de remessa, campo
OBSERVAÇÕES apresentou o valor total do ICMS calculado na DI. Porém nas 2ª e 3ª notas de remessa
não apresentou a informação do ICMS total.
Solução
ajustar verificação de campos.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05107 Data: 30/10/2007 Hora: 11:26:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05107
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00019
----------------------------------------------------------------------------------------------------
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
04542 - 00002 - 7.0 - 00003 - MENSAGENS NA NOTA DE REMESSA - ICMS TOTAL DA OPERAÇÃO
----------------------------------------------------------------------------------------------------
NO DRAFT DA NF REMESSA, O VALOR DO ICMS ESTÁ INCORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DRAFT - NF REMESSA - VALOR ICMS - ICMS TOTAL.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
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
* >> Início da exclusão: FORM MENSAGENS_NF_R
NOT ' 456' CA /pws/zycit100-codregtriicms ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
NOT ' 456' CA itab_zycit100_aux-codregtriicms ) OR
* << Fim da inclusão
( /pws/zycit085-tpdi EQ 'S' AND
* >> Início da exclusão: FORM MENSAGENS_NF_R
NOT '56' CA /pws/zycit100-codregtri ) .
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
NOT '56' CA itab_zycit100_aux-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.
...