Trabalhando com Includes

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

  1. fdantas

    fdantas Administrator Moderador

    Programa dvau0408.p
    Código:
    
Def Var c-teste As Char No-undo.
Assign c-teste = 'Teste 1'.
{aulas\dvau0408.i}

Assign c-teste = 'Teste 2'.
{aulas\dvau0408.i}

Assign c-teste = 'Erro 3'.
{aulas\dvau0408.i}

Assign c-teste = 'Teste 4'.
{aulas\dvau0408.i}
    Include dvau0408.i

    Código:
    
If c-teste Begins 'Teste' Then
    MESSAGE c-teste VIEW-AS ALERT-BOX Warning BUTTONS OK.
Else
    MESSAGE c-teste VIEW-AS ALERT-BOX Error BUTTONS OK.
    fdantas, Janeiro 24, 2009
    #1

Compartilhe esta Página