CE PLUS - Nota 007673

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 28/11/2008 00:00:00

Data/Hora Última Alteração: 09/03/2010 15:44:00

Descrição da Nota: NECESSÁRIA EXIT PARA TEXTO COMPLEMENTARES DA DI

Sintoma

 

Necessária exit para texto complementares da DI

 

Solução

 

Criada exit DI010 na formação do texto da pasta complementares.

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 07673 Data: 28/11/2008 Hora: 16:30:07

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

 

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

Nota Número              : 07673

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00075

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

NECESSÁRIA EXIT PARA TEXTO COMPLEMENTARES DA DI

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

Palavras Chave:

EXIT - COMPLEMENTARES - DI

 

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

Objetos da nota:

REPS /PWS/MZYCI023F03

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

 

 

...

 

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

 

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI023'

                              'DI010'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'DI010'  BINARY SEARCH.

  IF sy-subrc EQ 0.

    "Verifica se a Exit está ativa.

    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

 

  CALL METHOD editor2->set_text_as_r3table EXPORTING table = ittxt1[].

 

 

ENDFORM.                    " fill_text_compl

 

 

...