Olá pessoal…

Na vídeo aula de hoje, vou falar um pouco sobre Variáveis e Constantes.

Abaixo os links do TDN sobre o assunto:
Tipos de Dados

Abaixo os códigos fontes mostrados na vídeo aula:

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"

//Se for espanhol
#Ifdef SPANISH
	#Define STR_TESTE		'Un gran poder conlleva una gran responsabilidad.'
	#Define STR_TITULO	'Precaución'
	
//Senão, irá fazer outros testes
#Else
	//Se for em Inglês
	#Ifdef ENGLISH
		#Define STR_TESTE		'With great power comes great responsibility.'
		#Define STR_TITULO	'Caution'
		
	//Senão, será o padrão (Português)
	#Else
		#Define STR_TESTE		'Com grandes poderes vêm grandes responsabilidades.'
		#Define STR_TITULO	'Atenção'
	#EndIf
#EndIf

//Constantes
#Define STR_PULA		Chr(13)+Chr(10)

/*/{Protheus.doc} zConstantes
Exemplo de teste com diretivas / constantes
@author Atilio
@since 13/10/2015
@version 1.0
	@example
	u_zConstantes()
/*/

User Function zConstantes()
	Local aArea := GetArea()
	
	//Mostrando mensagem
	MsgAlert(STR_TESTE + STR_PULA + "...", STR_TITULO)
	
	RestArea(aArea)
Return

e…

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zVariaveis
Exemplo de declaração de variáveis
@author Atilio
@since 13/10/2015
@version 1.0
	@example
	u_zVariaveis()
/*/

User Function zVariaveis()
	Local aArea := GetArea()
	
	//Declaração de variáveis
	Local nValor	:= 0
	Local dData	:= Date()
	Local lTeste	:= .T.
	Local cTexto	:= "Terminal de Informação"
	Local oObjeto	:= TFont():New("Tahoma")
	Local xInfo	:= 0
	Local aDados	:= {"Daniel", "Atilio", dData}
	Local bBloco1	:= {||			nValor := 1,;
									Alert("Valor é igual a "+cValToChar(nValor))}
	Local bBloco2	:= {|nValor|	nValor += 2,;
									Alert("Valor é igual a "+cValToChar(nValor))}
	
	//Executando o bloco de código
	EVal(bBloco1)
	EVal(bBloco2, 5)
	
	//Alterando valores
	xInfo := "Teste"
	
	RestArea(aArea)
Return

Se quiser fazer o download desses códigos, acesse nosso GitHub pelo link github.com/dan-atilio/AdvPL (Exemplos > Vídeo Aulas > 003 – Variáveis e Constantes).

Boim pessoal, por hoje é só.
Abraços e até a próxima.

Tags: AdvPL