Sintoma

Dump ao entrar modificando o Ato concessório.

Solução

Atualização da gravação do número de aditivos do Ato Concessório.

Informações Complementares

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

Nota Número 07018 Data: 23/07/2008 Hora: 16:24:07

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

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

Nota Número              : 07018

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00057

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ADITIVO

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

Palavras Chave:

ATO CONCESSÓRIO ADITIVO DUMP

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

Objetos da nota:

REPS /PWS/MZYCI040F02

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

       /pws/zycie244-status NE 'A'         AND

       /pws/zycie244-status NE 'I'.

      /pws/zycie244-vcto_fn = /pws/zycie244-dtdi + 731.

    ENDIF.

  ENDIF.

  IF v_tcode2 EQ '/PWS/ZYCI040_A'       AND

     NOT /pws/zycie244-nratoc IS INITIAL AND

     /pws/zycie244-status     EQ 'D'     AND

     v_numatoinf EQ 'S'.

    IF v_aditivo EQ 0.

* >> Início da exclusão: FORM MOVE_DADOS_INICIAIS2

      /pws/zycie244-aditivo    = /pws/zycie244-aditivo + 1.

* << Fim da exclusão

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

      PERFORM trata_aditivo.

      /pws/zycie244-aditivo = v_aditivo.

* << Fim da inclusão

      wa_zycit244-aditivo = /pws/zycie244-aditivo.

* >> Início da exclusão: FORM MOVE_DADOS_INICIAIS2

      v_aditivo           = /pws/zycie244-aditivo.

* << Fim da exclusão

      v_aditivo2          = v_undcr2 = v_aditivo.

      READ TABLE itab_aditivos WITH KEY nraditivo = v_aditivo.

      IF sy-subrc NE 0.

        WRITE: v_aditivo                             TO v_txcont1,

               sy-datum USING EDIT MASK '__.__.____' TO v_data   .

        SHIFT v_txcont1 RIGHT DELETING TRAILING space.

...

...

              i_amodal_window = ' '.

  ENDIF.

ENDFORM.

FORM trata_ajuste_lt.

  CLEAR : itab_zycit247_lt, itab_zycit245_lt.

  REFRESH : itab_zycit247_lt, itab_zycit245_lt.

  itab_zycit247_lt[] = itab_zycit247[] .

  itab_zycit245_lt[] = itab_zycit245[] .

  CLEAR ok_code2.

  CALL SCREEN '0400'.

* >> Início da exclusão: FORM TRATA_AJUSTE_LT

  .

* << Fim da exclusão

ENDFORM.

FORM trata_tela_400.

  DATA: v_count(1) TYPE n .

  DATA: v_confirm(1) TYPE c.

  CLEAR v_count.

  IF v_tlajust EQ ' '.

    LOOP AT SCREEN .

      IF screen-group1 EQ 'TL2'.

        screen-active = '0'.

        MODIFY SCREEN.

...

...

  CLEAR v_area.

  SORT itab_centros2 BY werks.

  DELETE ADJACENT DUPLICATES FROM itab_centros2 COMPARING werks.

  IF /pws/zycie244-werks IS INITIAL AND

     NOT itab_centros2[] IS INITIAL.

    READ TABLE itab_centros2 INDEX 1.

    /pws/zycie244-werks = itab_centros2-werks.

  ENDIF.

  DELETE itab_centros2 WHERE werks EQ /pws/zycie244-werks.

ENDFORM.

* >> Início da inclusão:

FORM trata_aditivo.

  DATA v_name(70) TYPE c.

  DATA: BEGIN OF itab_stxl OCCURS 0.

          INCLUDE STRUCTURE stxl.

  DATA: END OF itab_stxl.

  CONCATENATE /pws/zycie244-nrseqd '%' INTO v_name.

  SELECT * FROM stxl INTO TABLE itab_stxl

         WHERE relid    EQ   'TX'

           AND tdobject EQ   '/PWS/CIACO'

           AND tdname   LIKE v_name

           AND tdid     EQ   'ZYCI'

           AND tdspras  EQ   'P '.

  SORT itab_stxl BY tdname DESCENDING.

  READ TABLE itab_stxl INDEX 1.

  v_aditivo = itab_stxl-tdname+10(5) + 1.

ENDFORM.

* << Fim da inclusão