Gabriel,
Desconheço alguma forma de testar tipos na hora da compilação em Advpl, os tipos são checados no runtime do programa mesmo! Com o Totvs Developer Studio Baseado no Eclipse tem-se uma analise sintática e semântica melhor!
Se for usar pode verificar qual é o que mais se aqueda a você segue os links:
Prefiro a 12 ele e mais leve e syntax hilight e melhor que a do 13, pode usar o VS code também tem o plugin https://marketplace.visualstudio.com/items?itemName=KillerAll.advpl-vscode.
Ele o debug e compilação estão funcionando bem com o Protheus V12, na 11 esta dando alguns problemas.
Testar sem ter que abrir o ERP manualmente
Para testar seu programa sem ter que abrir o ERP manualmente existe essa possibilidade?
Sim ela existe você deve usar o seguinte trecho de código no programa:
PREPARE ENVIRONMENT EMPRESA("02") FILIAL("01") MODULO "COM"
RESET ENVIRONMENT
Exemplo abaixo usando o trecho de código:
User Fuction NomeFucao()
Local variável
Local outravar
Private varival
PREPARE ENVIRONMENT EMPRESA("02") FILIAL("01") MODULO "COM"
PROCESSAMENTO DO SEU PROGRAMA AQUI
.....
.....
....
RESET ENVIRONMENT
Return Variável ou Nil
Após isso você manda executar o smartclient e no programa inicial U_NomeFucao ao invés de SIGAMDI ou SIGAADV. A sim poupa tempo de abrir o ERP, isso se seu programa for somente background e não envolver componentes visuais!
Para testar os tipos Variáveis pode usar as funções
- ClearVarSetGet
- ContType (Retorna um array com o tipo da variável. Diferente do ValType, retorna o tipo original da variável)
- Type (Retorna o tipo de dado de uma expressão ou variável)
- VarRef (Cria referência entre duas variáveis)
- ValType (Retorna um caractere que identifica o tipo de dado da variável informada através do parâmetro)
- VarSetGet (Permite associar um bloco de código a uma variável de programa do Advpl, onde o bloco de código será chamado quando a variável for acessada)
- Link da Documentação: http://tdn.totvs.com/pages/viewpage.action?pageId=6063952
Agora que você sabe com testar as variaves ai vamos para os Cast no Advpl e muito livre e tem função converter tudo vou colocar apenas algumas e deixar o link da documentação oficial da TOTVS.
- Val( < cString > ) Converte uma sequência de caracteres que contêm dígitos em um valor numérico.
- CtoD( < cData > ) Converte uma string formatada para o tipo data
- cValToChar( < xParametro > ) Converte uma informação do tipo caractere, data, lógico ou numérico para string, sem adição de espaços na informação.
Assim você pode ver o restante de acordo com sua necessidade na documentação link http://tdn.totvs.com/pages/viewpage.action?pageId=6063599
Esse outro link traz uma lista com todas as funções o SDK documentadas veja de acordo com sua necessidade link http://tdn.totvs.com/pages/viewpage.action?pageId=6063359
O que fazer com os erros e exceções
Pode usar a biblioteca tryexception
#include "tryexception.ch"
Static Function TrySample2()
Local bError := { |oError| MyError( oError ) }
Local oError
..
TRYEXCEPTION USING bError
//Forçando um erro para avalia-lo.
__EXCEPTION__->ERROR := "__EXCEPTION__"
CATCHEXCEPTION USING oError
//"Se ocorreu erro, após o BREAK, venho para cá"
MsgInfo( oError:Description , "Peguei o Desvio do BREAK" )
ENDEXCEPTION
MsgInfo( "Continuo após o tratamento de erro" )
Return( NIL )
Ela esta no GitHub link https://github.com/NaldoDj/BlackTDN/blob/master/include/tryexception.ch
Desenvolvida pelo Marinaldo do Black TDN http://www.blacktdn.com.br/
Espero ter ajudado!