CE PLUS - Nota 004911
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 04/10/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:53:02
Descrição da Nota: PRESTAÇÃO DE CONTAS DIFERENÇA VALOR DOCUMENTO CONTÁBIL
Sintoma
No documento contábil gerado pela PC o valor do PIS contabilizado é de 1.657,00, sendo que o valor
informado na PC é de 1.657,01, diferença de 0,01.
Solução
Acumular em uma variável com 2 (duas) decimais e depois mover esta para o campo da tabela interna
IT_LANCA-LANCAMENTO que possui 7 (sete) decimais.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04911 Data: 04/10/2007 Hora: 17:28:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04911
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00016
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PRESTAÇÃO DE CONTAS DIFERENÇA VALOR DOCUMENTO CONTÁBIL
----------------------------------------------------------------------------------------------------
Palavras Chave:
DIFERENÇA VALOR DOCUMENTO CONTÁBIL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI007F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F01
...
DESCRIBE TABLE it_item LINES v_lines.
LOOP AT it_zycit027_aux.
LOOP AT it_item.
CLEAR v_vldp_rat.
READ TABLE it_zycit003 WITH KEY
nrseq = it_item-nrseq
ebeln = it_item-ebeln
ebelp = it_item-ebelp.
CLEAR it_lanca.
v_index = sy-tabix.
READ TABLE it_item_aux2 WITH KEY nrseq = /pws/zycie026-nrseq.
IF sy-subrc EQ 0.
it_lanca-nrseq = it_item-nrseq . " Número Seq.
it_lanca-gsber = it_item-gsber . " Divisão
it_lanca-matuse = it_item-matuse. " Util. Material
it_lanca-vlitem = it_item-vlitem. " Valor iten
it_lanca-bklas = it_item-bklas . " Classe Aval.
it_lanca-knttp = it_item-knttp .
it_lanca-ebeln = it_item-ebeln .
it_lanca-ebelp = it_item-ebelp .
IF it_item-matuse EQ '3'.
it_lanca-ps_psp_pnr = it_item-ps_psp_pnr.
it_lanca-aufnr = it_item-aufnr .
ENDIF.
CLEAR itab_zycit100.
READ TABLE itab_zycit100 WITH KEY nrseq = it_item-nrseq
ebeln = it_item-ebeln
ebelp = it_item-ebelp.
it_lanca-tpdesp = it_zycit027_aux-tpdesp.
IF it_zycit027_aux-tpdesp = '001'. "IPI
IF v_index = v_lines.
it_lanca-lancamento = it_zycit027_aux-vldp - v_total.
CLEAR v_total.
ELSE.
vl_imp = itab_zycit100-vlipi / v_tot_ipi.
it_lanca-porcent = vl_imp.
* >> Início da inclusão: FORM VERIFICA_ITENS
v_vldp_rat = ( it_zycit027_aux-vldp *
itab_zycit100-vlipi / v_tot_ipi ).
it_lanca-lancamento = v_vldp_rat .
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_ITENS
* it_lanca-lancamento = ( it_zycit027_aux-vldp *
* itab_zycit100-vlipi / v_tot_ipi )
*.
* << Fim da exclusão
v_total = v_total + it_lanca-lancamento.
ENDIF.
ELSEIF it_zycit027_aux-tpdesp = '002'. "ICMS
IF v_index = v_lines.
it_lanca-lancamento = it_zycit027_aux-vldp - v_total.
CLEAR v_total.
ELSE.
vl_imp = itab_zycit100-vlicms / v_tot_icms.
it_lanca-porcent = vl_imp.
* >> Início da inclusão: FORM VERIFICA_ITENS
v_vldp_rat = ( it_zycit027_aux-vldp *
itab_zycit100-vlicms / v_tot_icms ).
IT_LANca-lancamento = v_vldp_rat.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_ITENS
* it_lanca-lancamento = ( it_zycit027_aux-vldp *
* itab_zycit100-vlicms / v_tot_icms )
*.
* << Fim da exclusão
v_total = v_total + it_lanca-lancamento.
ENDIF.
ELSEIF it_zycit027_aux-tpdesp = '003'. "II
IF v_index = v_lines.
it_lanca-lancamento = it_zycit027_aux-vldp - v_total.
CLEAR v_total.
ELSE.
vl_imp = itab_zycit100-vlii / v_tot_ii.
it_lanca-porcent = vl_imp.
* >> Início da inclusão: FORM VERIFICA_ITENS
v_vldp_rat = ( it_zycit027_aux-vldp *
itab_zycit100-vlii / v_tot_ii ).
it_lanca-lancamento = v_vldp_rat.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_ITENS
* it_lanca-lancamento = ( it_zycit027_aux-vldp *
* itab_zycit100-vlii / v_tot_ii )
*.
* << Fim da exclusão
v_total = v_total + it_lanca-lancamento.
ENDIF.
ELSEIF it_zycit027_aux-tpdesp = /pws/zycit000-cod_sisc AND
NOT /pws/zycit000-flag_txsisc IS INITIAL.
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.
ELSEIF it_zycit027_aux-tpdesp = /pws/zycit000-cod_pis. "PIS
IF v_index = v_lines.
it_lanca-lancamento = it_zycit027_aux-vldp - v_total.
CLEAR v_total.
ELSE.
vl_imp = itab_zycit100-vlpis / v_tot_pis.
it_lanca-porcent = vl_imp.
* >> Início da inclusão: FORM VERIFICA_ITENS
v_vldp_rat = ( it_zycit027_aux-vldp *
itab_zycit100-vlpis / v_tot_pis ).
it_lanca-lancamento = v_vldp_rat.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_ITENS
* it_lanca-lancamento = ( it_zycit027_aux-vldp *
* itab_zycit100-vlpis / v_tot_pis ).
* << Fim da exclusão
v_total = v_total + it_lanca-lancamento.
ENDIF.
ELSEIF it_zycit027_aux-tpdesp = /pws/zycit000-cod_cofins."Cofins
IF v_index = v_lines.
it_lanca-lancamento = it_zycit027_aux-vldp - v_total.
CLEAR v_total.
ELSE.
vl_imp = itab_zycit100-vlcofins / v_tot_cofins.
it_lanca-porcent = vl_imp.
* >> Início da inclusão: FORM VERIFICA_ITENS
v_vldp_rat = ( it_zycit027_aux-vldp *
itab_zycit100-vlcofins / v_tot_cofins ).
it_lanca-lancamento = v_vldp_rat.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_ITENS
* it_lanca-lancamento = ( it_zycit027_aux-vldp *
* itab_zycit100-vlcofins / v_tot_cofins ).
* << Fim da exclusão
v_total = v_total + it_lanca-lancamento.
ENDIF.
ELSE. "Outras Despesas
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F02
...
DESCRIBE TABLE it_zycbe035 LINES v_linha.
LOOP AT it_zycbe035.
v_total = v_total + it_zycbe035-wrbtr.
IF sy-tabix = v_linha.
v_tot_aux = /pws/zycie026-totdepme - v_total.
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
IF v_tot_aux GT 0.
* << Fim da exclusão
it_zycbe035-wrbtr = it_zycbe035-wrbtr + v_tot_aux.
MODIFY it_zycbe035.
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
ENDIF.
* << Fim da exclusão
ENDIF.
ENDLOOP.
v_diflanc = v_vltot - v_total.
IF NOT v_diflanc IS INITIAL.
DESCRIBE TABLE it_zycbe035 LINES v_linha.
...