12928511 DMICNS-12984 DT ExecAuto MATA102N no llena campos de costo en SD1 PAR

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

User Function xMta102n()

Local _aCabec       := {}    //Array com dados do cabecalho
Local _aItens       := {}    //Array com dados do item
Local aLinha        := {}    //Array de trabalho
Local cDoc          := "" 
Private aRecsSF1    := {}    //Array para vinculo de Notas
Private lMsErroAuto := .f.   //Controle de execucao da Rotina

	cDoc :=  FWInputBox("Núemro documento", "") //"000021111901"

	//Cabecalho
	aadd(_aCabec,{"F1_FILIAL","01"})
	aadd(_aCabec,{"F1_DOC",cDoc})
	aadd(_aCabec,{"F1_SERIE","FAT"})
	aadd(_aCabec,{"F1_FORNECE","12984 "})
	aadd(_aCabec,{"F1_LOJA","01"})
	aadd(_aCabec,{"F1_TIPO","N"})
	aadd(_aCabec,{"F1_FORMUL","N"})
	aadd(_aCabec,{"F1_EMISSAO",dDataBase}) 
	aadd(_aCabec,{"F1_TXMOEDA",1}) 
	aadd(_aCabec,{"F1_TIPODOC","60"})

	//Itens
	aadd(_aItens,{"D1_COD","000000000000001",nil})
	aadd(_aItens,{"D1_QUANT",1,nil})
	aadd(_aItens,{"D1_VUNIT",1000,nil})
	aadd(_aItens,{"D1_TOTAL",1000,nil})
	aadd(_aItens,{"D1_TES","001",nil})
	aadd(_AItens,{"D1_TIPO","N",nil})  
	aadd(aLinha,_aItens) 
	MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3)   

	If lMsErroAuto    
    	MostraErro()
	else
    	msgInfo("Remito de Entrada incluido: " + cDoc, "ExecAuto MATA102N")
	Endif     

Return