CE PLUS - Nota 010529
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 24/08/2010 00:00:00
Data/Hora Última Alteração: 10/11/2011 13:17:11
Descrição da Nota: AO FAZER CONTABILIZAÇÃO NA PRESTAÇÃO DE CONTAS, LEVA VALOR NEGATIVO.
Sintoma
Ao fazer contabilização na prestação de contas, leva valor negativo.
Solução
Corrigir rateio de despesas ao criar prestação de contas.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10529 Data: 24/08/2010 Hora: 17:09:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10529
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00036
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10171 - 00001 - 8.0 - 00003 - PRESTAÇÃO DE CONTAS NÃO VERIFICA SE COFINS É REG. INTEGRAL PARA R
----------------------------------------------------------------------------------------------------
AO FAZER CONTABILIZAÇÃO NA PRESTAÇÃO DE CONTAS, LEVA VALOR NEGATIVO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CONTABILIZAÇÃO - PRESTAÇÃO DE CONTAS - VALOR NEGATIVO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI007F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F01
...
it_lanca-lancamento = itab_zycit100-vl_sisco.
IF v_sisco_tot NE 0.
it_lanca-porcent = itab_zycit100-vl_sisco / v_sisco_tot.
ELSE.
it_lanca-porcent =
itab_zycit100-vl_sisco / it_zycit027_aux-vldp.
ENDIF.
ENDIF.
ELSEIF it_zycit027_aux-tpdesp = /pws/zycit000-cod_pis.
IF v_index = v_lines.
* >> Início da inclusão: FORM VERIFICA_ITENS
IF v_total LE it_zycit027_aux-vldp.
* << Fim da inclusão
it_lanca-lancamento = it_zycit027_aux-vldp - v_total.
* >> Início da inclusão: FORM VERIFICA_ITENS
ENDIF.
* << Fim da inclusão
CLEAR v_total.
ELSE.
IF /pws/zycit001-regime = '04' AND /pws/zycit001-tpdecl = 'DI'.
IF NOT '356' CA itab_zycit443-codregtripiscofi.
vl_imp = itab_zycit443-vlpis / v_tot_pis.
it_lanca-porcent = vl_imp.
...
...
it_lanca-porcent = vl_imp.
v_vldp_rat = ( it_zycit027_aux-vldp *
itab_zycit100-vlpis / v_tot_pis ).
it_lanca-lancamento = v_vldp_rat.
ENDIF.
ENDIF.
v_total = v_total + it_lanca-lancamento.
ENDIF.
ELSEIF it_zycit027_aux-tpdesp = /pws/zycit000-cod_cofins.
IF v_index = v_lines.
* >> Início da inclusão: FORM VERIFICA_ITENS
IF v_total LE it_zycit027_aux-vldp.
* << Fim da inclusão
it_lanca-lancamento = it_zycit027_aux-vldp - v_total.
* >> Início da inclusão: FORM VERIFICA_ITENS
ENDIF.
* << Fim da inclusão
CLEAR v_total.
ELSE.
IF /pws/zycit001-regime = '04' AND /pws/zycit001-tpdecl = 'DI'.
IF NOT '356' CA itab_zycit443-codregtripiscofi.
vl_imp = itab_zycit443-vlcofins / v_tot_cofins.
it_lanca-porcent = vl_imp.
...
...
it_zycit027_aux-vldp = it_zycit027_aux-vldp
* /pws/zycie026-taxamu.
ENDIF.
CLEAR it_despesa.
READ TABLE it_despesa WITH KEY
tpdesp = it_zycit027_aux-tpdesp.
CLEAR itab_zycit039.
READ TABLE itab_zycit039 WITH KEY
codigo = it_despesa-codigo.
IF v_index = v_lines.
* >> Início da inclusão: FORM VERIFICA_ITENS
IF v_total LE it_zycit027_aux-vldp.
* << Fim da inclusão
it_lanca-lancamento = it_zycit027_aux-vldp - v_total.
* >> Início da inclusão: FORM VERIFICA_ITENS
ENDIF.
* << Fim da inclusão
it_lanca-porcent = 1 - v_porcentagem.
CLEAR: v_total, v_porcentagem.
ELSE.
IF itab_zycit039-divabs = 'X'.
v_vldp_rat = it_zycit027_aux-vldp / v_lines.
it_lanca-lancamento = v_vldp_rat.
...