Perguntas ExecAuto no GPEA090

Boa tarde meu caros!!!
Veja se alguém pode me ajudar, estou executando a função abaixo para executar um execauto no cadastros de lançamentos mensais(GpeA090()):

User Function AtualFolha()

Local nDia := 0
Local aCabec := {}
Local aItens := {}
Local aItensFinal := {}
Local nModTmp

Private lMsErroAuto := .F.

nModTmp := nModulo
nModulo := 7

// PREENCHE O ARRAY DE CABEÇALHO USADO PARA EXECUÇÃO DO EXECAUTO.
aCabec := {}
aadd(aCabec, {"RA_FILIAL" , xFilial("SRA"), Nil})
aadd(aCabec, {"RA_MAT" , ‘11538‘ , Nil})

// PREENCHE O ARRAY DE ITENS USADO PARA EXECUÇÃO DO EXECAUTO.
aItens := {}
aadd(aItens, {"RC_FILIAL" , xFilial("SRC") , Nil })
aadd(aItens, {"RC_MAT" , ‘11538‘ , Nil })
aadd(aItens, {"RC_PD" , ‘136‘ , Nil })
aadd(aItens, {"RC_TIPO1" , ‘V‘ , Nil })
aadd(aItens, {"RC_HORAS" , 0 , Nil })
aadd(aItens, {"RC_TIPO2" , ‘I‘ , Nil })
aadd(aItens, {"RC_VALOR" , 777 , Nil })
aadd(aItens, {"RC_DATA" , cToD(" / / ") , Nil })
aadd(aItens, {"RC_CC" , ‘510703‘ , Nil })
aadd(aItens, {"RC_PARCELA" , 0 , Nil })
aadd(aItensFinal, aItens)

// 3 - INCLUSÃO, 4 - ALTERAÇÃO, 5 - EXCLUSÃO
MsExecAuto({|w, x, y, z| GPEA090(w, x, y, z)}, 4, aCabec, aItensFinal, 4)

If lMsErroAuto
MostraErro()
EndIf

nModulo := nModTmp

Return

A variável lMsErroAuto me retorna .F. ou seja, não encontrou erro e entende-se que o registro foi incluido. Mas ao fazer uma consulta na tabela SRC, o registro não foi incluido. Alguém tem ideia do que pode ser?

Abraços,


Silvio C. Stecca