CE PLUS - Nota 011202
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 03/06/2011 00:00:00
Data/Hora Última Alteração: 03/06/2011 15:27:44
Descrição da Nota: AJUSTES EM MENSAGENS DE FATURA DE DESPESA
Sintoma
Ao criar a fatura de despesa por fora e informar tipo 04, já aparece a mensagem de erro informando
que não tem fatura tipo 01, mesmo sem informar qual era o embarque.
Para faturas tipo 02,03 e 04 não permitir forma de pagamento = Livre de Débito. Msg: Forma de
Pagamento inválida para este tipo de fatura
Solução
Verficar se embarque está informado antes de dar mensagem e o tipo de embarque ao informar o tipo
livre de débito.
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11202 Data: 03/06/2011 Hora: 09:57:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11202
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTES EM MENSAGENS DE FATURA DE DESPESA
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA 04 - DESPESA - ERROS NA FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
IF e_subrc EQ 0.
IF sy-ucomm = 'ENTE' OR sy-ucomm = 'SAVE'.
IF /pws/zycie001-regime = '16'.
IF /pws/zycie006-tpfatura = '01'
OR /pws/zycie006-tpfatura = '02'
OR /pws/zycie006-tpfatura = '03'.
MESSAGE e013 WITH text-167.
ENDIF.
ENDIF.
IF /pws/zycie006-tpfatura NE '01'
* >> Início da exclusão: FORM TP_FATURA
AND /pws/zycie006-tpfatura NE '11'.
* << Fim da exclusão
* >> Início da inclusão: FORM TP_FATURA
AND /pws/zycie006-tpfatura NE '11'
AND NOT /pws/zycie001-nrseq IS INITIAL.
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zycit263
WHERE nrseq EQ /pws/zycie001-nrseq
AND eliminado NE 'X'.
IF sy-subrc NE 0.
MESSAGE e039 WITH text-171.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
CHANGING
e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE CONSISTE_COBERTURA_CAMBIAL
IF ( /pws/zycie006-tpfatura EQ '02' OR
/pws/zycie006-tpfatura EQ '03' OR
/pws/zycie006-tpfatura EQ '04' ) .
IF /pws/zycie006-frpagto EQ 'A' .
CLEAR /pws/zycie006-frpagto.
MESSAGE e015 WITH text-211 text-212.
ENDIF.
ENDIF.
* << Fim da inclusão
IF NOT itab_zycit003[] IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT SINGLE * FROM /pws/zycit001
INTO itab_zycit001_at
WHERE nrseq = itab_zycit003-nrseq.
IF sy-subrc EQ 0.
APPEND itab_zycit001_at.
ENDIF.
IF NOT itab_zycit001_at[] IS INITIAL.
SELECT * FROM /pws/zycit024 INTO TABLE itab_zycit024
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
WHEN '03'.
IF screen-name = '/PWS/ZYCIE006-VLMERC' OR
screen-name = '/PWS/ZYCIE006-VLFRE' .
screen-input = '0'.
CLEAR : /pws/zycie006-vlmerc, /pws/zycie006-vlfre.
ENDIF.
WHEN '04'.
IF screen-name = '/PWS/ZYCIE006-VLFRE' OR
screen-name = '/PWS/ZYCIE006-VLSEG'.
screen-input = '0'.
* >> Início da inclusão: MODULE SET_SCREEN
CLEAR : /pws/zycie006-vlseg, /pws/zycie006-vlfre.
* << Fim da inclusão
ENDIF.
WHEN '05'.
IF screen-name = '/PWS/ZYCIE006-VLMERC' OR
screen-name = '/PWS/ZYCIE006-VLFRE' OR
screen-name = '/PWS/ZYCIE006-VLSEG'.
screen-input = '0'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI003