CE PLUS - Nota 001987
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 25/08/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:18:16
Descrição da Nota: CHAMADA DE EXIT NO EMBARQUE AO PROPOR ALIQUOTA DE IMPOSTOS .
Sintoma
necessária chamada de exit ao propor aliquotas de impostos no embarque.
Solução
Abertura de exit no programa do embarque na proposição de alíquotas de impostos ao criar Embarque.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01987 Data: 25/08/2006 Hora: 17:05:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01987
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00128
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CHAMADA DE EXIT NO EMBARQUE AO PROPOR ALIQUOTA DE IMPOSTOS .
----------------------------------------------------------------------------------------------------
Palavras Chave:
ALIQUOTA DE IMPOSTOS - EMBARQUE - CRIAÇÃO - CHAMADA DE EXIT
TRATAMENTO TAXAS - VERIFICA TAXA - SPRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F02
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI001X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
CLEAR itab_imposto.
itab_imposto-nrseq = itab_zycit003-nrseq.
itab_imposto-ebeln = itab_zycit003-ebeln.
itab_imposto-ebelp = itab_zycit003-ebelp.
APPEND itab_imposto.
* >> Início da inclusão: FORM VERIFICA_TAXA
e_subrc = '0'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI001'
'EMB007'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'EMB007' 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 = '0'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_VERIFICA_TAXA'
EXPORTING
data_di = /pws/zycie001-dtinicio
branch = /pws/zycie001-j_1bbranch
bukrs = /pws/zycie001-bukrs
...
...
IF itab_zycit003-basred IS INITIAL.
itab_zycit003-basred = itab_imposto-basred.
ENDIF.
IF itab_zycit003-basred IS INITIAL.
itab_zycit003-basred = '100'.
* >> Início da inclusão: FORM VERIFICA_TAXA
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
...