CE PLUS - Nota 002376
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 01/11/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 12:44:15
Descrição da Nota: SISTEMA ESTÁ PERMITINDO ALTERAÇÃO DE FATURA, DEPOIS DA EMISSÃO DA NF
Sintoma
Sistema está permitindo alteração de Fatura, depois da Emissão da Nota Fiscal, no caso de Fatura
'01'. Porém, ele não atualiza a ZYCIT036, ocasionando inconsistências no processo. Não deve permitir
após a contabilização da NF. Nos casos das demais fatura, não deve permitir realizar alteração, após
o item estar congelado na ZYCIT036.
Solução
verificar se há NF criada antes de salvar alterações na ZYCIT036.
Atualizado a fatura para naõ deixar ajustar a mesma depois de feito a Nota Fiscal consequentemente o
recebimento.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02376 Data: 01/11/2006 Hora: 17:27:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02376
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00138
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
SISTEMA ESTÁ PERMITINDO ALTERAÇÃO DE FATURA, DEPOIS DA EMISSÃO DA NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
ALTERAÇÃO DE FATURA - TABELA /PWS/ZYCIT036 - ALTERAÇÃO DE CUSTO EFETIVO
FATURA 01.
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI003 0106
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
REPT /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
wa_zycie006_ini-dtvencto NE /pws/zycie006-dtvencto OR
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.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
SELECT *
FROM /pws/zycit042
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
AND docnum NE ''.
ENDSELECT.
IF sy-subrc NE 0.
* << Fim da inclusão
PERFORM contabilizacao_f-02_ou_f-43.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
ELSE.
MESSAGE i015 WITH text-169.
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE i015 WITH text-135.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
IF screen-name EQ 'BOT1'.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name EQ '/PWS/ZYCIE006-VLMERC' OR
screen-name EQ '/PWS/ZYCIE003-VLREAL' OR
screen-name EQ '/PWS/ZYCIE036-VLDIF'.
SELECT *
FROM /pws/zycit042
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
AND docnum NE ''.
ENDSELECT.
IF sy-subrc EQ 0.
screen-input = 0.
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.
...
...
screen-input = '0'.
MODIFY SCREEN.
ELSEIF v_status_s = 1 AND screen-group1 NE 'OUT'.
screen-input = '1' .
MODIFY SCREEN.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
IF screen-name = '/PWS/ZYCIE006-RATVAL' or
screen-name = 'V_RATVAL'.
SELECT *
FROM /pws/zycit042
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
AND docnum NE ''.
ENDSELECT.
IF sy-subrc EQ 0.
screen-input = 0.
modify screen.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF v_status_s = 0 OR sy-tcode = '/PWS/ZYCI003_M'.
LOOP AT tc_itens-cols INTO wa_cols.
wa_cols-screen-input = '0'.
...
...
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_TC_0106
IF screen-name = '/PWS/ZYCIE003-VLREAL' OR
screen-name = '/PWS/ZYCIE036-VLDIF'.
SELECT *
FROM /pws/zycit042
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
AND docnum NE ''.
ENDSELECT.
IF sy-subrc EQ 0.
screen-input = 0.
ENDIF.
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
ENDMODULE.
...
...
screen-input = 0.
ELSEIF /pws/zycie006-rateio = 'N' AND v_status_s = '1'.
screen-input = 1.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_0400
IF screen-name = '/PWS/ZYCIE003-VLREAL' OR
screen-name = '/PWS/ZYCIE036-VLDIF'.
SELECT *
FROM /pws/zycit042
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
AND docnum NE ''.
ENDSELECT.
IF sy-subrc EQ 0.
screen-input = 0.
ENDIF.
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 169
Texto: (56 caracteres)
"Existe NF para o processo, Fatura não será contabilizada"
Comprimento máximo: 56