CE PLUS - Nota 011485
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 23/09/2011 00:00:00
Data/Hora Última Alteração: 26/09/2011 16:40:02
Descrição da Nota: AO ALTERAR DADOS DA FATURA, ELIMINA O DOCUMENTO E GERA UM NOVO
Sintoma
Ao alterar dados da fatura (forma de rateio, valor de frete), elimina o documento e gera um novo
Solução
Atualizado programa para fechar campos que possam gerar alteração de valores de contabilização após
a primeira contabilização da fatura.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11485 Data: 23/09/2011 Hora: 17:06:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11485
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00086
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02376 - 00002 - 6.0 - 00025 - SISTEMA ESTÁ PERMITINDO ALTERAÇÃO DE FATURA, DEPOIS DA EMISSÃO DA
02421 - 00001 - 6.0 - 00025 - FATURA NÃO ESTA CONTABILIZANDO APOS NF
03893 - 00003 - 7.0 - 00001 - AJUSTE DE PERFORMANCE NA CRIAÇÃO DA FATURA
----------------------------------------------------------------------------------------------------
AO ALTERAR DADOS DA FATURA, ELIMINA O DOCUMENTO E GERA UM NOVO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ALTERAÇÃO - FATURA - DOCUMENTO CONTABIL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
screen-name EQ 'TEXT_MR1M' OR
screen-name EQ '/PWS/ZYCIE006-NRSEQ_PGFATX' OR
screen-name EQ 'V_TEXTO' ).
screen-invisible = 0.
ENDIF.
IF NOT /pws/zycie006-belnr_p IS INITIAL.
IF screen-name = '/PWS/ZYCIE006-ZTERM'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name EQ '/PWS/ZYCIE006-VLFRE'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
WHEN '0106'.
LOOP AT SCREEN.
IF v_status_s = 0 OR sy-tcode = '/PWS/ZYCI003_M'.
screen-input = '0'.
MODIFY SCREEN.
ELSEIF v_status_s = 1 AND screen-group1 NE 'OUT'.
screen-input = '1' .
MODIFY SCREEN.
ENDIF.
IF ( screen-name = '/PWS/ZYCIE006-RATVAL' OR
* >> Início da exclusão: MODULE SET_SCREEN
screen-name = 'V_RATVAL' ) AND /pws/zycie006-tpfatura = '01'.
READ TABLE itab_zycit003 INTO /pws/zycit003 INDEX 1.
IF NOT /pws/zycit003-nrseq IS INITIAL.
SELECT SINGLE *
FROM /pws/zycit042
WHERE nrseq EQ /pws/zycit003-nrseq
AND docnum NE space. "#EC CI_NOFIRST
ENDIF.
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
screen-name = 'V_RATVAL' ) AND
/pws/zycie006-tpfatura = '01'.
IF NOT /pws/zycie006-belnr_p IS INITIAL.
* << Fim da inclusão
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
...