Categorias

Como utilizar algumas CLASS standard no ABAP

O programa de “romaneio” é um ótimo exemplo para utilizar os objetos TREE e EDITOR, que são METHOD standard.

Anexo a este tutorial, há um arquivo .ZIP com todos os códigos fonte, mais as telas e menus utilizados no código fonte do romaneio.

*$*$ -------------------------------------------------------------- *$*$
*$*$ Autores    : Reginaldo Russo                                   *$*$
*$*$ Analista   :                                                   *$*$
*$*$ Data       : 04/04/2005                                        *$*$
*$*$ -------------------------------------------------------------- *$*$
*$*$ Projeto      :                                                 *$*$
*$*$ Finalidade   : Processo de ROMANEIO, apartir da seleção de     *$*$
*$*$                notas fiscal, selecionado os itens de cada N.F. *$*$
*$*$                poderá se gerar uma Ordem de Transporte, ou     *$*$
*$*$                seja, um Romaneio de Transporte.                *$*$
*$*$ Observações  : Neste processo deve-se criar Classes (CLASS)    *$*$
*$*$                locais para poder tratar os eventos dos objetos *$*$
*$*$                criados neste programa.                         *$*$
*$*$ Especificação: 00000.001                                       *$*$
*$*$ -------------------------------------------------------------- *$*$
*$*$ Histórico de modificações                                      *$*$
*$*$ Data     :                                                     *$*$
*$*$ Autor    :                                                     *$*$
*$*$ Descrição:                                                     *$*$
*$*$ ---------------------------------------------------------------*$*$

*** Declaração de: Tabelas, Variaveis, Ranges e Objetos
INCLUDE ZA_ROMANEIO_TOP.

*** Declaração e Definição de CLASS para METHOD para este programa
INCLUDE ZA_ROMANEIO_CLASS.

*&---------------------------------------------------------------------*
*&    Inicialização de Tab.Internas, Variaveis, Ranges e Objetos
*&---------------------------------------------------------------------*
INITIALIZATION.
  CLEAR WSC_OK_CODE.
  SORT TI_ITENS_NF       BY DOCNUM ITMNUM.
  SORT TI_ITENS_ROMANEIO BY VBELN POSNR DOCNUM ITMNUM.

*&---------------------------------------------------------------------*
*&    Inicia o processamento do programa
*&---------------------------------------------------------------------*
START-OF-SELECTION.

*** Cria os eventos para este programa (CLASS)
  CREATE OBJECT WO_EVENT_PROGRAM.

*** Executa a tela
  SET SCREEN 100.

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*&    Definição de rotina e funções para este programa
*&---------------------------------------------------------------------*

*** Modulo de controle PBO
  INCLUDE ZA_ROMANEIO_PBO.

*** Modulo de controle PAI
  INCLUDE ZA_ROMANEIO_PAI.

*** Rotinas de PERFORMS e eventos
  INCLUDE ZA_ROMANEIO_FORM.

Arquivo ZIP (com o código completo)