Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DEF VAR wopcao AS CHAR FORMAT "x(11)" EXTENT 5 INITIAL
- [" Inclusao ",
- " Alteracao ",
- " Exclusao ",
- " Consulta ",
- " Relatorio "].
- form wopcao[1] FORMAT "x(09)" SPACE(01)
- wopcao[2] FORMAT "x(10)" SPACE(01)
- wopcao[3] FORMAT "x(09)" SPACE(01)
- wopcao[4] FORMAT "x(09)" SPACE(01)
- wopcao[5] FORMAT "x(10)"
- WITH FRAME f-opcoes NO-LABELS ROW 4 WIDTH 80.
- REPEAT:
- MESSAGE "Escolha a Opcao Desejada".
- DISPLAY wopcao WITH FRAME f-opcoes.
- CHOOSE FIELD wopcao AUTO-RETURN WITH FRAME f-opcoes.
- IF FRAME-INDEX = 1 then MESSAGE "Entrou na Opção de Inclusão".
- IF FRAME-INDEX = 2 then MESSAGE "Entrou na Opção de Alteração".
- IF FRAME-INDEX = 3 then MESSAGE "Entrou na Opção de Exclusão".
- IF FRAME-INDEX = 4 then MESSAGE "Entrou na Opção de Consulta".
- IF FRAME-INDEX = 5 then MESSAGE "Entrou na Opção de Relatório".
- END.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement