Sintoma

Abertura da exit ATO010 - tratativa dos dados da composição de isenção

Solução

Abertura da exit ATO010 - tratativa dos dados da composição de isenção

Informações Complementares

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

Nota Número 05546 Data: 02/01/2008 Hora: 15:32:34

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

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

Nota Número              : 05546

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

ABERTURA DA EXIT ATO010 - TRATATIVA DOS DADOS DA COMPOSIÇÃO DE ISENÇÃO

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

Palavras Chave:

ATO CONCESSÓRIO EXIT ATO010 COMPOSIÇÃO DE ISENÇÃO

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

Objetos da nota:

REPS /PWS/MZYCI040F02

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

  DATA: vfobtmp LIKE /pws/zycie259-vlfob  ,

        vbrgtmp LIKE /pws/zycie259-brgew  ,

        v_pct  TYPE p,

        v_lines TYPE i,

        v_count TYPE i,

        v_fixo  TYPE i VALUE '0',

        v_mess(100) TYPE c,

        vntgtmp LIKE /pws/zycie259-ntgew  ,

        vcomtmp LIKE /pws/zycie259-vlcomis,

        v_nritem_exp LIKE /pws/zycit247-nritem.

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

  PERFORM verifica_exit USING 'D'

                             '/PWS/SAPMZYCI040'

                             'ATO010'.

  e_subrc = 0.

  CLEAR itab_zyglt100 .

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

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa)

                       CHANGING e_subrc

                                        IF FOUND     .

      IF e_subrc NE '0'.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  IF itab_zycit245[] IS INITIAL.

    SELECT * FROM /pws/zycit260 INTO TABLE itab_zycit260

         WHERE nrseqd EQ /pws/zycie244-nrcompos.

    DESCRIBE TABLE itab_zycit260 LINES v_lines.

    CLEAR: v_count.

    LOOP AT itab_zycit260.

      ADD 1 TO v_count.

      IF v_count EQ 100.

        v_pct = ( sy-tabix / v_lines ) * 100.

        WRITE v_pct TO v_mess LEFT-JUSTIFIED NO-GAP.

...