Perguntas Erro ao incluir frete pela MATA116

User Function r_mata116()
	
	PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01' //USER "admin" PASSWORD "T54493" TABLES 'SF2,SD1,SF1'
	ChkFile("SF2")
	ChkFile("SD1")
	ChkFile("SF1")                                              
	Conout("ambiente preparado 99/01") 
	
	aCabec := {}
	aadd(aCabec,{"",CTOD("26/03/2013")}) // Data Inicial
	aadd(aCabec,{"",CTOD("26/06/2013")}) // Data Final
	aadd(aCabec,{"",2}) // 2=Inclusao; 1=Exclusao
	aadd(aCabec,{"","000002"}) // Fornecedor do documento de Origem
	aadd(aCabec,{"","01"}) // Loja de origem
	aadd(aCabec,{"",1}) // Tipo da nota de origem: 1=Normal; 2=Devol/Benef
	aadd(aCabec,{"",2}) // 1=Aglutina; 2=Nao aglutina
	aadd(aCabec,{"F1_EST","SC"})
	aadd(aCabec,{"",1000}) // Valor do conhecimento
	aadd(aCabec,{"F1_FORMUL",1})
	aadd(aCabec,{"F1_DOC","654000002"}) // Numero da NF de Conhecimento de Frete
	aadd(aCabec,{"F1_SERIE","1 "})
	aadd(aCabec,{"F1_FORNECE","6     "})
	aadd(aCabec,{"F1_LOJA","01"})
	aadd(aCabec,{"","100"}) // TES
	aadd(aCabec,{"F1_BASERET",0})
	aadd(aCabec,{"F1_ICMRET",0})
	aadd(aCabec,{"F1_COND","1"}) 
	aadd(aCabec,{"F1_EMISSAO",CTOD("26/06/2013")})
	aadd(aCabec,{"F1_ESPECIE","NF"})
	aadd(aCabec,{"F1_NATUREZ",""}) // E2_NATUREZ
	aadd(acabec,{"F1_DESPESA",10})
	aadd(acabec,{"F1_DESCONTO",20}) 
	
	aItens := {}
	aadd(aItens,{{"PRIMARYKEY","000004207001"}}) // Documento originário 4207 na série 001
	aadd(aItens,{{"PRIMARYKEY","000004208001"}}) // Documento originário 4208 na série 001
	aadd(aItens,{{"PRIMARYKEY","000004209001"}}) // Documento originário 4209 na série 001             
		
	Private lMsErroAuto := .F.
	Private lMsHelpAuto := .T.
	MATA116(aCabec,aItens)
	
	If lMsErroAuto
		MostraErro()
	Endif
Return(.T.)