Criando Procedures

Discussão em 'Comandos Básicos' iniciado por fdantas, Janeiro 24, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Exemplo simples de criação e uso de procedures

    Código:
    Def Var c-teste As Char No-undo.

Assign c-teste = 'Teste 01'.
Run pi-mostra.

Assign c-teste = 'Teste 02'.
Run pi-mostra.

Procedure pi-mostra :

    MESSAGE 'Mensagem: ' c-teste
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
    Disp c-teste.

End Procedure.
    fdantas, Janeiro 24, 2009
    #1

Compartilhe esta Página