CE PLUS - Nota 001867
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 03/08/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:03:22
Descrição da Nota: NOTA FISCAL GLOBAL-GAP CUSTO EFETIVO - PRECISAMOS QUE TENHA UMA EXIT
Sintoma
Abertura de exit na Nota Fiscal Global, para que quando for feito o Adiantamento o sistema, no
Check da Nota Fiscal, caso o Frete Internacional não esteja no Adiantamento para que ele assuma o
valor da Nota Fiscal e que seja atualizado, quando for feita a prestação de contas.
Solução
Inserida Exit na Nota Fiscal Global.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01867 Data: 03/08/2006 Hora: 08:48:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01867
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00125
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NOTA FISCAL GLOBAL-GAP CUSTO EFETIVO - PRECISAMOS QUE TENHA UMA EXIT
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - CUSTO - EFETIVO - ADIANTAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
CLEAR v_modo_bi.
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF009'.
* >> Início da inclusão: FORM FILL_DATA_J1B1
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF009' BINARY SEARCH.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATA_J1B1
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF009' BINARY SEARCH.
* << Fim da exclusão
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND .
* >> Início da inclusão: FORM FILL_DATA_J1B1
ENDIF.
ENDIF.
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF008'.
CLEAR: itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF008' 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.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM fill_data_j1b1_r.
DATA: v_tpnf LIKE /pws/zycit044-tpnf,
...