Correção na chamada de funções ADVPL utilizando tipagem e utilizando a cláusula DEFAULT

Quando um parâmetro não é passado para um função utilizando tipo de dados ocorria erro na atribuição do valor default.

#include "protheus.ch"
User Function xTipCall()

Local c1 as character
Local n1 as numeric
Local d1 as date
Local l1 as logical
Local a1 as array
Local b1 as block
Local o1 as object

ConOut("INI...")

TipParam(, , .T.)

ConOut("FIM...")
Return

Static Function TipParam(cChar as character, nNum as numeric, lLog as logical, nVal as numeric)

Default cChar := ""
Default nNum := 0
Default lLog := .T.
Default nVal := 0

ConOut(cChar)
ConOut(nNum)
ConOut(lLog)
ConOut(nVal)

Return

Verificação da passagem de parâmetro e atribuição correta do valor default.

• Disponível em builds superiores a 07/07/2016 
• Revisão: 8673
• SSIM-1120