CE PLUS - Nota 003903
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 12/06/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:32:17
Descrição da Nota: ESTÁ RATEANDO O VALOR DO ICMS INCORRETAMENTE NA PRESTAÇÃO DE CONTAS.
Sintoma
Na aprovação da prestação de contas de ICMS (somente para o item 20), a visualização do rateio
aparece o item 10 (com o valor suspenso do ICMS) e o item 20 com um valor incorreto.
Solução
considerar a suspensão do icms para fazer o rateio das despesas.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03903 Data: 12/06/2007 Hora: 17:31:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03903
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
ESTÁ RATEANDO O VALOR DO ICMS INCORRETAMENTE NA PRESTAÇÃO DE CONTAS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - VALOR DO ICMS - PRESTAÇÃO DE CONTAS - SUSPENSÃO
REGIME TRIBUTÁRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_RATEIO_CUSTO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO
...
/pws/zycit019-codigo EQ 'COFINS' OR
/pws/zycit019-codigo EQ 'PIS' OR
( /pws/zycit000-cod_sisc EQ itab_despesa-tpdesp AND
NOT /pws/zycit000-flag_txsisc IS INITIAL ) ) AND
NOT itab_zycit100a[] IS INITIAL.
IF /pws/zycit019-codigo = 'ICMS' AND
NOT v_tot_icms IS INITIAL.
READ TABLE itab_zycit100a WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF sy-subrc EQ 0 and not '156' ca
itab_zycit100a-codregtriicms .
* << Fim da inclusão
itab_zycit036_aux-vlreal = ( itab_zycit100a-vlicms /
v_tot_icms ) * itab_despesa-netpr.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
ELSEIF /pws/zycit019-codigo = 'IPI' AND
NOT v_tot_ipi IS INITIAL.
READ TABLE itab_zycit100a WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0 AND
...