Perguntas Rateios no MATA120

Boa tarde.

Estou utilizando uma rotina automática MsExecAuto(MATA120), para incluir os pedidos de compra e preciso gravar os rateios de centro de custo desses pedidos.
Conforme o TDN e preciso informar uma array com os dados do rateio e informar essa array como parametro no MATA120, porém já fiz isso de várias formas e os rateios não são gravado.

Alguém saberia informar como devo fazer para gravar essas informações de rateio?

//Rateio
aadd(aCCusto,{"CH_FILIAL","",Nil})
aadd(aCCusto,{"CH_PEDIDO",cPed,Nil})
aadd(aCCusto,{"CH_FORNECE",cForn,Nil})
aadd(aCCusto,{"CH_LOJA","01",Nil})
aadd(aCCusto,{"CH_ITEMPD","0001",Nil}) //000+str(nC)
aadd(aCCusto,{"CH_ITEM","01",Nil}) //0+str(nC)
aadd(aCCusto,{"CH_PERC","100",Nil}) //
aadd(aCCusto,{"CH_CC","64025",Nil}) //
aadd(aCCusto,{"CH_CONTA","",Nil}) //
aadd(aCCusto,{"CH_ITEMCTA","",Nil}) //
aadd(aCCusto,{"CH_CLVL","",Nil}) //
aadd(aCCusto,{"CH_CUSTO1","",Nil}) //
aadd(aCCusto,{"CH_CUSTO2","",Nil}) //
aadd(aCCusto,{"CH_CUSTO3","",Nil}) //
aadd(aCCusto,{"CH_CUSTO4","",Nil}) //
aadd(aCCusto,{"CH_CUSTO5","",Nil}) //
aadd(aRateio,aCCusto)

MSExecAuto({|x,y,z,w| MATA120(x,y,z,w)},1,aCabec,aItens,3,.F.,aRateio)

Obrigado.

Cara tu conseguiu resolver esse problema??? Eu estou tentando com essa estrutura mas não esta gerando, só que tenho dúvida se não é problema de ambiente desatualizado...Vê se te ajuda... Ah, eu uso o aRateio para enviar no execauto do MATA120

aAuxRat := Array(2)
aAuxRat[1] := cItemC7
aAuxRat[2] := {}
aLinhaRat := {}
nNumRateio++

aAdd( aLinhaRat, {"CH_ITEM" ,cValToChar(nNumRateio),Nil})
aAdd( aLinhaRat, {"CH_PERC" ,Val(cPerc),Nil})
aAdd( aLinhaRat, {"CH_CC" ,cCCusto,Nil})
aAdd( aLinhaRat, {"CH_CONTA" ,cContaContab,Nil} )
aAdd( aLinhaRat, {"CH_ITEMCTA" ,cItemContab} ) //CONTA_CONTABIL //CT1
aAdd( aLinhaRat, {"CH_CLVL" ,"Teste",NIl} ) //Agrupamento SDCV//CTH
aAdd(aAuxRat[2], aLinhaRat )

if (nPos := aScan( aRateio, {|x| alltrim(x[1]) == alltrim(cItemC7)} ) ) == 0
aAdd(aRateio, aAuxRat)
//aadd(aLinha,{"C7_RATEIO" , "1" ,Nil})
else
aAdd(aRateio[nPos][2],aLinhaRat)
endif