TOTVSTEC

Árvore de páginas

Para você desenvolver programas em TLPP é muito simples, basta você extrair os includes da linguagem, que já vem com o tlpp.rpo, adicionar #include 'tlpp-core.th' no seu programa.tlpp e pronto, você já pode usufruir de todos os novos recursos da linguagem.

Extraindo os includes

Como os includes fazem parte do RPO (tlpp.rpo), basta executar a função tlpp.environment.getIncludesTLPP para extraí-los.

Após executar esta função os includes serão extraídos dentro do diretório do "RootPath" do seu ambiente, em um diretório chamado "includes".

Tendo isto basta adicionar este diretório nos seus "PATHs de includes" no seu ambiente de compilação.

Obs. os includes estão disponíveis a partir da versão 01.02.02 do RPO (tlpp.rpo)

Para extrair podemos executar esta função de diversas maneiras:

AppServer Command Line

[AppServer] -env=[seu ambiente] -runstartnormal -run=tlpp.environment.getIncludesTLPP
Ex:
appserver.exe -env=TLPPCORE -runstartnormal -run=tlpp.environment.getIncludesTLPP

SmartClient

Abrir o SmartClient e digitar na tela:

Programa inicial: tlpp.environment.getIncludesTLPP

Comunicação no cliente: [seu serviço]

Ambiente no servidor: [seu ambiente]



SmartClient Command Line

[SmartClient] -M -Q -E=[seu ambiente] -Z=[hostname / IP]-Y=[Porta] -P=tlpp.environment.getIncludesTLPP
Ex:
smartclient.exe -M -Q -E=TLPPCORE -Z=localhost -Y=5012 -P=tlpp.environment.getIncludesTLPP

Código TLPP ou AdvPL
Function u_TLPPIncs()
  Local lRet := .F.
  Local cRet := ""
  Local aMessages := {}
  Local nI := 0

  ConOut("Getting TLPP includes ...")
  lRet := tlpp.environment.getIncludesTLPP(@cRet, @aMessages)

  If(lRet != .T.)
    ConOut("Error: " + cValToChar(cRet))
    For nI := 1 to Len(aMessages)
      ConOut(cValToChar(nI) + " Error: " + cValToChar(aMessages[nI]))
    Next
  Else
    ConOut("OK. 'includes' extracted on path: " + cValToChar(cRet))
  EndIf
Return lRet

Obs. Você pode criar fontes .tlpp e/ou .prw sem nenhum include se eles não tiverem nenhuma dependência