Sintoma

Criar uma chamada de EXIT na confirmação da exclusão da linha de uma fatura vinculada ao contrato de

câmbio, isto é,  botão Excluir Vinculação da Fatura com a resposta da mensagem = SIM.

Solução

Inserido ponto de exit.

Informações Complementares

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

Nota Número 00559 Data: 30/12/2005 Hora: 16:16:10

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

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

Nota Número              : 00559

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

EXIT NA VINCULAÇÃO PARA TRATAR OS REGISTROS QUE FORAM ELIMINADOS

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

Palavras Chave:

EXIT VNC012 VINCULAÇÃO CONTROLE REGISTROS ELIMINADOS

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

Objetos da nota:

REPS /PWS/MZYCB009F03

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

Modificações efetuadas em REPS /PWS/MZYCB009F03

Contexto: FORM exclui_dados_itab.

* Se faturas conseguiram ser excluidas da Vincul.

  DATA v_excluida TYPE c.

  CLEAR v_pag_jur.

  SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007

        WHERE bukrs = /pws/zycbe005-bukrs.

  CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

       EXPORTING

            defaultoption  = 'Y'

            textline1      = text-026

            textline2      = text-027

            titel          = text-025

            start_column   = 25

            start_row      = 6

            cancel_display = 'X'

       IMPORTING

            answer         = v_resposta.

* Usuário confirmou exclusão.

  IF v_resposta EQ 'J'.

...

              IF sy-subrc EQ 0.

*               Guarda a fatura excluída da Vinculação já existente na

*               tabela transparente /PWS/ZYCBT005 em uma tab. interna

*               auxiliar

                MOVE itab_zycbt005 TO itab_zycbt005_excluidas.

                APPEND itab_zycbt005_excluidas.

              ENDIF.

            ENDIF.

*           Atualiza saldo do Contrato

            /pws/zycbe001-slvinc = /pws/zycbe001-slvinc +

                                   itab_zycbt005-vlvinc.

*           Exclui fatura(s) da tabela interna auxiliar de Vinculação

            DELETE itab_zycbt005_aux

                   WHERE nrinvoic = itab_zycbt005-nrinvoic

                     AND nrparcf  = itab_zycbt005-nrparcf

                     AND gsberf   = itab_zycbt005-gsberf.

            CLEAR itab_zycbt005_aux.

* >> Início da Inclusão

            PERFORM executa_exit USING 'VNC012'. "CHAMADO 277496 - 30/12

* << Fim da Inclusão

*           Exclui fatura(s) da tabela interna de Vinculação

            DELETE itab_zycbt005.

            IF sy-subrc NE 0. " Alguma fatura não pôde ser excluida

              v_excluida = 'N'.

*           Chamado 229499 - Renato - 02.05.2005 - Inicio

            ELSE.

              MOVE-CORRESPONDING itab_zycbt005 TO wa_zycbt005f.

              PERFORM unlock_record_fatura USING wa_zycbt005f.

*           Chamado 229499 - Renato - 02.05.2005 - Fim

            ENDIF.

            CLEAR itab_zycbt005.

            CLEAR v_pos_itab.

          ENDIF.

        ENDIF.

      ENDIF.

    ENDLOOP.

    IF v_excluida = 'N'.

      MESSAGE w015 WITH text-055 text-056.

    ENDIF.

  ENDIF.

  CLEAR v_resposta.

  CLEAR ok_code.

ENDFORM.                               " EXCLUI_DADOS_ITAB