CE PLUS - Nota 008460
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 28/05/2009 00:00:00
Data/Hora Última Alteração: 03/02/2010 17:12:48
Descrição da Nota: FALHA AO ALTERAR UMA FATURA DE PAGAMENTO ANTECIPADO
Sintoma
Ao alterar uma fatura de pagamento antecipado o programa esta tentando estornar a fatura já
contabilizada permitindo alterar o valor da fatura
Solução
Verificar se a fatura é de pagamento antecipado e não permitir alterar o valor e nem recontabilizar
a mesma
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08460 Data: 28/05/2009 Hora: 13:38:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08460
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FALHA AO ALTERAR UMA FATURA DE PAGAMENTO ANTECIPADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - PAGAMENTO - ANTECIPADO - CONTABILIANDO
ESTORNANDO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
PERFORM reverse_document_fb08.
ENDIF.
IF NOT v_rev IS INITIAL.
PERFORM dele_custo USING /pws/zycit031-inco1_ci space.
ENDIF.
ELSE.
PERFORM fill_date_f-43_f-02.
ENDIF.
ENDLOOP.
ELSE.
* >> Início da inclusão: FORM CONTABILIZACAO_F-02_OU_F-43
IF v_pg_ant <> 'X'.
* << Fim da inclusão
PERFORM reverse_document_fb08.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CONTABILIZACAO_F-02_OU_F-43
ENDIF.
* << Fim da inclusão
CLEAR v_parcela.
IF NOT /pws/zycie006-belnr_p IS INITIAL.
v_contabilizou = 'X'.
ELSE.
...
...
wa_zycie006_ini-ebene NE /pws/zycie006-ebene OR
wa_zycie006_ini-dataprvtsr NE /pws/zycie006-dataprvtsr OR
/pws/zycie006-belnr_p IS INITIAL.
IF v_congela IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT SINGLE *
FROM /pws/zycit042
WHERE nrseq EQ itab_zycit003-nrseq
AND docnum NE ''. "#EC CI_NOFIRST
IF sy-subrc NE 0 OR /pws/zycie006-tpfatura NE '01'.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
IF v_pg_ant2 <> 'X'.
* << Fim da inclusão
PERFORM contabilizacao_f-02_ou_f-43.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE i015 WITH text-169.
ENDIF.
ELSE.
MESSAGE i015 WITH text-135.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
IF sy-subrc <> 0.
ENDIF.
p_taxa = v_txc.
v_ob08 = 'X'.
ENDIF.
ENDFORM.
* >> Início da inclusão:
form verifica_pag_antecipado2.
IF NOT itab_zycit003[] IS INITIAL AND
NOT /PWS/ZYCIE006-BELNR_P IS INITIAL.
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND status NE 'E'. "#EC CI_NOFIELD
SORT itab_zycit003 BY ebeln.
CLEAR v_pg_ant2.
LOOP AT itab_zycit003.
READ TABLE itab_zycbt117 WITH KEY ebeln = itab_zycit003-ebeln.
IF sy-subrc EQ 0.
v_pg_ant2 = 'X'.
ENDIF.
ENDLOOP.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE006-WAERS'.
IF /pws/zycie006-tpfatura IS INITIAL.
screen-required = 0.
ELSE.
screen-required = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name EQ '/PWS/ZYCIE006-VLMERC'.
IF /pws/zycie006-tpfatura = '01' OR
/pws/zycie006-tpfatura = '11'.
PERFORM verifica_pag_antecipado2.
IF v_pg_ant2 = 'X'.
screen-input = 0.
ELSE.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF /pws/zycie006-vlmerc IS INITIAL AND
/pws/zycie006-vlfre IS INITIAL AND
/pws/zycie006-vlseg IS INITIAL.
CLEAR /pws/zycie006-vltotal.
ENDIF.
WHEN '0106'.
LOOP AT SCREEN.
IF v_status_s = 0 OR sy-tcode = '/PWS/ZYCI003_M'.
screen-input = '0'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
a_modpa(35),
a_desc(30),
a_motiv(120),
v_cobcambial,
rimc2 LIKE indx-srtfd VALUE 'NRBL',
v_nrbl LIKE /pws/zycie093-nrseqce,
v_total_parc LIKE /pws/zycit132-vlparc,
v_nrparc_ant LIKE /pws/zycie132-nrparc,
v_parcela,
v_pg_ant,
* >> Início da inclusão:
v_pg_ant2,
* << Fim da inclusão
v_zprz3 LIKE t052-zprz2,
v_existe VALUE 'N',
v_contabilizou,
v_flag_sequencial,
v_total_desp(18),
v_refer,
v_flag_sele,
e_status,
v_sele_zycit003,
v_tot_deducoes LIKE /pws/zycie006-vltotal,
...