CE PLUS - Nota 005077
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 25/10/2007 00:00:00
Data/Hora Última Alteração: 03/02/2010 16:57:51
Descrição da Nota: CRIAÇÃO DE FATURAS DE DESPESAS FRETE E SEGURO ANTES DA CRIAÇÃO DA FATURA
Sintoma
Projeto Conexão - DESENVOLVIMENTO ESPECÍFICO - Devido a necessidade de criação de faturas de
despesas, frete e seguro antes da criação da fatura de mercadoria será realizado um desenvolvimento
onde a consistência se existe fatura de mercadoria será retirada.
Solução
Implementação de Exit
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05077 Data: 25/10/2007 Hora: 13:43:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05077
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00018
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CRIAÇÃO DE FATURAS DE DESPESAS FRETE E SEGURO ANTES DA CRIAÇÃO DA FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - FATURA MERCADORIA - FATURAS DESPESAS - FATURA FRETE - SEGURO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
ENDIF.
IF v_flag = 'X'.
MESSAGE e013 WITH text-163 text-164.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM tp_fatura.
* >> Início da inclusão: FORM TP_FATURA
e_subrc = '0'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI003'
'FAT012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'FAT012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* << Fim da inclusão
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'
AND /pws/zycie006-tpfatura NE '11'.
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.
* >> Início da inclusão: FORM TP_FATURA
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM atualiza_fb08_fat.
IF v_parcela = 'X'.
SELECT SINGLE *
FROM bkpf
WHERE belnr EQ /pws/zycie006-belnr_p
AND gjahr EQ /pws/zycie006-dtincl+0(4)
AND bukrs EQ /pws/zycie006-bukrs.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCIT132'
...