CE PLUS - Nota 004509
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 23/08/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:24:37
Descrição da Nota: NECESSIDADE DE CRIAR CHAMADA DE EXIT NO PROGRAMA DA DI NO CÁLCULO ICMS
Sintoma
Necessidade de criar chamada de exit no programa da DI.
Para alterar valores do icms
Solução
criada a chamada de exit no programa /PWS/SAPMZYCI023, id DI007
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04509 Data: 23/08/2007 Hora: 16:49:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04509
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00009
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NECESSIDADE DE CRIAR CHAMADA DE EXIT NO PROGRAMA DA DI NO CÁLCULO ICMS
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - DI - SAPMZYCI023 - ZYGLT100 - CÁLCULO ICMS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
v_advicms = ( ( /pws/zycie003-advalicms / 100 ) *
( /pws/zycie003-basred / 100 ) ) .
ELSE.
v_advicms = ( /pws/zycie003-advalicms / 100 ).
ENDIF.
ELSE.
v_advicms = ( /pws/zycie003-advalicms / 100 ).
ENDIF.
v_advpis = ( /pws/zycie100a-advalpis / 100 ).
v_advcof = ( /pws/zycie100a-advalcofins / 100 ).
* >> Início da inclusão: FORM LOAD_IICMS
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI023'
'DI007'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI007' 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.
* << Fim da inclusão
IF /pws/zycit000-pis_cof EQ 'X'.
IF NOT itab_zycit438[] IS INITIAL.
IF NOT /pws/zycie085-dtreg IS INITIAL.
READ TABLE itab_zycit438 WITH KEY lei = 'MP252'.
IF sy-subrc EQ 0.
IF itab_zycit438-vigencia <= /pws/zycie085-dtreg AND
itab_zycit438-vigencia_ate >= /pws/zycie085-dtreg AND
NOT itab_zycit438-vigencia IS INITIAL.
v_nova = 'X'.
ELSE.
...