Perguntas Após migração a função Pergunte() não funciona.

Boa tarde.

Realizei a migração da versão 10 para a 11 e estou verificando e homologando as customizações.

Nos testes verifiquei que as rotinas que utilizam a função Pergunte() para parametrização não estão funcionando.

Criei uma pequena função para testar e ela encontra as perguntas na tabela SX1, porém não abre a janela para a alteração/inclusão dos parâmetros.

Já fiz varias alterações e testes mas ainda assim ela não aparece. O mesmo código funciona perfeitamente na versão 10.

#include "protheus.ch"

//Exemplo tirado do site TOTVS TDN para testar.
User Function TESTE()

Private cPerg := padr("TESTE",10)

//Prepare Environment EMPRESA '01' FILIAL '01' MODULO 'FIN' // incluindo Pergunta do tipo Data

dbSelectArea("SX1")
dbSetOrder(1)

//Foi criado somente para verificar se esta encontrando a pergunta no SX1.
If !dbSeek(cPerg)
ApMsgInfo("Não encontrou a pergunta no SX1.")
Else
ApMsgInfo("Encontrou a pergunta no SX1.")
EndIf

CriaSX1()

//Pergunte ( cGroup [ lAsk ] [ cTitle ] [ lOnlyView ] [ oDlg ] [ lUseProf ] [ uPar7 ] )
//Pergunte(cPerg,.T.)
Pergunte(cPerg,.T.,,.F.,,.F.,)


Return

//Funcao que cria as perguntas no SX1 - Exemplo tirado do site TOTVS TDN
Static Function CriaSX1()

Local aHelpPor := {}
Local aHelpEsp := {}
Local aHelpIng := {}

Local cStringP := "" // texto em portugues
Local cStringE := "" // texto em espanhol
Local cStringI := "" // texto em ingles

Aadd( aHelpPor, "Informe a data inicial para gerar as " )
Aadd( aHelpPor, "movimentações. " )

aHelpIng := aHelpEsp := aHelpPor

cStringP := "Da Data"
cStringE := cStringP + " - ESP"
cStringI := cStringP + " - ING"

PutSx1(cPerg,"01",cStringP,cStringE,cStringI,;
"mv_ch1","D",8,;
0,0,"G",;
"","","",;
"","mv_par01","",;
"","","",;
"","","",;
"","","",;
"","","",;
"","","",;
aHelpPor,aHelpIng,aHelpEsp)

aHelpPor :={}
aHelpIng :={}
aHelpEsp :={}

Aadd( aHelpPor, "Informe a data final para gerar as " )
Aadd( aHelpPor, "movimentações. " )

aHelpIng := aHelpEsp := aHelpPor

cStringP := "Até a Data"
cStringE := cStringP + " - ESP"
cStringI := cStringP + " - ING"

PutSx1(cPerg,"02",cStringP,cStringE,cStringI,;
"mv_ch2","D",8,;
0,0,"G",;
"","","",;
"","mv_par02","",;
"","","",;
"","","",;
"","","",;
"","","",;
"","","",;
aHelpPor,aHelpIng,aHelpEsp) //incluindo pergunta do tipo combo

aHelpPor :={}
aHelpIng :={}
aHelpEsp :={}

Aadd( aHelpPor, "Informe a operação para gerar as ")
Aadd( aHelpPor, "movimentações." )

aHelpIng := aHelpEsp := aHelpPor

cStringP := "Operação"
cStringE := cStringP + " - ESP"
cStringI := cStringP + " - ING"

PutSx1(cPerg,"03",cStringP,cStringE,cStringI,;
"mv_ch3","C",1,;
0,0,"C",;
"","","",;
"","mv_par03","Todas",;
"Todas","Todas","1",;
"Inserido","Inserido","Inserido",;
"Alterado","Alterado","Alterado",;
"Apagado","Apagado","Apagado",;
"","","",;
aHelpPor,aHelpIng,aHelpEsp)

//conout("acabou")

Return


Quem puder me ajudar agradeço.

Obrigado.