CE PLUS - Nota 003197
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 07/03/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:13:37
Descrição da Nota: AO FAZER A NOTA FISCAL NÃO LEVOU A ALIQUOTA DO ICMS.
Sintoma
Ao fazer a Nota Fiscal não levou a aliquota do ICMS.
Erro só ocorre quando o processo é de DSI.
Solução
corrigir tratamento de regime tributário.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03197 Data: 07/03/2007 Hora: 11:15:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03197
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03178 - 00001 - 6.0 - 00026 - NECESSÁRIO FAZER TRATAMENTO DA DSI E NF GLOBAL COM REGIME SUSPENS
----------------------------------------------------------------------------------------------------
AO FAZER A NOTA FISCAL NÃO LEVOU A ALIQUOTA DO ICMS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL - ALIQUOTA - ICMS - VALOR FISCAL
REGIME TRIBUTÁRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/ZYCIR035
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
ENDIF.
ENDFORM.
FORM atualiza_icms_unitario.
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
IF NOT /pws/zycit100-vlicms IS INITIAL AND
NOT /pws/zycit100-icms_dif = 'X'
* >> Início da exclusão: FORM ATUALIZA_ICMS_UNITARIO
AND NOT /pws/zycit100-codregtriicms EQ '5'
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ICMS_UNITARIO
AND ( NOT /pws/zycit100-codregtriicms EQ '5' or
NOT /pws/zycit100-codregtriicms EQ ' ' )
* << Fim da inclusão
AND NOT /pws/zycit100-codregtri EQ '6'.
IF /pws/zycit062-tred IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr + ( (
/pws/zycit100-vlicms / itab_zycit042-qtd_iten )
* 100 ) / itab_zycit003-basred.
ELSE.
itab_zycit042-netpr = itab_zycit042-netpr +
( /pws/zycit100-vlicms / itab_zycit042-qtd_iten ).
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR035
...
/pws/zycit093-waersfre 0 CHANGING wa_036.
MOVE wa_036 TO itab_zycit036.
PERFORM retorna_decimais USING itab_zycit036-waers_real
CHANGING itab_zycit036-vlreal.
itab_zycit036-usernamec = sy-uname.
itab_zycit036-dtuserc = sy-datum.
itab_zycit036-hruserc = sy-uzeit.
APPEND itab_zycit036.
ENDIF.
IF /pws/zycit100-codregtri NE '3' AND
* >> Início da exclusão: FORM CRIA_DESPESAS
/pws/zycit100-codregtri NE '5' and
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_DESPESAS
/pws/zycit100-codregtri NE '5' or
* << Fim da inclusão
( /pws/zycit100-codregtri NE ' ' and
/pws/zycit100-codregtri EQ '1' ).
PERFORM entra_despesa USING it_desp 'II' it_desp-vlii
/pws/zycbt007-waersb
it_desp-advalii CHANGING wa_036.
MOVE wa_036 TO itab_zycit036.
itab_zycit036-usernamec = sy-uname.
itab_zycit036-dtuserc = sy-datum.
itab_zycit036-hruserc = sy-uzeit.
APPEND itab_zycit036.
ENDIF.
IF /pws/zycit100-codregtriipi NE '1' AND
* >> Início da exclusão: FORM CRIA_DESPESAS
/pws/zycit100-codregtriipi NE '5' and
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_DESPESAS
/pws/zycit100-codregtriipi NE '5' or
* << Fim da inclusão
( /pws/zycit100-codregtriipi EQ ' ' and
/pws/zycit100-CODREGTRI EQ '1' ).
PERFORM entra_despesa USING it_desp 'IPI' it_desp-vlipi
/pws/zycbt007-waersb
it_desp-advalipi CHANGING wa_036.
MOVE wa_036 TO itab_zycit036.
itab_zycit036-usernamec = sy-uname.
itab_zycit036-dtuserc = sy-datum.
itab_zycit036-hruserc = sy-uzeit.
APPEND itab_zycit036.
ENDIF.
IF /pws/zycit100-codregtriicms NE '3' AND
/pws/zycit100-codregtriicms NE '5' AND
* >> Início da exclusão: FORM CRIA_DESPESAS
/pws/zycit100-codregtri NE '6' and
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_DESPESAS
/pws/zycit100-codregtri NE '6' or
* << Fim da inclusão
( /pws/zycit100-codregtriicms EQ ' ' and
/pws/zycit100-CODREGTRI EQ '1' ).
PERFORM entra_despesa USING it_desp 'ICMS' it_desp-vlicms
/pws/zycbt007-waersb
it_desp-aliqicms CHANGING wa_036.
MOVE wa_036 TO itab_zycit036.
itab_zycit036-usernamec = sy-uname.
itab_zycit036-dtuserc = sy-datum.
itab_zycit036-hruserc = sy-uzeit.
APPEND itab_zycit036.
ENDIF.
IF /pws/zycit100-codregtripiscofi NE '3' AND
* >> Início da exclusão: FORM CRIA_DESPESAS
/pws/zycit100-codregtripiscofi NE '5' and
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_DESPESAS
/pws/zycit100-codregtripiscofi NE '5' or
* << Fim da inclusão
( /pws/zycit100-codregtripiscofi NE ' ' and
/pws/zycit100-codregtripiscofi EQ '1' ).
PERFORM entra_despesa USING it_desp 'PIS' it_desp-vlpis
/pws/zycbt007-waersb v_aliq CHANGING wa_036.
MOVE wa_036 TO itab_zycit036. APPEND itab_zycit036.
PERFORM entra_despesa USING it_desp 'COFINS' it_desp-vlcofins
/pws/zycbt007-waersb v_aliq CHANGING wa_036.
MOVE wa_036 TO itab_zycit036. APPEND itab_zycit036.
ENDIF.
ENDLOOP.
...