Debugar Direto Função

//Main Function Teste(cPerApu, aFil, cIdApReinf)

User Function Teste(cPerApu, aFil, cIdApReinf)

Local aLog as array
Local cStatReg as Character
Local lExecApr as Logical
Local nX as Numeric

aLog  := {}
cStatReg := "Z"
lExecApr := .F.
nX := 0

Default cPerApu := ""

//Default aFil  := {{'D MG 01'},{'D MG 02'}}

Default aFil  := {{'01'}}

//PREPARE ENVIRONMENT EMPRESA 'T1' FILIAL 'D MG 01' USER 'Administrador' PASSWORD '' TABLES 'CMN' MODULO "TAF"

//RpcSetEnv('T1','D MG 01','Admin', '','CMN', 'TAF'   )

RpcSetEnv('99','01','Admin', '','CMN', 'TAF'   )

Return