Criação de Variáveis

Na criação de uma variável deve-se ter em mente alguns pontos fundamentais:

• A declaração
• O tipo de variável
• A função CRIAVAR()
• A inicialização
• Padronização de variáveis

A Declaração
Deve ser feita sempre no início da rotina que for utilizá-la, como no exemplo:

Function a910VerCod()

Local cCod910 := “001”

Return

O Tipo de Variável
O tipo de variável serve para identificar a utilização que a mesma terá no decorrer da rotina.
Toda variável deve estar tipada durante sua criação. Quando programamos nativamente em
“C”, isto se torna obrigatório. Devemos fazer o mesmo no AP5, pois isto demonstra que a
variável foi conscientemente declarada.

Tipos Existentes

PUBLIC: Esta variável será inicializada em um valor lógico falso (.F.) até que seja
atribuído um valor específico a ela. Esta variável permanece definida por toda a duração da
aplicação e pode ser vista (assim como usada, alterada e avaliada) por qualquer função.
Esta variável gera um token (indicação) na tabela de símbolos, isto significa que o módulo
principal conterá símbolos para esta classe de variável, o que, por sua vez, ocupa mais
espaço de memória. Deve-se evitar a utilização deste tipo, a não ser em casos extremos.

PRIVATE: Esta variável será inicializada em valor nulo (NIL) e uma vez declarada,
permanecerá assim durante toda a duração do fluxo da função, até que este volte ao
procedimento inicial que a chamou. Em essência, uma variável de memória PRIVATE
inicializada logo no início do Protheus, agirá como um variável PUBLIC. Esta variável
pode ser vista por uma sub-rotina da função e modificada de maneira correspondente. Esta
variável também gera um token na tabela de símbolos comentada acima.

1
LOCAL: Esta variável de memória será inicializada com valor nulo (NIL) e só é visível
dentro da função que a inicializa, mesmo que esta última, contenha funções incorporadas a
seu conteúdo. Este tipo de variável é o mais adequado a ser utilizado em funções, pois não
gera símbolos na tabela de símbolos, por conseqüência ocupa pouco espaço de memória e,
o compilador avalia as variáveis LOCAL e STATIC mais rapidamente que os outros tipos
(PUBLIC e PRIVATE). Cuidado para não sucumbir à teoria de que se pode obter economia
de memória, mudando qualquer referência PRIVATE para uma referência LOCAL. Se
você fizer isso, as funções podem não funcionar corretamente, embora funcionassem na
versão anterior às alterações.

STATIC: A variável STATIC é idêntica à classe de armazenamento LOCAL, com uma

exceção. Uma variável STATIC é retida dentro de sua sub-rotina, mesmo depois que o
fluxo da função a tenha deixado. Isto é particularmente útil para funções independentes tipo
“caixa-preta”, que contém seu próprio conjunto de variáveis exclusivas e devem manter
esses valores de interação em interação.

Inicialização
Quando não atribuímos nenhum valor a uma variável no momento de sua declaração,
corremos o risco de utilizá-la com valor “NIL” e causar erros fatais. Por isso, a
inicialização de uma variável é de extrema importância.

Padronização de Variáveis
É importante que ao lermos o nome de uma variável, possamos saber se o seu tipo é
numérico, caracter, data ou lógico. O nome da variável de get não deve coincidir com uma
variável de outro programa, pois toda variável de get possui um help específico.

Exemplo:

a variável DBaixa (get da baixa no programa de Títulos a Receber), já possui um texto help
que indica seu conteudo e não deverá ser criada outra variável para outra finalidade com
este mesmo nome.

Para tanto, definimos a seguinte padronização :

N -> Numéricas

L -> Lógicas

D -> Data

C -> Caracter

A -> Array (matriz)

2
O -> Objeto

U -> Sem definição

Criando uma Variável Utilizando a Função CRIAVAR()

Esta função cria uma variável, retornando o valor do campo, de acordo com o dicionário de
dados. Avalia o inicializador padrão e retorna o conteúdo de acordo com o tipo de dado
definido no dicionário.

Sintaxe

uRet := CriaVar(cCampo,lIniPad,cLado)

Onde :

Uret -> tipo de retorno de acordo com o dicionário de dados, considerando inicializador
padrão.

cCampo -> Nome do campo

LiniPad -> Indica se considera (.T.) ou não (.F.) o inicializador padrao (X3_RELACAO)

Clado -> Lado para inicializaçäo padrão

Variáveis de Relatórios
Na criação de um relatório algumas variáveis e seus tipos são convencionados para a
utilização da biblioteca de funções de relatório.

Variável Tipo Conteúdo

wnRel Local Nome default do relatório em disco
cbCont Local Contador
Cabec1 Local 1ª linha do cabeçalho do relatório
Cabec2 Local 2ª linha do cabeçalho do relatório
Cabec3 Local 3ª linha do cabeçalho do relatório
Tamanho do Relatório (P = Pequeno 80 colunas, M = Médio
Tamanho Local
132 colunas, G = Grande, 220 colunas)
cDesc1 Local 1ª linha da descrição do relatório
cDesc2 Local 2ª linha da descrição do relatório
cDesc3 Local 3ª linha da descrição do relatório
Limite Local Quantidade de colunas no relatório (80,132,220)

3
Titulo Local Título do Relatório
Matriz com as informações para a tela de configuração de
aReturn Private
impressão
Nomeprog Private Nome do programa do relatório
cString Private Alias do arquivo principal do relatório para o uso de filtro
Controle das linhas de impressão. Seu valor inicial é a
Li Private
quantidade máxima de linhas por página utilizada no relatório
m_pag Private Controle do número de páginas do relatório
Matriz contendo as ordens de layout para a impressão. Caso não
existam várias ordens esta matriz deve estar vazia. Ex.: aOrd :=
aOrd Private {"Código", "Descrição", "Telefone"} -> O layout do relatório
vai depender da ordem selecionada na tela de configuração de
impressão
Utilizado para controlar o cancelamento da impressão do
nLastKey Private
relatório
cPerg Private Nome da pergunta a ser exibida para o usuário
Matriz que contem informações para impressão de relatórios
aLinha Private
cadastrais

4
Tipos de Dados
O AdvPl não é uma linguagem de tipos rígidos (strongly typed), o que significa que
variáveis de memória podem diferentes tipos de dados durante a execução do programa.
Variáveis podem também conter objetos, mas os tipos primários da linguagem são:

Numérico
O AdvPl não diferencia valores inteiros de valores com ponto flutuante, portanto pode-se
criar variáveis numéricas com qualquer valor dentro do intervalo permitido. Os seguintes
elementos são do tipo de dado numérico:

43.53

0.5

0.00001

1000000

Uma variável do tipo de dado numérico pode conter um número de dezoito dígitos
incluindo o ponto flutuante, no intervalo de 2.2250738585072014 E–308 até
1.7976931348623158 E+308.

Lógico
Valores lógicos em AdvPl são identificados através de .T. ou .Y. para verdadeiro e .F. ou
.N. para falso (independentemente se os caracteres estiverem em maiúsculo ou minúsculo).

