CE PLUS - Nota 011188

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 30/05/2011 00:00:00

Data/Hora Última Alteração: 31/05/2011 17:10:47

Descrição da Nota: NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO.

Sintoma

Necessário desenvolvimento específico no programa da DI, após cálculo de taxa siscomex.

 

 

Solução

Criada chamada de exit DI019.

 

Versões Tratadas

8.0

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 11188 Data: 30/05/2011 Hora: 15:17:05

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 11188

Categoria                : Melhoria

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

 

----------------------------------------------------------------------------------------------------

NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO.

----------------------------------------------------------------------------------------------------

Palavras Chave:

ESPECÍFICO - ZYGLT100 - DI

 

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI023F01

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F01

 

...

 

* >> Início da inclusão: FORM FILL_TAXASISCOMEX

  e_subrc = 0.

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI023'

                              'DI019'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'DI019'  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 NE 0.

    EXIT.

  ENDIF.

* << Fim da inclusão

ENDFORM.

...