Perguntas TES inteligênte adicionar campo na validação

Muito Obrigado!
A principio está funcionando perfeitamente a busca do TES, após a alteração.

Bom dia,
estou necessitando de incluir um campo para situação parecida, mas meu código não retorna a TES, segue o código:

#Include 'Protheus.ch'

User Function MT089CD()

//As variaveis foram carregada com paramixb somente para verificar o condeudo original.
Local bCond := PARAMIXB[1] //Condicao que avalia os campos do SFM
Local bSort := PARAMIXB[2] //Forma de ordenacao do array onde o 1o elemento sera utilizado. Esse array inicialmente possui 9 posicoes
Local bIRWhile := PARAMIXB[3] //Regra de selecao dos registros do SFM
Local bAddTes := PARAMIXB[4] //Conteudo a ser acrescentado no array
Local cTabela := PARAMIXB[5] //Tabela que esta sendo tratada
Public _nPosProd

If cTabela == "SC6"
_nPosProd := "B1_TIPO"
bCond := {|| (Substr([_nPosProd],1,2) == Left((cAliasSFM)->FM_XTPPROD,2) .Or. Empty((cAliasSFM)->FM_XTPPROD) ) } //Acrescenta compo novo a regra, esse campo devera ser acrescentdo no X2_UNICO do SFM.
bSort := {|x,y| x[11] > y[11]}// {|x,y| x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[10]+x[7] > y[1]+y[2]+y[3]+y[4]+y[5]+y[6]+y[10]+y[7]}//Altero a ordem do array, posicao 10, para considerar o campo especifico acrescentado na linha abaixo
bIRWhile:= {||.T.}
bAddTes := {||aAdd(aTes[Len(aTes)],(cAliasSFM)->FM_XTPPROD ) }//Acrescento campo a ser considerado na TES Inteligente.
Else
bCond := {||.T.}
bSort := bSort
bIRWhile:= {||.T.}
bAddTes := {||.T.}
EndIf
Return({bCond,bSort,bIRWhile,bAddTes})


Alguém pode me ajudar neste código, não encontro o problema.
O código não da erro, porém não traz a TES que eu informei na TES inteligente.
Att,
Michael Moraes

REsolvido.

Bom dia,
segue o fonte com as alterações que foram feitas

User Function MT089CD()

//As variaveis foram carregada com paramixb somente para verificar o condeudo original.
Local bCond := PARAMIXB[1] //Condicao que avalia os campos do SFM
Local bSort := PARAMIXB[2] //Forma de ordenacao do array onde o 1o elemento sera utilizado. Esse array inicialmente possui 9 posicoes
Local bIRWhile := PARAMIXB[3] //Regra de selecao dos registros do SFM
Local bAddTes := PARAMIXB[4] //Conteudo a ser acrescentado no array
Local cTabela := PARAMIXB[5] //Tabela que esta sendo tratada
local _cTpProd

If cTabela == "SC6"
_cTpProd := aScan(aHeader, {|x| AllTrim(x[2])=="C6_PRODUTO"})
bCond := {|| (Substr(acols[n][_cTpProd],1,2) == Left((cAliasSFM)->FM_XTPPROD,2) .Or. Empty((cAliasSFM)->FM_XTPPROD) ) } //Acrescenta compo novo a regra, esse campo devera ser acrescentdo no X2_UNICO do SFM.
bSort := {|x,y| x[11] > y[11]}// {|x,y| x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[10]+x[7] > y[1]+y[2]+y[3]+y[4]+y[5]+y[6]+y[10]+y[7]}//Altero a ordem do array, posicao 10, para considerar o campo especifico acrescentado na linha abaixo
bIRWhile:= {||.T.}
bAddTes := {||aAdd(aTes[Len(aTes)],(cAliasSFM)->FM_XTPPROD ) }//Acrescento campo a ser considerado na TES Inteligente.
Else
bCond := {||.T.}
bSort := bSort
bIRWhile:= {||.T.}
bAddTes := {||.T.}
EndIf

Return({bCond,bSort,bIRWhile,bAddTes})

Luiz, a pouco tempo que iniciei em programação.
Me surgiu uma dúvida aqui.
Como devo fazer para acrescentar mais um campo na TES inteligente?

Como este fonte ficaria?

Abrç