Perguntas Rotina automática - MATA241

Tenho uma rotina automática que esta dando pau ai peguei o fonte padrão da Totvs adicionei o d3_CC e da o mesmo erro, alguém ja passou por isso:
erro
HELP: OBRIGAT2
Um ou alguns campos obrigatorios não
foram preenchidos no objeto Grid.
Movimentações Internas
Campo: Centro de custo
Linha: 1

Tabela SB1 24/10/2014 11:31:10
- cDocumento :=za0000CWU
- cTM :=900
- cCC :=1101001
- dA241Data :=24/10/2014
Erro --> Inconsistencia na Linha de Itens

ROtina****************

#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"


User Function test_sd3()

Local _aCab1 := {}
Local _aItem := {}
Local _atotitem:={}
Local cCodigoTM:="900"
Local cCodProd:="ME0055"
Local cUnid:="UN"
Private lMsHelpAuto := .t. // se .t. direciona as mensagens de help
Private lMsErroAuto := .f. //necessario a criacao
Private _acod:={"1","MP1"}

PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" MODULO "EST"

_aCab1 := { {"D3_TM" ,cCodigoTM , NIL},;
{"D3_CC" ,"1101001" , NIL},;
{"D3_EMISSAO" ,ddatabase, NIL}}
_aItem:={ {"D3_COD" ,cCodProd ,NIL},;
{"D3_UM" ,cUnid ,NIL},;
{"D3_QUANT" ,1 ,NIL},;
{"D3_LOCAL" ,"11" ,NIL}}

aadd(_atotitem,_aitem)
MSExecAuto({|x,y,z| MATA241(x,y,z)},_aCab1,_atotitem,3)
If lMsErroAuto
Mostraerro()
DisarmTransaction()
break
EndIf
Return