Caracter
Strings ou cadeias de caracteres são identificadas em AdvPl por blocos de texto entre aspas
duplas (") ou aspas simples ('):

"Olá mundo!"

5
'Esta é uma string'

"Esta é 'outra' string"

Uma variável do tipo caracter pode conter strings com no máximo 1 Mb, ou seja, 1048576
caracteres.

Data
O AdvPl tem um tipo de dados específico para datas. Internamente as variáveis deste tipo
de dado são armazenadas como um número correspondente a data Juliana.

Variáveis do tipo de dados Data não podem ser declaradas diretamente, e sim através da
utilização de funções específicas como por exemplo ctod que converte uma string para data.

Matriz (Array)
Matrizes são um tipo de dado especial. É a disposição de outros elementos em colunas e
linhas. O AdvPl suporta matrizes uni ou multidimensionais. Os elementos de uma matriz
são acessados através de índices numéricos iniciados em 1, identificando a linha e coluna
para quantas dimenões existirem.

Uma matriz pode conter no máximo 100000 elementos, independentemente do número de

dimensões.

Matrizes devem ser utilizadas com cautela, pois se forem muito grandes podem exaurir a
memória do servidor.

Bloco de Código
O bloco de código é um tipo de dado especial. É utilizado para armazenar instruções
escritas em AdvPl que poderão ser executadas posteriormente.

6
Criação e Atribuição de Variáveis
Variáveis de memória são um dos recursos mais importantes de uma linguagem. São áreas
de memória criadas para armazenar informações utilizadas por um programa para a
execução de tarefas. Por exemplo, quando o usuário digita uma informação qualquer, como
o nome de um produto, em uma tela de um programa esta informação é armazenada em
uma variável de memória para posteriormente ser gravada ou impressa.

A partir do momento que uma variável é criada, não é necessário mais se referenciar ao seu
conteúdo, e sim ao seu nome. O nome de uma variável é um identificador único que segue
duas regras regras:

Máximo de 10 caracteres. O AdvPl não impede a criação de uma variável de memória

cujo nome contenha mais de 10 caracteres, porém apenas os 10 primeiros serão
considerados para a localização do conteúdo armazenado. Portanto se forem criadas duas
variáveis cujos 10 primeiros caracteres forem iguais, como nTotalGeralAnual e
nTotalGeralMensal, as referências a qualquer uma delas no programa resultarão o mesmo.
Ou seja, serão a mesma variável:

nTotalGeralMensal := 100

nTotalGeralAnual := 300

Alert("Valor mensal: " + cValToChar(nTotalGeralMensal))

Quando o conteúdo da variável nTotalGeralMensal é exibido, o seu valor será de 300. Isso
acontece porque no momento que esse valor foi atribuido à variável nTotalGeralAnual, o
AdvPl considerou apenas os 10 primeiros caracteres (assim como o faz quando deve exibir
o valor da variável nTotalGeralMensal), ou seja, considerou-as como a mesma variável.
Assim o valor original de 100 foi substituido pelo de 300.

Limitação de caracteres no nome. Os nomes das variáveis devem sempre começar por
uma letra ou o caracter de sublinhado ( _ ). No restante, pode conter letras, números e o
caracter de sublinhado. Qualquer outro caracter, incluindo espaços em branco, não são
permitidos.

O AdvPl permite a criação ilimitada de variáveis, dependendo apenas da memória

disponível. A seguir estão alguns nomes válidos para variáveis:

7
TOT01

cNumero

VAR_QUALQUER

M_CARGO

A11

E alguns inválidos:

1CODIGO (Inicia por um número)

M CARGO (contém um espaço em branco)

LOCAL (palavra reservada do AdvPl)

O AdvPl não é uma linguagem de tipos rígidos para variáveis, ou seja, não é necessário
informar o tipo de dados que determinada variável irá conter no momento de sua
declaração, e o seu valor pode mudar durante a execução do programa. Também não há
necessidade de declarar variáveis em uma seção específica do seu código fonte, embora
seja aconselhável declarar todas as variáveis necessárias no começo, tornando a
manutenção mais fácil e evitando a declaração de variáveis desnecessárias.

Para declarar uma variável deve-se utilizar um identificador de escopo, seguido de uma
lista de variáveis separadas por vírgula (,). Um identificador de escopo é uma palavra chave
que indica a que contexto do programa a variável declarada pertence. O contexto de
variáveis pode ser local (visualizadas apenas dentro do programa atual), público
(visualizadas por qualquer outro programa), entre outros. Os diferentes tipos de contexto de
variáveis são explicados na documentação sobre escopo de variáveis.

Considere as linhas de código de exemplo:

nResultado := 250 * (1 + (nPercentual / 100))

8
Se esta linha for executada em um programa AdvPl, ocorrerá um erro de execução com a
mensagem "variable does not exist: nPercentual", pois esta variável está sendo utilizada em
uma expressão de cálculo sem ter sido declarada. Para solucionar este erro, deve-se declarar
a variável previamente:

Local nPercentual, nResultado

nResultado := 250 * (1 + (nPercentual / 100))

Neste exemplo, as variáveis são declaradas previamente utilizando o identificador de

escopo local. Quando a linha de cálculo for executada, o erro de variável não existente não
mais ocorrerá. Porém variáveis não inicializadas têm sempre o valor default nulo (Nil) e
este valor não pode ser utilizado em um cálculo pois também gerará erros de execução
(nulo não pode ser dividido por 100). A resolução deste problema é efetuada inicializando-
se a variável através de uma das formas:

Local nPercentual,nResultado

Store 10 To nPercentual

nResultado := 250 * (1 + (nPercentual / 100))

ou

Local nPercentual, nResultado

nPercentual := 10

nResultado := 250 * (1 + (nPercentual / 100))

ou

9
Local nPercentual := 10, nResultado

nResultado := 250 * (1 + (nPercentual / 100))

A diferença entre o último exemplo e os dois anteriores é que a variável é inicializada no

momento da declaração. Nos dois primeiros exemplos, a variável é primeiro declarada e
então inicializada em uma outra linha de código. O comando store existe apenas por
compatibilidade com versões anteriores e outras linguagens xBase, mas é obsoleto. Deve-se
utilizar o operador de atribuição (:= ou somente =). É aconselhável optar pelo operador de
atribuição composto de dois pontos e sinal de igual, pois o operador de atribuição
utilizando somente o sinal de igual pode ser facilmente confundido com o operador
relacional (para comparação) durante a criação do programa.

Uma vez que um valor lhe seja atribuído, o tipo de dado de uma variável é igual ao tipo de
dado do valor atribuído. Ou seja, uma variável passa a ser numérica se um número lhe é
atribuído, passa a ser caracter se uma string de texto lhe for atribuída, etc. Porém mesmo
que uma variável seja de determinado tipo de dado, pode-se mudar o tipo da variável
atribuindo outro tipo a ela:

01 Local xVariavel // Declara a variável inicialmente com valor nulo

02

03 xVariavel := "Agora a variável é caracter..."

04 Alert("Valor do Texto: " + xVariavel)

05

06 xVariavel := 22 // Agora a variável é numérica

07 Alert(cValToChar(xVariavel))

08

09 xVariavel := .T. // Agora a variável é lógica

10 If xVariavel

11 Alert("A variável tem valor verdadeiro...")

12 Else

10
13 Alert("A variável tem valor falso...")

14 Endif

15

16 xVariavel := Date() // Agora a variável é data

17 Alert("Hoje é: " + DtoC(xVariavel))

18

19 xVariavel := nil // Nulo novamente

20 Alert("Valor nulo: " + xVariavel)

21

22 Return

No programa de exemplo anterior, a variável xVariavel é utilizada para armazenar diversos

tipos de dados. A letra "x" em minúsculo no começo do nome é utilizada para indicar uma
variável que pode conter diversos tipos de dados, segundo a Notação Húngara (consulte
documentação específica para detalhes). Este programa troca os valores da variável e exibe
seu conteúdo para o usuário através da função alert. Essa função recebe um parâmetro que
deve ser do tipo string de caracter, por isso dependendo do tipo de dado da variável
xVariavel é necessário fazer uma conversão antes.

Apesar dessa flexibilidade de utilização de variáveis, deve-se tomar cuidados na passagem

de parâmetros para funções ou comandos, e na concatenação (ou soma) de valores. Note a
linha 20 do programa de exemplo. Quando esta linha é executada, a variável xVariavel
contem o valor nulo. A tentativa de soma de tipos de dados diferentes gera erro de
execução do programa. Nesta linha do exemplo, ocorrerá um erro com a mensagem "type
mismatch on +". Excetuando-se o caso do valor nulo, para os demais deve-se sempre
utilizar funções de conversão quando necessita-se concatenar tipos de dados diferentes (por
exemplo, nas linhas 07 e 17.

Note também que quando uma variável é do tipo de dado lógico, ela pode ser utilizada
diretamente para checagem (linha 10):

If xVariavel

11
é o mesmo que

If xVariavel = .T.

A declaração de variáveis para os demais tipos de dados, matrizes e blocos de código, é

exatamente igual ao descrito até agora. Apenas existem algumas diferenças quanto a
inicialização, que podem ser consultadas na documentação de inicialização de matrizes e
blocos de código.

12
Matrizes
Matrizes, ou arrays, são coleções de valores. Ou, de uma maneira mais fácil de entender,
uma lista. Uma matriz pode ser criada através de diferentes maneiras. Consulte a
documentação sobre Inicialização de Matrizes para maiores detalhes.

Cada item em uma matriz é referenciado pela indicação de sua posição numérica na lista,
iniciando pelo número 1. O exemplo a seguir declara uma variável, atribui uma matriz de
três elementos a ela, e então exibe um dos elementos e o tamanho da matriz:

Local aLetras // Declaração da variável

aLetras := {"A", "B", "C"} // Atribuição da matriz à variável

Alert(aLetras[2]) // Exibe o segundo elemento da matriz

Alert(cValToChar(Len(aLetras))) // Exibe o tamanho da matriz

O AdvPl permite a manipulação de matrizes facilmente. Enquanto que em outras

linguagens como C ou Pascal é necessário alocar memória para cada elemento de uma
matriz (o que tornaria a utilização de "pointeiros" necessária), o AdvPl se encarrega de
gerenciar a memória e torna simples adicionar elementos a uma matriz, utilizando a função
aAdd:

aAdd(aLetras,"D") // Adiciona o quarto elemento ao final da matriz

Alert(aLetras[4]) // Exibe o quarto elemento

Alert(aLetras[5]) // Erro! Não há um quinto elemento na matriz

Matrizes como Estruturas

Uma característica interessante do AdvPl é que uma matriz pode conter qualquer coisa:
números, datas, lógicos, caracteres, objetos, etc. E ao mesmo tempo. Em outras palavras, os
elementos de uma matriz não precisam ser necessariamente do mesmo tipo de dado, em
contraste com outras linguagens como C e Pascal.

13
aFunct1 := {"Pedro",32,.T.}

Esta matriz contem uma string, um número e um valor lógico. Em outras linguagens como
C ou Pascal, este "pacote" de informações pode ser chamado como um "struct" (estrutura
em C, por exemplo) ou um "record" (registro em Pascal, por exemplo). Como se fosse na
verdade um registro de um banco de dados, um pacote de informações construído com
diversos campos. Cada campo tendo um pedaço diferente de dado.

Suponha que no exemplo anterior, o array aFunct1 contenha informações sobre o nome de
uma pessoa, sua idade e sua situação matrimonial. Os seguintes #defines podem ser criados
para indicar cada posição dos valores dentro da matriz:

#define FUNCT_NOME 1

#define FUNCT_IDADE 2

#define FUNCT_CASADO 3

E considere mais algumas matrizes para representar mais pessoas:

aFunct2 := {"Maria" , 22, .T.}

aFunct3 := {"Antônio", 42, .F.}

Os nomes podem ser impressos assim:

Alert(aFunct1[FUNCT_NOME])

Alert(aFunct2[FUNCT_NOME])

Alert(aFunct3[FUNCT_NOME])

14
Agora, ao invés de trabalhar com variáveis individuais, pode-se agrupá-las em uma outra
matriz, do mesmo modo que muitos registros são agrupados em uma tabela de banco de
dados:

aFuncts := {aFunct1, aFunct2, aFunct3}

Que é equivalente a isso:

aFuncts := { {"Pedro" , 32, .T.}, ;

{"Maria" , 22, .T.}, ;

{"Antônio", 42, .F.} }

aFuncts é uma matriz com 3 linhas por 3 colunas. Uma vez que as variáveis separadas
foram combinadas em uma matriz, os nomes podem ser exibidos assim:

Local nCount

For nCount := 1 To Len(aFuncts)

Alert(aFuncts[nCount,FUNCT_NOME])

// O acesso a elementos de uma matriz multidimensional

// pode ser realizado também desta forma:

// aFuncts[nCount][FUNCT_NOME]

Next nCount

A variável nCount seleciona que funcionário (ou que linha) é de interesse. Então a
constante FUNCT_NOME seleciona a primeira coluna daquela linha.

15
Cuidados com Matrizes
Matrizes são listas de elementos, portanto memória é necessária para armazenar estas
informações. Como as matrizes podem ser multidimensionais, a memória necessária será a
multiplicação do número de itens em cada dimensão da matriz, considerando-se o tamanho
do conteúdo de cada elemento contido nesta. Portanto o tamanho de uma matriz pode variar
muito.

A facilidade da utilização de matrizes, mesmo que para armazenar informações em pacotes

como descrito anteriormente, não é compensada pela utilização em memória quando o
número de itens em um array for muito grande. Quando o número de elementos for muito
grande deve-se procurar outras soluções, como a utilização de um arquivo de banco de
dados temporário.

Não há limitação para o número de dimensões que uma matriz pode ter, mas o número de
elementos máximo (independentes das dimensões onde se encontram) é de 100000.

16
Inicializando Matrizes
Algumas vezes o tamanho da matriz é conhecido previamente. Outras vezes o tamanho da
matriz só será conhecido em tempo de execução.

Se o tamanho da matriz é conhecido

Se o tamanho da matriz é conhecido no momento que o programa é escrito, há diversas
maneiras de implementar o código.

01 Local nCnt

02 Local aX[10]

03 Local aY := Array(10)

04 Local aZ := {0,0,0,0,0,0,0,0,0,0}

05

06 For nCnt := 1 To 10

07 aX[nCnt] := nCnt * nCnt

08 Next nCnt

Este código preenche a matriz com uma tabela de quadrados. Os valores serão 1, 4, 9, 16 ...
81, 100. Note que a linha 07 se refere à variável aX, mas poderia também trabalhar com aY
ou aZ. O objetivo deste exemplo é demonstrar trÊs modos de criar uma matriz de tamanho
conhecido no momento da criação do código.

Na linha 02 a matriz é criada usando aX[10]. Isto indica ao AdvPl para alocar espaço para
10 elementos na matriz. Os colchetes [ e ] são utilizados para indicar o tamanho necessário.

Na linha 03 é utilizada a função array com o parâmetro 10 para criar a matriz, e o retorno
desta função é atribuído à variável aY.

Na linha 03 é efetuado o que se chama "desenhar a imagen da matriz". Como pode-se notar,
existem dez 0´s na lista encerrada entre chaves ({}). Claramente, este método não é o
utilizado para criar uma matriz de 1000 elementos. O terceiro método difere dos anteriores

17
porque inicializa a matriz com os valores definitivos. Nos dois primeiros métodos, cada
posição da matriz contém um valor nulo (Nil) e deve ser inicializado posteriormente.

A linha 07 demonstra como um valor pode ser atribuído para uma posição existente em
uma matriz especificando o índice entre colchetes.

Se o tamanho da matriz não é conhecido

Se o tamanho da matriz não é conhecido até o momento da execução do programa, há
algumas maneiras de criar uma matriz e adicionar elementos a ela. O exemplo a seguir
ilustra a idéia de criação de uma matriz vazia (sem nenhum elemento) e adição de
elementos dinamicamente.

01 Local nCnt

02 Local aX[0]

03 Local aY := Array(0)

04 Local aZ := {}

05

06 For nCnt := 1 To nSize

07 aAdd(aX,nCnt*nCnt)

08 Next nCnt

A linha 02 utiliza os colchetes para criar uma matriz vazia. Apesar de não ter nenhum
elemento, seu tipo de dado é matriz.

Na linha 03 a chamada da função array cria uma matriz sem nenhum elemento.

Na linha 04 está declarada a representação de uma matriz vazia em AdvPl. Mais uma vez,
estão sendo utilizadas as chaves para indicar que o tipo de dados da variável é matriz. Note
que {} é uma matriz vazia (tem o tamanho 0), enquanto {Nil} é uma matriz com um único
elemento nulo (tem tamanho 1).

Porque cada uma destas matrizes não contem elementos, a linha 07 utiliza a função aadd
para adicionar elementos sucessivamente até o tamanho necessário (especificado por
exemplo na variável nSize).

18
Blocos de Código
Blocos de código são um conceito existente há muito tempo em linguagens xBase. Não
como algo que apareceu da noite para o dia, e sim uma evolução progressiva utilizando a
combinação de muitos conceitos da linguagem para a sua implementação.

Um Primeiro Lembrete
O AdvPl é uma linguagem baseada em funções. Funções têm um valor de retorno. Assim
como o operador de atribuição :=.

Assim, ao invés de escrever:

x := 10 // Atribui o valor 10 à variável chamada X

Alert("Valor de x: " + cValToChar(x))

Posde-se escrever:

// Atribui e então exibe o valor da variável X

Alert("Valor de x: " + cValtoChar(X := 10))

A expressão x:=10 é avaliada primeiro, e então seu resultado (o valor de X, que agora é 10)
é passada para a função cvaltochar para a conversão para caracter, e em seguida para a
função alert para a exibição. Por causa desta regra de precedência é possível atribuir um
valor a mais de uma varíavel ao mesmo tempo:

Z := Y := X := 0

Por causa dessa regra, essa expressão é avaliada como se fosse escrita assim:

19
Z := ( Y := (X := 0) )

Apesar do AdvPl avaliar expressões da esquerda para a direita, no caso de atribuições isso
acontece ao contrário, da direita para a esquerda. O valor é atribuído à variável X, que
retorna o valor para ser atribuído à variável Y e assim sucessivamente. Pode-se dizer que o
zero foi "propagado através da expressão".

Outro Lembrete
Em AdvPl pode-se juntar diversas linhas de código em uma única linha físcia do arquivo.
Por exemplo, o código:

If lAchou

Alert("Cliente encontrado!")

Endif

pode ser escrito assim:

If lAchou ; Alert("Cliente encontrado!") ; Endif

O ponto-e-vírgula indica ao AdvPl que a nova linha de código está para começar. Pode-se
então colocar diversas linhas lógicas de código na mesma linha física através do editor de
texto utilizado.

Apesar da possibilidade de se escrever todo o programa assim, em uma única linha física,
isto não é recomendado pois dificulta a legibilidade do programa e, conseqüentemente, a
manutenção.

Lista de Expressões

20
A evolução dos blocos de código começa com as listas de expressões. Nos exemplos a
seguir, o símbolo ==> indicará o retorno da expressão após sua avaliação (seja para atribuir
em uma variável, exibir para o usuário ou imprimir em um relatório), que será impresso em
um relatório por exemplo.

Duas Linhas de Código

@00,00 PSAY x := 10 ==> 10

@00,00 PSAY y := 20 ==> 20

Cada uma das linhas terá a expressão avaliada, e o valor da variável será então impresso.

Duas Linha de Código em Uma , Utilizando Ponto-e-Vírgula

Este é o mesmo código que o anterior, apenas escrito em uma única linha:

Alert( cValToChar( x := 10 ; y := 20 ) ) ==> 10

Apesar desse código se encontrar em uma única linha física, existem duas linhas lógicas
separadas pelo ponto e vírgula. Ou seja, esse código é equivalente a:

Alert( cValToChar( x := 10 ) )

y := 20

Portanto apenas o valor 10 da variável x será passado para as funções cvaltochar e alert
para ser exibido. E o valor 20 apenas será atribuído à variável y.

Convertendo para uma Lista de Expressões

Quando parênteses são colocados ao redor do código e o sinal de ponto-e-vírgula

substituído por uma vírgula apenas, o código torna-se uma lista de expressões:

21
Alert( cValToChar ( ( X := 10 , Y := 20 ) ) ) ==> 20

O valor de retorno resultante de uma lista de expressões é o valor resultante da última

expressão ou elemento da lista. Funciona como se fosse um pequeno programa ou função,
que retorna o resultado de sua última avaliação (efetuadas da esquerda para a direita).

Neste exemplo, a expressão x := 10 é avaliada, e então a expressão y := 20, cujo valor

resultante é passado para a função alert e cvaltochar, e então exibido. Depois que essa linha
de código é executada, o valor de X é igual a 10 e o de y igual a 20, e 20 será exibido.

Teoricamente, não há limitação para o número de expressões que podem ser combinadas
em uma lista de expressões. Na prática, o número máximo é por volta de 500 símbolos.

Debugar listas de expressões é difícil oprque as expressões não estão divididas em linhas de
código fonte, o que torna todas as expressões associadas a uma mesma linha de código. Isto
pode tornar muito difícil determinar onde um erro ocorreu.

Onde Pode-se Utilizar uma Lista de Expressões?

O propósito principal de uma lista de expressões é agrupá-las em uma única unidade. Em

qualquer lugar do código AdvPl que uma expressão simples pode ser utilizada, pode-se
utilizar uma lista de expressões. E ainda, pode-se fazer com que várias coisas aconteçam
onde normalmente apenas uma aconteceria.

X := 10 ; Y := 20

If X > Y

Alert("X")

Z := 1

Else

Alert("Y")

Z := -1

Endif

22
Aqui temos o mesmo conceito, escrito utilizando listas de expressões na função iif:

X := 10 ; Y := 20

iif( X > Y , ;

( Alert("X"), Z := 1 ) , ;

( Alert("Y"), Z := -1 ) )

De Listas de Expressões para Blocos de Código

Considere a seguinte lista de expressões:

Alert( cValToChar( ( x := 10, y := 20 ) ) ) ==> 20

O AdvPl permite criar funções, que são pequenos pedaços de código, como se fosse um
pequeno programa, utilizados para diminuir partes de tarefas mais complexas e reaproveitar
código em mais de um lugar num programa. Para maiores detalhes consulte a
documentação sobre a criação de funções em AdvPl. Porém, a idéia neste momento é que a
lista de expressões utilizada na linha anterior pode ser criada como uma função:

Function Lista()

X := 10

Y := 20

Return Y

E a linha de exemplo com a lista de expressões pode ser substituída, tendo o mesmo
resultado, por:

23
Alert( cValToChar( Lista() ) ) ==> 20

Como mencionado anteriormente, uma lista de expressões é como um pequeno programa

ou função. Com poucas mudanças, uma lista de expressões pode se tornar um bloco de
código:

( X := 10 , Y := 20 ) // Lista de Expressões

{|| X := 10 , Y := 20 } // Bloco de Código

Note as chaves {} utilizadas no bloco de código. Ou seja, um bloco de código é uma

matriz. Porém na verdade, não é uma lista de dados, e sim uma lista de comandos, uma lista
de código.

// Isto é uma matriz de dados

A := {10, 20, 30}

// Isto é um bloco de código, porém funciona como

// se fosse uma matriz de comandos

B := {|| x := 10, y := 20}

Executando um Bloco de Código

Diferentemente de uma matriz, não se pode acessar elementos de um bloco de código

através de um índice numérico. Porém blocos de código são semelhantes a uma lista de
expressões, e a uma pequena função. Ou seja, podem ser executados. Para a execução, ou
avaliação, de um bloco de código, deve-se utilizar a função eval:

nRes := Eval(B) ==> 20

24
Essa função recebe como parâmero um bloco de código e avalias todas as expressões
contidas neste bloco de código, retornando o resultado da última expressão avaliada.

Passando Parâmetros

Já que blocos de código são como pequenas funções, também é possível a passagem de
parâmetros para um bloco de código. Os parâmetros devem ser informados entre as barras
verticais (||) separados por vírgulas, assim como em uma função.

B := {| N | X := 10, Y := 20 + N}

Porém deve-se notar que já que o bloco de código recebe um parâmetro, um valor deve ser
passado quando o bloco de código for avaliado.

C := Eval(B, 1) ==> 21

Utilizando Blocos de Código

Blocos de código podem ser utilizados em diversas situações. Geralmente são utilizados
para executar tarefas quando eventos de objetos são acionados ou para modificar o
comportamento padrão de algumas funções.

Por exemplo, considere a matriz abaixo:

A := {"GARY HALL", "FRED SMITH", "TIM JONES"}

Esta matriz pode ser ordenada pelo primeiro nome, utilizando-se a chamada da função
asort(A), resultado na matriz com os elementos ordenados dessa forma:

{"FRED SMITH", "GARY HALL", "TIM JONES"}

25
A ordem padrão para a função asort é ascendente. Este comportamento pode ser modificado
através da informação de um bloco de código que ordena a matriz de forma descendente:

B := { |X, Y| X > Y }

aSort(A, B)

O bloco de código (de acordo com a documentação da função asort) deve ser escrito para
aceitar dois parâmetros que são os dois elementos da matriz para comparação. Note que o
bloco de código não conhece que elementos está comparando - a função asort seleciona os
elementos (talvez utilizando o algorítmo QuickSort) e passa-os para o bloco de código. O
bloco de código compara-os e retorna verdadeiro (.T.) se se encontram na ordem correta, ou
falso (.F.) se não. Se o valor de retorno for falso, a função asort irá então trocar os valores
de lugar e seguir comparando o próximo par de valores.

Então, no bloco de código anterior, a comparação X > Y é verdadeira se os elementos estão

em ordem descendente, o que significa que o primeiro valor é maior que o segundo.

Para ordenar a mesma matriz pelo último nome, também em orden descendente, pode-se
utilizar o seguinte bloco de código:

B := { |X, Y| Substr(X,At(" ",X)+1) > Substr(Y,At(" ",Y)+1) }

Note que este bloco de código procura e compara as partes dos caracteres imediatamente
seguinte a um espaço em branco. Depois de utilizar esse bloco de código para a função
asort, a matriz conterá:

{"GARY HALL", "TIM JONES", "FRED SMITH"}

Finalmente, para ordenar um sub-elemento (coluna) de uma matriz por exemplo, pode-se
utilizar o seguinte bloco de código:

B := { |X, Y| X[1] > Y[1] }

26
27
Diferenciação entre variáveis e nomes de
campos
Muitas vezes uma variável pode ter o mesmo nome que um campo de um arquivo ou tabela
aberto no momento. Neste caso, o AdvPl privilegiará o campo. Assim uma referência a um
nome que identifique tanto uma variável como um campo, resultará no conteúdo do campo.

Para especificar qual deve ser o elemento referenciado, deve-se utilizar o operador de
identificação de apelido (->) e um dos dois identificadores de referência, MEMVAR ou
FIELD.

cRes := MEMVAR->NOME

Esta linha de comando identifica que o valor atribuído à variável cRes deve ser o valor da
variável de memória chamada NOME.

cRes := FIELD->NOME

Neste caso, o valor atribuído à variável cRes será o valor do campo NOME existente no
arquivo ou tabela aberto na área atual.

O identificador FIELD pode ser substituído pelo apelido de um arquivo ou tabela aberto,
para evitar a necessidade de selecionar a área antes de acessar o conteúdo de terminado
campo.

cRes := CLIENTES->NOME

Para maiores detalhes sobre abertura de arquivos com atribuição de apelidos, consulte a
documentação sobre acesso a banco de dados ou a documentação da função dbUseArea.

28
Operadores Comuns
Na documentação sobre variáveis há uma breve demonstração de como atribuir valores a
uma variável da forma mais simples. O AdvPl amplia significativamente a utilização de
variáveis através do uso de expressões e funções. Uma expressão é um conjunto de
operadores e operandos cujo resultado pode ser atribuído a uma variável ou então analisado
para a tomada de decisões. Por exemplo:

Local nSalario := 1000, nDesconto := 0.10

Local nAumento, nSalLiquido

nAumento := nSalario * 1.20

nSalLiquido := nAumento * (1-nDesconto)

Neste exemplo são utilizadas algumas expressões para calcular o salário líquido após um
aumento. Os operandos de uma expressão podem ser uma variável, uma constante, um
campo de arquivo ou uma função.

Operadores Matemáticos
Os operadores utilizados em AdvPl para cálculos matemáticos são:

+ Adição
- Subtração
* Multiplicação
/ Divisão
** ou ^ Exponenciação
% Módulo (Resto da Divisão)

Operadores de String
Os operadores utilizados em AdvPl para tratamento de caracteres são:

+ Concatenação de strings (união)

29
- Concatenação de strings com eliminação dos brancos finais das strings intermediárias
$ Comparação de Substrings (contido em)

Operadores Relacionais
Os operadores utilizados em AdvPl para operações e avaliações relacionais são:

< Comparação Menor

> Comparação Maior
= Comparação Igual
== Comparação Exatamente Igual (para caracteres)
<= Comparação Menor ou Igual
>= Comparação Maior ou Igual
<> Comparação Diferente

ou

ou

!=

Operadores Lógicos
Os operadores utilizados em AdvPl para operações e avaliações lógicas são:

.And. E lógico
.Or. OU lógico
.Not. ou ! NÃO lógico

30
Operadores de Atribuição
Os operadores utilizados em AdvPl para atribuição de valores a variáveis de memória são:

= Atribuição Simples
:= Atribuição em Linha
+= Adição e Atribuição em Linha
-= Subtração e Atribuição em Linha
*= Multiplicação e Atribuição em Linha
/= Divisão e Atribuição em Linha
**= ou ^= Exponenciação e Atribuição em Linha
%= Módulo (resto da divisão) e Atribuição em Linha

Atribuição Simples
O sinal de igualdade é utilizado para atribuir valor a uma variável de memória.

nVariavel = 10

Atribuição em Linha
O operador de atribuição em linha é caracterizado por dois pontos e o sinal de igualdade.
Tem a mesma função do sinal de igualdade sozinho, porém aplia a atribuição às variáveis.
Com ele pode-se atribuir mais de uma variável ao mesmo tempo.

nVar1 := nVar2 := nVar3 := 0

Quando diversas variáveis são inicializadas em uma mesma linha, a atribuição começa da
direita para a esquerda, ou seja, nVar3 recebe o valro zero inicialmente, nVar2 recebe o
conteúdo de nVar3 e nVar1 recebe o conteúdo de nVar2 por final.

31
Com o operador de atribuição em linha, pode-se substituir as inicializações individuais de
cada variável por uma inicialização apenas:

Local nVar1 := 0, nVar2 := 0, nVar3 := 0

por

Local nVar1 := nVar2 := nVar3 := 0

O operador de atribuição em linha também pode ser utilizado para substituir valores de
campos em um banco de dados.

Atribuição Composta
Os operadores de atribuição composta são uma facilidade da linguagem AdvPl para
expressões de cálculo e atribuição. Com eles pode-se economizar digitação:

Operador Exemplo Equivalente a

+= X += Y X=X+Y
-= X -= Y X=X-Y
*= X *= Y X=X*Y
/= X /= Y X=X/Y
**= ou ^= X **= Y X = X ** Y
%= X %= Y X=X%Y

32
Operadores de Incremento/Decremento
A linguagem AdvPl possui operadores para realizar incremento ou decremento de
variáveis. Entende-se por incremento aumentar o valor de uma variável numérica em 1 e
entende-se por decremento diminuir o valor da variável em 1. Os operadores são:

++ Incremento Pós ou Pré-fixado

-- Decremento Pós ou Pré-fixado

Os operadores de decremento/incremento podem ser colocados tanto antes (pré-fixado)

como depois (pós-fixado) do nome da variável. Dentro de uma expressão, a ordem do
operador é muito importante, podendo alterar o resultado da expressão. Os operadores
incrementais são executados da esquerda para a direita dentro de uma expressão.

Local nA := 10

Local nB := nA++ + nA

O valor da variável nB resulta em 21, pois a primeira referência a nA (antes do ++)

continha o valor 10 que foi considerado e imediatamente aumentado em 1. Na segunda
referência a nA, este já possuía o valor 11. O que foi efetuado foi a soma de 10 mais 11,
igual a 21. O resultado final após a execução destas duas linhas é a variável nB contendo 21
e a variável nA contendo 11.

No entando:

Local nA := 10

Local nB := ++nA + nA

Resulta em 22, pois o operador incremental aumentou o valor da primeira nA antes que seu
valor fosse considerado.

33
Operadores Especiais
Além dos operadores comuns, o AdvPl possui alguns outros operadores ou identificadores.
Estas são suas finalidades:

() Agrupamento ou Função
[] Elemento de Matriz
{} Definição de Matriz, Constante ou Bloco de Código
-> Identificador de Apelido
& Macrosubstituição
@ Passagem de parâmetro por referência

Os parênteses são utilizados para agrupar elementos em uma expressão mudando a ordem
de precedência da avaliação da expressão (segundo as regras matemáticas por exemplo).
Também servem para envolver os argumentos de uma função. Veja a documentação sobre
precedência de operadores para maiores detalhes.

Os colchetes são utilizados para especificar um elemento específico de uma matriz. Por
exemplo, A[3,2], refere-se ao elemento da matriz A na linha 3, coluna 2.

As chaves são utilizadas para a especificação de matrizes literais ou blocos de código. Por
exemplo, A:={10,20,30} cria uma matriz chamada A com três elementos.

O símbolo -> identifica um campo de um arquivo diferenciando-o de uma variável. Por

exemplo, FUNC->nome refere-se ao campo nome do arquivo FUNC. Mesmo que exista
uma variável chamada nome, é o campo nome que será acessado.

O símbolo & identifica uma avaliação de expressão através de macro e é visto em detalhes
na documentação sobre macrossubstituição.

O símbolo @ é utilizado para indicar que durante a passagem de uma variável para uma
função ou procedimento ela seja tomada como uma referência e não como valor.

34
Ordem de Precedência dos Operadores
Dependendo do tipo de operador, existe uma ordem de precedência para a avaliação dos
operandos. Em princípio, todas as operações com os operadores são realizadas da esquerda
para a direita se eles tiverem o mesmo nível de prioridade.

A ordem de precedência, ou nível de prioridade de execução, dos operadores em AdvPl é:

1. Operadores de Incremento/Decremento pré-fixado

2. Operadores de String
3. Operadores Matemáticos
4. Operadores Relacionais
5. Operadores Lógicos
6. Operadores de Atribuição
7. Operadores de Incremento/Decremento pós-fixado

Em expressões complexas com diferentes tipos de operadores, a avaliação seguirá essa

sequência. Caso exista mais de um operador do mesmo tipo (ou seja, de mesmo nível), a
avaliação se dá da esquerda para direita. Para os operadores matemáticos entretanto há uma
precedência a seguir:

1. Exponenciação
2. Multiplicação e Divisão
3. Adição e Subtração

Considere o exemplo:

Local nResultado := 2+10/2+5*3+2^3

O resultado desta expressão é 30, pois primeiramente é calculada a exponenciação 2^3(=8),

então são calculadas as multiplicações e divisões 10/2(=5) e 5*3(=15), e finalmente as
adições resultando em 2+5+15+8(=30).

Alteração da Precedência
A utilização de parênteses dentro de uma expressão altera a ordem de precedência dos
operadores. Operandos entre parênteses são analisados antes dos que se encontram fora dos
parênteses. Se existirem mais de um conjunto de parênteses não-aninhados, o grupo mais a
esquerda será avaliado primeiro e assim sucessivamente.

35
Local nResultado := (2+10)/(2+5)*3+2^3

No exemplo acima primeiro será calculada a exponenciação 2^3(=8). Em seguida

2+10(=12) será calculado, 2+5(=7) calculado, e finalmente a divisão e a multiplicação
serão efetuadas, o que resulta em 12/7*3+8(=13.14).

Se existirem vários parênteses aninhados, ou seja, colocados um dentro do outro, a

avaliação ocorrerá do parênteses mais intero em direção ao mais externo.

36
Macro Substituição
O operador de macro substituição, simbolizado pelo "e" comercial (&), é utilizado para a
avaliação de expressões em tempo de execução. Funciona como se uma expressão
armazenada fosse compilada em tempo de execução, antes de ser de fato executada.
Considere o exemplo:

01 X := 10

02 Y := "X + 1"

03 B := &Y // O conteúdo de B será 11

A variável X é atribuída com o valor 10, enquanto a variável Y é atribuída com a string de
caracteres contendo "X + 1".

A terceira linha utiliza o operador de macro. Esta linha faz com que o número 11 seja
atribuído à variável B. Pode-se perceber que esse é o valor resultante da expressão em
formato de caractere contida na variável Y.

Utilizando-se uma técnica matemática elementar, a substituição, temos que na segunda

linha, Y é definido como "X + 1", então pode-se substituir Y na terceira linha:

03 B := &"X + 1"

O operador de macro cancela as aspas:

03 B := X + 1

Pode-se perceber que o operador de macro remove as aspas, o que deixa um pedaço de
código para ser executado. Deve-se ter em mente que tudo isso acontece em tempo de
eecução, o que torna tudo muito dinâmico. Uma utilização interessante é criar um tipo de

37
calculadora, ou avaliador de fórmulas, que determina o resultado de algo que o usuário
digita.

O operador de macro tem uma limitação: variáveis referenciadas dentro da string de

caracteres (X nos exemplos anteriores) não podem ser locais.

38
Controlando o Fluxo
O AdvPl suporta várias estruturas de controle que permitem mudar a seqüência de fluxo de
execução de um programa. Estas estruturas permitem a execução de código baseado em
condições lógica e a repetição da execução de pedaços de código qualquer número de
vezes.

Em AdvPl, todas as estruturas de controle podem ser "aninhadas" dentro de todas as demais
estruturas contanto que estejam aninhadas propriamente. Estruturas de controle têm um
identificador de início e um de fim, e qualquer estrutura aninhada deve se encontrar entre
estes identificadores.

Também existem estruturas de controle para determinar que elementos, comandos, etc em
um programa serão compilados. Estas são as diretivas do pré-processador #ifdef...#endif e
#ifndef...#endif. Consulte a documentação sobre o pré-processador para maiores detalhes.

As estruturas de controle em AdvPl estão divididas em Estruturas de Repetição e Estruturas

de Decisão.

39
Repetição de Comandos
Estruturas de repetição são deseginadas para executar uma seção de código mais de uma
vez. Por exemplo, imagiando-se a existência de uma função para imprimir um relatório,
pode-se desejar imprimi-lo quatro vezes. Claro, pode-se simplesmente chamar a função de
impressão quatro vezes em seqüência, mas isto se tornaria pouco profissional e não
resolveria o problema se o número de relatórios fosse variável.

Em AdvPl existem dois comandos para a repetição de seções de código. O comando

FOR...NEXT e o comando WHILE...ENDDO.

O Comando FOR...NEXT
A estrutura de controle FOR...NEXT, ou simplesmente o loop FOR, repete uma seção de
código em um número determinado de vezes.

Sintaxe

FOR Variavel := nValorInicial TO nValorFinal [STEP nIncremento]

Comandos...

[EXIT]

[LOOP]

NEXT

Parâmetros

Variavel Especifica uma variável ou um elemento de uma matriz para atuar

como um contador. A variável ou o elemento da matriz não precisa ter
sido declarado antes da execução do comando FOR...NEXT. Se a
variável não existir, será criada como uma variável privada.
nValorInicial TO nValorInicial é o valor inicial para o contador; nValorFinal é o valor
nValorFinal final para o contador. Pode-se utilizar valores numéricos literais,
variáveis ou expressões, contanto que o resultado seja do tipo de dado
numérico.
STEP nIncremento é a quandidade que será incrementada ou decrementada
nIncremento no contador após cada execução da seção de comandos. Se o valor de
nIncremento for negativo, o contador será decrementado. Se a
cláusula STEP for omitida, o contador será incrementado em 1. Pode-

40
 se utilizar valores numéricos literais, variáveis ou expressões, contanto
que o resultado seja do tipo de dado numérico.
Comandos Especifica um ou mais instruções de comando AdvPl que serão
executadas.
EXIT Transfere o controle de dentro do comando FOR...NEXT para o
comando imediatamente seguinte ao NEXT, ou seja, finaliza a
repetição da seção de comandos imediatamente. Pode-se colocar o
comando EXIT em qualquer lugar entre o FOR e o NEXT.
LOOP Retorna o controle diretamente para a cláusula FOR sem executar o
restante dos comandos entre o LOOP e o NEXT. O contador é
incrementadou ou decrementado normalmente, como se o NEXT
tivesse sido alcançado. Pode-se colocar o comando LOOP em
qualquer lugar entre o FOR e o NEXT.

Comentários

Uma variável ou um elemento de uma matriz é utilizado como um contador para especificar
quantas vezes os comandos AdvPl dentro da estrutura FOR...NEXT são executados. Os
comandos AdvPl depois do FOR são executados até que o NEXT seja alcançado. O
contador (Variavel) é então incrementado ou decremantado com o valor em nIncremento
(se a cláusula STEP for omitida, o contador é incrementado em 1). Então, o contador é
comparado com o valor em nValorFinal. Se for menor ou igual ao valor em nValorFinal, os
comandos seguintes ao FOR são executados novamente. Se o valor for maior que o contido
em nValorFinal, a estrutura FOR...NEXT é terminada e o programa continua a execução no
primeiro comando após o NEXT.

Os valores de nValorInicial, nValorFinal e nIncremento são apenas considerados

inicialmente. Entretanto, mudar o valor da variável utilizada como contador dentro da
estrutura afetará o número de vezes que a repetição será executada. Se o valor de
nIncremento é negativo e o valor de nValorInicial é maior que o de nValorFinal, o contador
será decrementado a cada repetição.

Exemplo

Local nCnt

Local nSomaPar := 0

For nCnt := 0 To 100 Step 2

nSomaPar += nCnt

Next

41
Alert( "A soma dos 100 primeiros números pares é: " + ;

cValToChar(nSomaPar) )

Return

Este exemplo imprime a soma dos 100 primerios números pares. A soma é obitida através
da repetição do cálculo utilizando a própria variável de contador. Como a cláusula STEP
está sendo utilizada, a variável nCnt será sempre incrementada em 2. E como o contador
começa com 0, seu valor sempre será um número par.

O Comando WHILE...ENDDO
A estrutura de controle WHILE...ENDDO, ou simplesmente o loop WHILE, repete uma
seção de código enquanto uma determinada expressão resultar em verdadeiro (.T.).

Sintaxe

WHILE lExpressao

Comandos...

[EXIT]

[LOOP]

ENDDO

Parâmetros

lExpressao Especifica uma expressão lógica cujo valor determina quando os

comandos entre o WHILE e o ENDDO são executados. Enquanto o
resultado de lExpressao for avaliado como verdadeiro (.T.), o conjunto
de comandos são executados.
Comandos Especifica um ou mais instruções de comando AdvPl que serão

42
 executadas enquanto lExpressao for avaliado como verdadeiro (.T.).
EXIT Transfere o controle de dentro do comando WHILE...ENDDO para o
comando imediatamente seguinte ao ENDDO, ou seja, finaliza a
repetição da seção de comandos imediatamente. Pode-se colocar o
comando EXIT em qualquer lugar entre o WHILE e o ENDO.
LOOP Retorna o controle diretamente para a cláusula WHILE sem executar o
restante dos comandos entre o LOOP e o ENDDO. A expressão em
lExpressao é reavaliada para a decisão se os comandos continuarão
sendo executados.

Comentários

Os comandos entre o WHILE e o ENDDO são executados enquanto o resultado da

avaliação da expressão em lExpressao permanecer verdadeiro (.T.). Cada palavra chave
WHILE deve ter uma palavra chave ENDDO correspondente.

Exemplo

Local nNumber := nAux := 350

nAux := Int(nAux / 2)

While nAux > 0

nSomaPar += nCnt

Next

Alert( "A soma dos 100 primeiros números pares é: " + ;

cValToChar(nSomaPar) )

Return

43
Desviando a Execução
Estruturas de desvio são deseginadas para executar uma seção de código se determinada
condição lógica resultar em verdadeiro (.T.). Em AdvPl existem dois comandos para
execução de seções de código de acordo com avaliações lógicas. O comando IF...ENDIF e
o comando DO CASE...ENDCASE.

O Comando IF...ENDIF
Executa um conjunto de comandos baseado no valor de uma expressão lógica.

Sintaxe

IF lExpressao

Comandos

[ELSE

Comandos...]

ENDIF

Parâmetros

lExpressao Especifica uma expressão lógica que é avaliada. Se lExpressao resultar

em verdadeiro (.T.), qualquer comando seguinte ao IF e antecedente ao
ELSE ou ENDIF (o que ocorrer primeiro) será executado.

Se lExpressao resultar em falso (.F.) e a cláusula ELSE for definida,

qualquer comando após essa cláusula e anterior ao ENDIF será
executada. Se a cláusula ELSE não for definida, todos os comandos
entre o IF e o ENDIF são ignorados. Neste caso, a execução do
programa continua com o primeiro comando seguinte ao ENDIF.
Comandos Conjunto de comandos AdvPl que serão executados dependendo da
avaliação da expressão lógica em lExpressao.

Comentários

Pode-se aninhar um bloco de comando IF...ENDIF dentro de outro bloco de comando

IF...ENDIF. Porém, para a avaliação de mais de uma expressão lógica, deve-se utilizar o
comando DO CASE...ENDCASE.

44
Exemplo

Local dVencto := CTOD("31/12/01")

If Date() > dVencto

Alert("Vencimento ultrapassado!")

Endif

Return

O Comando DO CASE...ENDCASE
Executa o primeiro conjunto de comandos cuja expressão condicional resulta em
verdadeiro (.T.).

Sintaxe

DO CASE

CASE lExpressao1

Commandos

[CASE lExpressao2

Commandos

...

CASE lExpressaoN

Commandos]

[OTHERWISE

Commandos]

45
ENDCASE

Parâmetros

CASE Quando a primeira expressão CASE resultante em verdadeiro

lExpressao1 (.T.) for encontrada, o conjunto de comandos seguinte é
Comandos... executado. A execução do conjunto de comandos continua até que
a próxima cláusula CASE, OTHERWISE ou ENDCASE seja
encontrada. Ao terminar de executar esse conjunto de comandos,
a execução continua com o primeiro comando seguinte ao
ENDCASE.

Se uma expressão CASE resultar em falso (.F.), o conjunto de

comandos seguinte a esta até a próxima cláusula é ignorado.

Apenas um conjunto de comandos é executado. Estes são os

primeiros comandos cuja expressão CASE é avaliada como
verdadeiro (.T.). Após a execução, qualquer outra expressão
CASE posterior é ignorada (mesmo que sua avaliação resultasse
em verdadeiro).
OTHERWISE Se todas as expressões CASE forem avaliadas como falso (.F.), a
Commandos cláusula OTHERWISE determina se um conjunto adicional de
comandos deve ser executado. Se essa cláusula for incluida, os
comandos seguintes serão executados e então o programa
continuará com o primeiro comando seguinte ao ENDCASE. Se a
cláusula OTHERWISE for omitida, a execução continuará
normalmente após a cláusula ENDCASE.

Comentários

O Comando DO CASE...ENDCASE é utilizado no lugar do comando IF...ENDIF quando

um número maior do que uma expressão deve ser avaliada, substituindo a necessidade de
mais de um comando IF...ENDIF aninhados.

Exemplo

Local nMes := Month(Date())

Local cPeriodo := ""

DO CASE

CASE nMes <= 3

46
 cPeriodo := "Primeiro Trimestre"

CASE nMes >= 4 .And. nMes <= 6

cPeriodo := "Segundo Trimestre"

CASE nMes >= 7 .And. nMes <= 9

cPeriodo := "Terceiro Trimestre"

OTHERWISE

cPeriodo := "Quarto Trimestre"

ENDCASE

Return

tFont

47
Classe que encapsula fonte de edição.

Hierarquia
tFontAbs -> tFont

Descrição
Utilize objeto tFont para modificar a fonte padrão de controles visuais.

Métodos
New

Descrição

Construtor do objeto.

Sintaxe

New([acName], [nPar2], [anHeight], [lPar4], [alBold], [nPar6], [lPar7], [nPar8], [alItalic],

[alUnderline])

Parâmetros

acName Caractere, opcional. Nome da fonte, o padrão é “Arial”.

nPar2 Reservado.
anHeight Numérico, opcional. Tamanho da fonte. O padrão é -11.
lPar4 Reservado.
alBold Lógico, opcional. Se .T. o estilo da fonte será negrito.
nPar6 Reservado.
lPar7 Reservado.
nPar8 Reservado.
alItalic Lógico, opcional. Se .T. o estilo da fonte será itálico.
alUnderline Lógico, opcional. Se .T. o estilo da fonte será sublinhado.

Retorno

O objeto criado.

Exemplo

48
#include “protheus.ch”

User Function Teste()

Local oDlg, oSay, oFont:= TFont():New(“Courier New”,,-14,.T.)

DEFINE MSDIALOG oDlg FROM 0,0 TO 200,200 TITLE “My dialog” PIXEL

// apresenta o tSay com a fonte Courier New //

oSay:= tSay():New(10,10,{||”para exibir”},oDlg,,oFont,,;

,,.T.,CLR_WHITE,CLR_RED,100,20)

oSay:lTransparent:= .T.

ACTIVATE MSDIALOG oDlg CENTERED

Return

MSDialog
Classe de diálogo de entrada de dados.

49
Hierarquia
tSrvObject -> tWindow -> tDialog -> MSDialog

Características
MSDialog deve ser utilizada como padrão de janela para entrada de dados. MSDialog é um
tipo de janela diálogo modal, isto é, não permite que outra janela ativa receba dados
enquanto esta estiver ativa.

Propriedades
Vide classes ancestrais.

Métodos
New

Descrição

Método construtor da classe.

Sintaxe

New([anTop], [anLeft], [anBottom], [anRight], [acCaption], [cPar6], [nPar7],

[lPar8], [nPar9], [anClrText], [anClrBack], [oPar12], [aoWnd], [alPixel], [oPar15],
[oPar16], [lPar17])

Parâmetros

Numérico, opcional. Coordenada vertical superior em pixels ou

anTop
caracteres.
Numérico, opcional. Coordenada horizontal esquerda em pixels ou
anLeft
caracteres.
Numérico, opcional. Coordenada vertical inferior em pixels ou
anBottom
caracteres.
Numérico, opcional Coordenada horizontal direita em pixels ou
anRight
caracteres.
acCaption Caractere, opcional. Título do diálogo.
cPar6 Reservado.
nPar7 Reservado.
lPar8 Reservado.

50
 nPar9 Reservado.
anClrText Cor do texto.
anClrBack Cor do fundo.
oPar12 Reservado.
Objeto, opcional. Janela pai do diálogo, geralmente a janela
aoWnd
principal do programa.
Se .T. considera as coordenadas informadas em pixels, se .F.
alPixel
considera as coordenadas em caracteres.
oPar15 Reservado.
oPar16 Reservado.
lPar17 Reservado.

Retorno

O diálogo construído.

Exemplo

#include “protheus.ch”

User Function Teste()

// cria diálogo

Local oDlg:=MSDialog():New(10,10,300,300,”Meu dialogo”;

,,,,,CLR_BLACK,CLR_WHITE,,,.T.)

// ativa diálogo centralizado

oDlg:Activate(,,,.T.,{||msgstop(“validou!”),.T.},;

,{||msgstop(“iniciando…”) )

Return

51
MsGetDados

52
Objeto tipo lista com uma ou mais colunas para cadastramento de dados baseado em um
vetor.

Características

A MsGetDados precisa que sejam declaradas as variáveis abaixo sendo tipo Private:

aRotina.

Vetor com as rotinas que serão executadas na MBrowse e que definira o tipo de operação
que esta sendo executada (inclusão, alteração, exclusão, visualização, pesquisa, ...) no
formato:

Elemento Conteúdo
1 Título
2 Rotina
3 Reservado
Operação (1 - pesquisa; 2 - visualização; 3 - inclusão; 4 - alteração; 5 -
4
exclusão)
Acesso relacionado a rotina, se esta posição não for informada nenhum
5
acesso será validado

aHeader

Vetor com informações das colunas no formato:

Elemento Conteúdo
1 Título
2 Campo
3 Máscara
4 Tamanho
5 Decimal
6 Validação
7 Reservado
8 Tipo

53
 9 Reservado
10 Reservado

aCols

Vetor com as linhas a serem editadas. As colunas devem ser construídas com base no
aHeader mais uma ultima com valor lógico que determina se a linha foi excluída.

lRefresh

Variável tipo lógica para uso reservado.

A MsGetDados cria a variável publica n que indica qual a linha posicionada do aCols.

As funções passadas como parâmetro para a MsGetDados (cLinhaOk, cTudoOk, ...) não
poderão ser declaradas como Static Function.

A consulta padrão, validação do usuário e gatilhos estarão habilitados se o campo estiver

cadastrado no Dicionário de Dados (SX3/SX7) e apresentar estas opções disponíveis.

Métodos

New

Descrição

Cria o objeto MsGetDados.

Sintaxe

MSGETDADOS():NEW( nSuperior, nEsquerda, nInferior, nDireita, nOpc, [ cLinhaOk ], [

cTudoOk ], [ cIniCpos ], [ lApagar ], [ aAlter ], [ uPar1 ], [ lVazio ], [ nMax ], [ cCampoOk
], [ cSuperApagar ], [ uPar2 ], [ cApagaOk ], [ oWnd ] ) -> objeto

Argumentos Descrição
Distancia entre a MsGetDados e o extremidade superior do
nSuperior
objeto que a contém.
nEsquerda Distancia entre a MsGetDados e o extremidade esquerda do

54
 objeto que a contém.
Distancia entre a MsGetDados e o extremidade inferior do objeto
nInferior
que a contém.
Distancia entre a MsGetDados e o extremidade direita do objeto
nDireita
que a contém.
Posição do elemento do vetor aRotina que a MsGetDados usará
nOpc
como referencia.
Função executada para validar o contexto da linha atual do
cLinhaOk
aCols.
Função executada para validar o contexto geral da MsGetDados
cTudoOk
(todo aCols).
Nome dos campos do tipo caracter que utilizarão incremento
cIniCpos automático. Este parâmetro deve ser no formato “+<nome do
primeiro campo>+<nome do segundo campo>+...”.
lApagar Habilita deletar linhas do aCols. Valor padrão falso.
aAlter Vetor com os campos que poderão ser alterados.
uPar1 Parâmetro reservado.
Habilita validação da primeira coluna do aCols para esta não
lVazio
poder estar vazia. Valor padrão falso.
nMax Número máximo de linhas permitidas. Valor padrão 99.
cCampoOk Função executada na validação do campo.
Função executada quando pressionada as teclas
cSuperApagar
<Ctrl>+<Delete>.
uPar2 Parâmetro reservado.
cApagaOk Função executada para validar a exclusão de uma linha do aCols.
oWnd Objeto no qual a MsGetDados será criada.

Retorno

Objeto.

ForceRefresh

Descrição

Atualiza a MsGetDados com o aCols e posiciona na primeira linha.

55
 Sintaxe

oObjeto:ForceRefresh()

Hide

Descrição

Esconde a MsGetDados.

Sintaxe

oObjeto:Hide()

Show

Descrição

Mostra a MsGetDados.

Sintaxe

oObjeto:Show()

Exemplo

User Function Exemplo()

Local nI

56
Local oDlg

Local oGetDados

Local nUsado := 0

Private lRefresh := .T.

Private aHeader := {}

Private aCols := {}

Private aRotina := {{"Pesquisar", "AxPesqui", 0, 1},;

{"Visualizar", "AxVisual", 0, 2},;

{"Incluir", "AxInclui", 0, 3},;

{"Alterar", "AxAltera", 0, 4},;

{"Excluir", "AxDeleta", 0, 5}}

DbSelectArea("SX3")

DbSetOrder(1)

DbSeek("SA1")

While !Eof() .and. SX3->X3_ARQUIVO == "SA1"

If X3Uso(SX3->X3_USADO) .and. cNivel >= SX3->X3_NIVEL

nUsado++

Aadd(aHeader,{Trim(X3Titulo()),;

SX3->X3_CAMPO,;

SX3->X3_PICTURE,;

SX3->X3_TAMANHO,;

SX3->X3_DECIMAL,;

SX3->X3_VALID,;

57
 "",;

SX3->X3_TIPO,;

"",;

"" })

EndIf

DbSkip()

End

Aadd(aCols,Array(nUsado+1))

For nI := 1 To nUsado

aCols[1][nI] := CriaVar(aHeader[nI][2])

Next

aCols[1][nUsado+1] := .F.

DEFINE MSDIALOG oDlg TITLE "Exemplo" FROM 00,00 TO 300,400 PIXEL

oGetDados := MSGETDADOS():NEW(05, 05, 145, 195, 4, "U_LINHAOK",

"U_TUDOOK", "+A1_COD", .T., {"A1_NOME"}, , .F., 200, "U_FIELDOK",
"U_SUPERDEL", , "U_DELOK", oDlg)

ACTIVATE MSDIALOG oDlg CENTERED

Return

User Function LINHAOK()

ApMsgStop("LINHAOK")

Return .T.

User Function TUDOOK()

58
ApMsgStop("LINHAOK")

Return .T.

User Function DELOK()

ApMsgStop("DELOK")

Return .T.

User Function SUPERDEL()

ApMsgStop("SUPERDEL")

Return .T.

User Function FIELDOK()

ApMsgStop("FIELDOK")

Return .T.

MXsGetDb
Objeto tipo lista com uma ou mais colunas para cadastramento de dados baseado em uma
tabela temporária.

59
Características

A MsGetDB precisa que sejam declaradas as variáveis abaixo sendo tipo Private:

aRotina.

Vetor com as rotinas que serão executadas na MBrowse e que definira o tipo de operação
que esta sendo executada (inclusão, alteração, exclusão, visualização, pesquisa, ...) no
formato:

Elemento Conteúdo
1 Título
2 Rotina
3 Reservado
Operação (1 - pesquisa; 2 - visualização; 3 - inclusão; 4 - alteração; 5 -
4
exclusão)
Acesso relacionado a rotina, se esta posição não for informada nenhum
5
acesso será validado

aHeader

Vetor com informações das colunas no formato:

Elemento Conteúdo
1 Título
2 Campo
3 Máscara
4 Tamanho
5 Decimal
6 Validação
7 Reservado
8 Tipo
9 Reservado
10 Reservado

60
lRefresh

Variável tipo lógica para uso reservado.

A tabela temporária utilizada pela MsGetDB deverá ser criada com base no aHeader mais
um último campo tipo lógico que determina se a linha foi excluída.

A MsGetDB cria a variável publica nBrLin que indica qual a linha posicionada do aCols.

As funções passadas como parâmetro para a MsGetDB (cLinhaOk, cTudoOk, ...) não
poderão ser declaradas como Static Function.

A consulta padrão, validação do usuário e gatilhos estarão habilitados se o campo estiver

cadastrado no Dicionário de Dados (SX3/SX7) e apresentar estas opções disponíveis.

Métodos

New

Descrição

Cria o objeto MsGetDB.

Sintaxe

MSGETDB():NEW( nSuperior, nEsquerda, nInferior, nDireita, nOpc, [ cLinhaOk ], [

cTudoOk ], [ cIniCpos ], [ lApagar ], [ aAlter ], [ nCongelar ], [ lVazio ], [ uPar1 ], cTRB, [
cCampoOk ], [ lCondicional ], [ lAdicionar ], [ oWnd ], [ lDisparos ], [ uPar2 ], [
cApagarOk ], [ cSuperApagar ] ) -> objeto
Argumentos Descrição
Distancia entre a MsGetDB e o extremidade superior do objeto
nSuperior
que a contém.
Distancia entre a MsGetDB e o extremidade esquerda do objeto
nEsquerda
que a contém.
Distancia entre a MsGetDB e o extremidade inferior do objeto
nInferior
que a contém.
Distancia entre a MsGetDB e o extremidade direita do objeto que
nDireita
a contém.
Posição do elemento do vetor aRotina que a MsGetDB usará
nOpc
como referência.
Função executada para validar o contexto da linha atual do
cLinhaOk
aCols.
Função executada para validar o contexto geral da MsGetDB
cTudoOk
(todo aCols).

61
 Nome dos campos do tipo caracter que utilizarão incremento
cIniCpos automático. Este parâmetro deve ser no formato “+<nome do
primeiro campo>+<nome do segundo campo>+...”.
lApagar Habilita a opção de deletar linhas do aCols. Valor padrão falso.
aAlter Vetor com os campos que poderão ser alterados.
nCongelar Indica qual coluna não ficara congelada na exibição.
Habilita validação da primeira coluna do aCols para esta não
lVazio
poder estar vazia. Valor padrão falso.
uPar1 Parâmetro reservado.
cTRB Alias da tabela temporária.
cCampoOk Função executada na validação do campo.
lConditional Reservado
Indica se a MsGetDB ira criar uma linha em branco
lAdacionar
automaticamente quando for inclusão.
oWnd Objeto no qual a MsGetDB será criada.
Indica se será utilizado o Dicionário de Dados para consulta
lDisparos
padrão, inicialização padrão e gatilhos.
uPar2 Parâmetro reservado.
cApagarOk Função executada para validar a exclusão de uma linha do aCols.
-Função executada quando pressionada as teclas
cSuperApagar
<Ctrl>+<Delete>.

Retorno

Objeto.

ForceRefresh

Descrição

Atualiza a MsGetDB com a tabela e posiciona na primeira linha.

Sintaxe

ForceRefresh()

Exemplo

62
User Function Exemplo()

Local nI

Local oDlg

Local oGetDB

Local nUsado := 0

Local aStruct := {}

Private lRefresh := .T.

Private aHeader := {}

Private aCols := {}

Private aRotina := {{"Pesquisar", "AxPesqui", 0, 1},;

{"Visualizar", "AxVisual", 0, 2},;

{"Incluir", "AxInclui", 0, 3},;

{"Alterar", "AxAltera", 0, 4},;

{"Excluit", "AxDeleta", 0, 5}}

DbSelectArea("SX3")

DbSetOrder(1)

DbSeek("SA1")

While !Eof() .and. SX3->X3_ARQUIVO == "SA1"

If X3Uso(SX3->X3_USADO) .and. cNivel >= SX3->X3_NIVEL

nUsado++

Aadd(aHeader,{Trim(X3Titulo()),;

SX3->X3_CAMPO,;

SX3->X3_PICTURE,;

63
 SX3->X3_TAMANHO,;

SX3->X3_DECIMAL,;

SX3->X3_VALID,;

"",;

SX3->X3_TIPO,;

"",;

"" })

Aadd(aStruct,{SX3->X3_CAMPO,;

SX3->X3_TIPO,;

SX3->X3_TAMANHO,;

SX3->X3_DECIMAL})

EndIf

DbSkip()

End

Aadd(aStruct,{"FLAG","L",1,0})

cCriaTrab := CriaTrab(aStruct,.T.)

DbUseArea(.T.,__LocalDriver,cCriaTrab,,.T.,.F.)

DEFINE MSDIALOG oDlg TITLE "Exemplo" FROM 00,00 TO 300,400 PIXEL

oGetDB := MSGETDB():NEW(05, 05, 145, 195, 3, "U_LINHAOK", "U_TUDOOK",

"+A1_COD", .T., {"A1_NOME"}, 1, .F., , cCriaTrab, "U_FIELDOK", , .T., oDlg, .T.,
,"U_DELOK", "U_SUPERDEL")

ACTIVATE MSDIALOG oDlg CENTERED

DbSelectArea(cCriaTrab)

DbCloseArea()

64
Return

User Function LINHAOK()

ApMsgStop("LINHAOK")

Return .T.

User Function TUDOOK()

ApMsgStop("LINHAOK")

Return .T.

User Function DELOK()

ApMsgStop("DELOK")

Return .T.

User Function SUPERDEL()

ApMsgStop("SUPERDEL")

Return .T.

User Function FIELDOK()

ApMsgStop("FIELDOK")

Return .T.

65
MsmGet
Conjunto de objetos tipo MsGet/MsCombo para cadastramento de dados baseado no
Dicionário de Dados.

Características

A MsMGet também poder criada a partir da função Enchoice a qual recebe os mesmos
parâmetros do método New porém não retorna o objeto criado.

66
A MsMGet se baseia no Dicionário de Dados para verificar campos obrigatórios,
validações, gatilhos, consulta padrão etc. assim como para a criação das Pastas de Cadastro.

A MsMGet pode usar tanto variáveis de memória do tipo Private como diretamente os
campos da tabela a que se refere.

Métodos

New

Descrição

Cria o objeto MsMGet.

Sintaxe

MSMGET():NEW( cAlias, nReg, nOpc, [ uPar1 ], [ uPar2 ], [ uPar3 ], [ aACho ], [ aPos ],

[ aCpos ], [ uPar4 ], [ uPar5 ], [ uPar6 ], [ uPar7 ], [ oWnd ], [ uPar8 ], [ lMemoria ], [
lColuna ], [ uPar9 ], [ lSemPastas ] ) -> objeto

Argumentos Descrição
cAlias Alias do dados a serem cadastrados.
nReg Número do registro da tabela a ser editado.
uPar1 Parâmetro reservado.
uPar2 Parâmetro reservado.
uPar3 Parâmetro reservado.
aAcho Vetor com os campos que serão apresentados pela MsMGet.
Vetor com as coordenadas onde a MsMGet será criada no formato
{coord. superior, coord. esquerda, coord. direita, coord.
aPos
inferior}.Função executada para validar o contexto da linha atual
do aCols.
aCpos Vetor com os campos que poderão ser alterados.
Parâmetro reservado. Nome dos campos do tipo caracter que
utilizarão incremento automático. Este parâmetro deve ser no
uPar4
formato “+<nome do primeiro campo>+<nome do segundo
campo>+...”.
uPar5 Parâmetro reservado.
uPar6 Parâmetro reservado.
uPar7 Parâmetro reservado.
oWnd Objeto no qual a MsMGet será criada.
uPar8 Parâmetro reservado.
lMemoria Indica se será usado variáveis de memória ou os campos da tabela

67
 para cadastramento dos dados. Valor padrão falso.
Indica se a MsMGet sera apresentada com um objeto por linha
lColuna
(uma coluna). Valor padrão falso. Parâmetro reservado.
uPar9 Parâmetro reservado.
Indica se não será usado as Pastas de Cadastro na MsMGet. Função
lSemPastas
executada para validar a exclusão de uma linha do aCols.

Retorno

Objeto.

Refresh

Descrição

Atualiza os objetos contidos na MsMGet.

Sintaxe

Refresh()

Hide

Descrição

Esconde a MsMGet.

Sintaxe

Hide()

Show

Descrição

68
Mostra a MsMGet.

Sintaxe

Show()

Exemplo

User Function Exemplo()

Local i

Local oDlg

Local oMsMGet

Local lInit

Local cCampo

DbSelectArea("SA1")

For i := 1 To FCount()

cCampo := Field(i)

lInit := .F.

If ExistIni(cCampo)

lInit := .t.

M->&(cCampo) := InitPad(SX3->X3_RELACAO)

If ValType(M->&(cCampo)) = "C"

M->&(cCampo) := Padr(M->&(cCampo),SX3->X3_TAMANHO)

EndIf

If M->&(cCampo) == NIL

lInit := .F.

69
 EndIf

EndIf

If !lInit

M->&(cCampo) := FieldGet(i)

If ValType(M->&(cCampo)) = "C"

M->&(cCampo) := Space(Len(M->&(cCampo)))

ElseIf ValType(M->&(cCampo)) = "N"

M->&(cCampo) := 0

ElseIf ValType(M->&(cCampo)) = "D"

M->&(cCampo) := CtoD(" / / ")

ElseIf ValType(M->&(cCampo)) = "L"

M->&(cCampo) := .F.

EndIf

EndIf

Next

DEFINE MSDIALOG oDlg TITLE "Exemplo" FROM 00,00 TO 19,80

MSMGET():NEW("SA1",0,3,,,,,,,,,,,,,.T.)

ACTIVATE MSDIALOG oDlg CENTERED ON INIT EnchoiceBar(oDlg,{||

oDlg:End()},{|| oDlg:End()})

Return

70
MBrowse
Monta um Browse com menu de opções.

Sintaxe

MBROWSE( [ uPar1 ], [ uPar2 ], [ uPar3 ], [ uPar4 ], cAlias, [ aFixos ], [ cCpo ], [

uPar5 ], [ cFun ], [ nPadrao ], [ aCores ], [ cExpIni ], [ cExpFim ], [ nCongela ] ) ->
nil

Argumento Obrigat. Tipo Descrição

71
 uPar1 Não N Parâmetro reservado.
uPar2 Não N Parâmetro reservado.
uPar3 Não N Parâmetro reservado.
uPar4 Não N Parâmetro reservado.
cAlias Sim C Alias do arquivo a ser visualizado no browse.
Contendo os nomes dos campos fixos pré-definidos pelo
aFixos Não A programador, obrigando a exibição de uma ou mais colunas.
Campo a ser validado se está vazio ou não para exibição do
cCpo Não C
bitmap de status.
uPar5 Não N Parâmetro reservado.
Função que retornará um valor lógico para exibição do bitmap de
cFun Não C
status.
Número da rotina a executada quando for efetuado um duplo
nPadrao Não N clique em um registros do browse. Caso não seja informado o
padrão será executada visualização ou pesquisa.
Este vetor possui duas dimensões, a primeira é a função de
aCores Não A validação para exibição do bitmap de status, e a segunda o
bitmap a ser exibido.
Função que retorna o conteúdo inicial do filtro baseada na chave
cExpIni Não C
de índice selecionada.
Função que retorna o conteúdo final do filtro baseada na chave
cExpFim Não C
de índice selecionada.
nCongela Não N Coluna a ser congelado no browse.

Descrição

As variáveis cCadastro e aRotina (*) precisam ser declarados como private acima da
chamada da função.

Apenas um dos parâmetros ( cCpo, cFun, aColors ) deve ser informado.

(*) vetor com as rotinas que serão executadas, nele será definido o tipo de operação a ser
executada (inclusão, alteração, exclusão, visualização, pesquisa, ...) sua estrutura é
composta de 5 (cinco) dimensões: 1º - Título; 2º – Rotina; 3º – Reservado; 4º – Operação (1
- pesquisa; 2 - visualização; 3 - inclusão; 4 - alteração; 5 - exclusão); 5 – Acesso
relacionado a rotina, se esta posição não for informada não validará os acessos.

Exemplo

Private cCadastro := 'Cadastro de Clientes'

Private aRotina := { { 'Pesquisar' , 'AxPesqui' , 0, 1 },;

{ 'Visualizar' , 'AxVisual' , 0, 2 },;

{ 'Incluir' , 'AxInclui' , 0, 3 },;

{ 'Alterar' , 'AxAltera' , 0, 4 },;

72
 { 'Excluir' , 'AxExcluir', 0, 5 }}

MBROWSE( ,,,, 'SA1',, '!A1_COD',,, 4 )

IncProc
Incrementa régua de progressão.

Sintaxe

INCPROC() -> nil

Descrição

Para incrementar a régua criada pela função Processa(), utilizamos a função IncProc()

73
Exemplo

User Function <nome-da-função>( )

Local bAcao := {|lFim| Exemplo(@lFim) }

Local cTitulo := ''

Local cMsg := 'Processando'

Local lAborta := .T.

Processa( bAcao, cTitulo, cMsg, lAborta )

Return

Static Function Exemplo(lFim)

Local nI

ProcRegua(10000)

For nI := 1 To 10000

If lFim

Exit

EndIf

INCPROC()

Next nI

Return

74
 25/11/2003

EXERCÍCIOS

Analisar a situação e verificar a possibilidade da utilização de Pontos de Entrada,

validações de usuário ou gatilhos.

1) Necessito limitar o número de Itens no Pedido de Venda, de modo que o

usuário informe apenas 6 Itens por Pedido, nao mais que isso. Deverá ser
mostrada uma mensagem informando a limitação ao usuário.

75
2) No Documento de Entrada as NFs com valores maiores que R$ 5.000,00
(cinco mil reais) deverão ser incluidas apenas após a digitação de um usuário
e senha de validação (usuário: Master // senha: teste).

3) No Pedido de Vendas o Valor Unitário deverá ser alterado apenas pelo

usuário “Administrador”.

76