Desenvolvimento Código Aberto

Screen Painter Alphanumeric

O editor alfanumérico gráfico proporciona um ambiente amigável para projetar telas em todas as plataformas. Você pode iniciar o editor alfanumérico a partir da tela inicial do Screen Painter ou a partir do Navegador do repositório.

O editor alfanumérico contém as mesmas funções que o  editor gráfico. A diferença entre os dois está na maneira de criar elementos gráficos e como eles são exibidos na tela.

O sistema utiliza caracteres alfanuméricos para exibir elementos gráficos. O sistema distingue todos os elementos gráficos com cor.  Para garantir que você não possa substituir um, todos eles são protegidos contra gravação. Para alterar um elemento, você deve selecioná-lo e, em seguida, escolher uma função apropriada. Ao contrário do editor gráfico, você não pode escolher os elementos da paleta  de elemento. Em vez disso, você usa os menus.

 Aphanumeric Editor

Para criar uma tela no editor alfanumérico siga os seguintes passos:

1. Crie um programa chamado ZDF_Alpha.
2. Entre na transação SE51.
3. Crie uma Screen Painter para seu programa com o Screen Number 100.
4. Na aba Flow Logic, tire o comentario da linha: MODULE STATUS_0100.
5. Dê um duplo clique na variavel STATUS_0100 e crie um PBO Module, selecionando o programa MAIN e salve o ZDF_Alpha.
6. Volte para a transação SE51 e abra para modificação o seu Screen Painter ZDF_Alpha.
7. Clique no menu Utilities e em Settings.
8. Na aba Screen Painter, desmarque o Graphical Layout Editor e clique OK.
9. Clique em Layout para abrir o editor gráfico alfanumérico.
10. No Editor alfanumérico você pode usar os menus para criar componentes.
11. Posicione o cursos na primeira linha, clique no menu Edit, Create Element, Text Field e preencha a propriedade Text para: Reserva de Voo e clique em Transfer.
12. Posicione o cursor duas linha abaixo.
13. No menu Goto, Dictionary/Program Fields ou CTRL + F6.
14. Em Table/Field Name coloque SPFLI e clique em Get from Dict.
15. Selecione todos os campos e clique em Transfer.
16. No menu Edit clique em Select Block.
17. Clique no menu Edit, Create Element, Pushbutton e crie um botão chamado Mostrar com a propriedade Fct_CODE = F_MOSTRAR.
18. Crie mais 4 botões com o mesmo procedimento acima para SAIR, LIMPAR, GRAVAR e EXCLUIR.
19. Na aba Element List va para o elemento Tipo OK e o nomeie para OK_CODE.
20. Salve sua tela e clique em Activate.
21. volte para o progama ZDF_Alpha e escreva o codigo abaixo.

Para usar este programa, caso você não tenha usado o post anterior  você precisa rodar o programa ZDADOS para preencher as tabelas auxiliares para o Flight Model. Você obterá uma tela igual a figura abaixo:

Exemplo:

Neste programa usamos a tabela de reserva de  voo, SPFLI do Flight Model que não possui uma GUI de entrada de dados. O que vamos fazer é criar a GUI de entrada de dados apenas para esta tabela usando o Screen Painter e OPEN SQL, visto que temos que respeitar as Foreing Keys das tabelas transparentes,  é necessário rodar primeiramente o programa ZDADOS para preencher manualmente as tabelas auxiliares para nosso programa.

Abap

*&---------------------------------------------------------------------*
*& Report  ZDF_ALPHA
*&
*&---------------------------------------------------------------------*
*& Desenvolvimento Aberto
*& Screen Painter - Alphanumeric
*&---------------------------------------------------------------------*

REPORT  ZDF_ALPHA.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*

TABLES SPFLI.

DATA OK_CODE LIKE SY-UCOMM.
DATA PROG LIKE SY-REPID.
PROG = 'ZDF_ALPHA'.

CALL SCREEN 100.

MODULE STATUS_0100 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.

 SET TITLEBAR 'Screen Painter Alpha - Reserva de Voo' OF PROGRAM PROG.

  CASE SY-UCOMM.
    WHEN 'F_SAIR'.
      LEAVE PROGRAM.

    WHEN 'F_MOSTRAR'.
      SELECT SINGLE *  FROM spfli INTO
             CORRESPONDING FIELDS OF spfli
      WHERE
             carrid = spfli-CARRID AND
             CONNID = spfli-CONNID.

    WHEN 'F_LIMPAR'.
      CLEAR SPFLI.

    WHEN 'F_GRAVAR'.
      INSERT INTO SPFLI VALUES SPFLI.
      MESSAGE 'Registro gravado com Sucesso' TYPE 'S'.
      CLEAR SPFLI.

    WHEN 'F_EXCLUIR'.
      DELETE FROM SPFLI CLIENT SPECIFIED
      WHERE
              mandt =  spfli-MANDT  AND
              carrid = spfli-CARRID AND
              CONNID = spfli-CONNID.
      MESSAGE 'Registro deletado com Sucesso' TYPE 'S'.
      CLEAR SPFLI.

  ENDCASE.

ENDMODULE.                 " STATUS_0100  OUTPUT