BlackTDN Search

segunda-feira, 12 de janeiro de 2009

Protheus :: Programação Básica em Advpl “Combo II”

Instruções e Comandos:

As instruções são elementos fixos da linguagem, que lidam com afirmações e com o controle do programa;

c := IF( a > b , a , b )

While ( ( cAlias )->( !Eof() )
//... mais instruções
( cAlias )->( dbSkip() )
End While

nLoops := 10
For nLoop := 1 To nLoops
//... mais instruções
Next nLoop
...

Já os comandos, representam o conjunto de tipos de instruções da linguagem que não são nem rotinas nem chamadas de função e nem atribuições.

Replace cCampo1 With “Conteudo do Campo 1”,;
cCampo2 Whit “Conteudo do Campo 2”

Obs.: Como padrão, um caractere de final de linha encerra uma instrução. Para continuar na outra linha, use o caractere de ponto-e-vírgula.

Use cTable New Via “DBFCDX”
Copy To cNewTable Via “DBFCDX”

Totas as instruções são fixadas em determinada versão da linguagem e, todos os comandos são convertidos pelo pré-processador em chamadas de funções e atribuições.

Onde: Replace cCampo1 With “Conteudo do Campo 1”,;
cCampo2 Whit “Conteudo do Campo 2”

será convertido pelo pré-processador em :

_FIELD->cCampo1 := "Conteudo do Campo1";
_FIELD->cCampo2 := "Conteudo do Campo2”

Use cTable New Via “DBFCDX”

será convertido pelo pré-processador em :

dbUseArea( .T., "DBFCDX", "cTable",, if(.F. .OR. .F., !.F., NIL), .F. )

Copy To cNewTable Via “DBFCDX”

será convertido pelo pré-processador em :

__dbCopy( "cNewTable", { },,,,, .F., "DBFCDX" )

No Advpl são permitidas várias instruções numa linha ( separando-as com um caracter de ponto-e-vírgula ) como em:

i := 0 ; j := 1 ; a := “c” ; d := 99 //...

Esse recurso é interessante ao criar macros do compilador e blocos de codificação, mas se utilizado em todo lugar prejudica a legibilidade do programa.

Nenhum comentário:

Postar um comentário