CE PLUS - Nota 007271
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Débito em Conta
Data/Hora da Publicação: 08/09/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:51:24
Descrição da Nota: DIFERENÇA DE CENTAVOS NO RATEIO DO DÉBITO EM CONTA
Sintoma
Ao realizar o rateio das despesas no Débito em Conta esta apresentando diferença de centavos entre o
Débito em Conta e a Contabilização
Solução
Atualização do programa de débito em conta para verificar se existe diferença de centavos executado
pelo rateio e equalizar o Débito com a Contabilização.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07271 Data: 08/09/2008 Hora: 11:26:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07271
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00064
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03675 - 00001 - 7.0 - 00001 - AO LIBERAR DÉB.EM CONTA, VALOR DO IPI ESTÁ FICANDO NEGATIVO.
05033 - 00002 - 7.0 - 00003 - DÉBITO EM CONTA ESTÁ LEVANDO VALORES MESMO COM REGIME NÃO INCIDÊN
06476 - 00003 - 7.0 - 00005 - AO RATEAR ITENS, ESTÁ GERANDO DIFERENÇA
----------------------------------------------------------------------------------------------------
DIFERENÇA DE CENTAVOS NO RATEIO DO DÉBITO EM CONTA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DIFERENÇA - CENTAVOS - RATEIO - DÉBITO - CONTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_RATEIO_CUSTO
REPS /PWS/MZYCI013F01
REPS /PWS/MZYCI013X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO
...
IF v_linha = v_index AND
itab_zycit036_aux-vlreal IS INITIAL AND
itab_despesa-netpr NE v_tot_desp.
READ TABLE itab_zycit036_aux WITH KEY
codigo = itab_zycit036_aux-codigo
ebeln = v_ebeln
ebelp = v_ebelp.
IF sy-subrc EQ 0.
itab_zycit036_aux-vlreal = itab_zycit036_aux-vlreal +
( itab_despesa-netpr - v_tot_desp ).
* >> Início da inclusão:
MODIFY itab_zycit036_aux TRANSPORTING vlreal
WHERE codigo = itab_zycit036_aux-codigo
AND ebeln = v_ebeln
AND ebelp = v_ebelp.
* << Fim da inclusão
ENDIF.
ELSEIF NOT itab_zycit036_aux-vlreal IS INITIAL.
v_ebeln = itab_zycit036_aux-ebeln.
v_ebelp = itab_zycit036_aux-ebelp.
ENDIF.
v_tot_desp = v_tot_desp + itab_zycit036_aux-vlreal.
ENDIF.
ENDIF.
ENDLOOP.
DELETE itab_zycit036_aux WHERE vlreal IS initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013F01
...
FORM atualiza_tabela.
* >> Início da inclusão: FORM ATUALIZA_TABELA
DATA: v_dif_rat LIKE it_contabil-vldp.
DATA: v_Tipo TYPE C.
* << Fim da inclusão
...
...
MOVE: it_tbcontrol-nrseq TO it_contabil-nrseq,
it_tbcontrol-nradto TO it_contabil-nradto,
it_tbcontrol-tpdesp TO it_contabil-tpdesp,
it_tbcontrol-descr TO it_contabil-descr,
it_tbcontrol-vldp TO it_contabil-vldp,
it_tbcontrol-dtdeb TO it_contabil-dtvencto,
it_tbcontrol-banco TO it_contabil-banco,
it_tbcontrol-agrup TO it_contabil-agrup,
it_tbcontrol-waers TO it_contabil-waers.
APPEND it_contabil.
ENDIF.
* >> Início da inclusão: FORM ATUALIZA_TABELA
CLEAR it_contabil_dif.
REFRESH it_contabil_dif.
LOOP AT it_contabil.
it_contabil_dif-nrseq = it_contabil-nrseq.
it_contabil_dif-nradto = it_contabil-nradto.
it_contabil_dif-tpdesp = it_contabil-tpdesp.
it_contabil_dif-vldp = it_contabil-vldp.
COLLECT it_contabil_dif.
ENDLOOP.
LOOP AT it_contabil_dif.
v_dif_rat = 0.
CLEAR v_Tipo.
READ TABLE it_tbcontrol WITH KEY
nrseq = it_contabil_dif-nrseq
nradto = it_contabil_dif-nradto
tpdesp = it_contabil_dif-tpdesp.
IF sy-subrc EQ 0.
IF it_contabil_dif-vldp > it_tbcontrol-vldp.
v_dif_rat = it_contabil_dif-vldp - it_tbcontrol-vldp.
v_Tipo = '0'.
ENDIF.
IF it_contabil_dif-vldp < it_tbcontrol-vldp.
v_dif_rat = it_tbcontrol-vldp - it_contabil_dif-vldp.
v_Tipo = '1'.
ENDIF.
IF v_dif_rat NE 0.
READ TABLE it_contabil WITH KEY
nrseq = it_contabil_dif-nrseq
nradto = it_contabil_dif-nradto
tpdesp = it_contabil_dif-tpdesp.
IF v_Tipo = '1'.
it_contabil-vldp = it_contabil-vldp + v_dif_rat.
ENDIF.
IF v_Tipo = '0'.
it_contabil-vldp = it_contabil-vldp - v_dif_rat.
ENDIF.
MODIFY it_contabil INDEX sy-tabix TRANSPORTING vldp.
ENDIF.
ENDIF.
ENDLOOP.
* << Fim da inclusão
MOVE it_zycit003_aux[] TO it_zycit003[].
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013X01
...
* >> Início da inclusão:
DATA: BEGIN OF it_contabil_dif OCCURS 0,
nrseq LIKE /pws/zycit016-nrseq,
ebeln LIKE /pws/zycit003-ebeln,
ebelp LIKE /pws/zycit003-ebelp,
nradto LIKE /pws/zycit016-nradto,
tpdesp LIKE /pws/zycit016-tpdesp,
vldp LIKE /pws/zycit003-netpr,
END OF it_contabil_dif.
* << Fim da inclusão
...