Perguntas Preciso de realizar a baixa de ativos(ATFA036) através de arquivo CSV

aParam := {}
		aCab := {}
		aAtivo := {}

		SN1->(dbSetOrder(1))	//N1_FILIAL+N1_CBASE+N1_ITEM
		SN3->(dbSetOrder(1))	//N3_FILIAL+N3_CBASE+N3_ITEM+N3_TIPO+N3_BAIXA+N3_SEQ

		cMetDepr := GetMV('MV_ATFDPBX')

		aCab :={	{"FN6_FILIAL"	,xFilial("FN6")		    ,NIL},;
					{"FN6_CBASE"	,SN1->N1_CBASE		    ,NIL},;
					{"FN6_CITEM"	,SN1->N1_ITEM			,NIL},;
					{"FN6_QTDATU"	,SN1->N1_QUANTD		    ,NIL},;
					{"FN6_MOTIVO"	,"08" 					,NIL},;
					{"FN6_BAIXA"	,100					,NIL},;
					{"FN6_QTDBX"	,0						,NIL},;
					{"FN6_DTBAIX"	,dDataBase				,NIL},;
					{"FN6_NUMNF"	,""						,NIL},;
					{"FN6_SERIE"	,""						,NIL},;
					{"FN6_PERCBX"	,100					,NIL},;
					{"FN6_VALNF"	,0						,NIL},;
					{"FN6_DEPREC"	,'0'					,NIL}}

		aAtivo:={	{"N3_FILIAL"	,xFilial("SN3")		    ,NIL},;
					{"N3_CBASE"	    ,SN3->N3_CBASE		    ,NIL},;
					{"N3_ITEM"		,SN3->N3_ITEM			,NIL},;
					{"N3_TIPO"		,SN3->N3_TIPO			,NIL},;
					{"N3_BAIXA"	    ,SN3->N3_BAIXA		    ,NIL},;
					{"N3_TPSALDO"	,SN3->N3_TPSALDO		,NIL}}


		//Array contendo os parametros do F12
		aAdd( aParam, {"MV_PAR01", 2} ) //Pergunta 01 - Mostra Lanc. Contab? 1 = Sim ; 2 = Não
		aAdd( aParam, {"MV_PAR02", 2} ) //Pergunta 02 - Aglutina Lancamento Contabil ? 1 = Sim ; 2 = Não
		aAdd( aParam, {"MV_PAR03", 2} ) //Pergunta 03 - Contabaliza On-Line? 1 = Sim ; 2 = Não
		aAdd( aParam, {"MV_PAR04", 2} ) //Pergunta 04 - Visualização ? 2 = Tipos de Ativos   // deve se usar obrigatoriamente o número 2

		MsExecAuto({|a,b,c,d,e,f|ATFA036(a,b,c,d,e,f)},aCab,aAtivo,3,,.F.,aParam)
		If lMsErroAuto
			MostraErro(cDirLog, cArqLog)
			cDadosReg := MemoRead( cDirLog + cArqLog )
			FErase(cDirLog + cArqLog)
			cRet := "Erro Processamento - Linha " + cValToChar(nSN1+2) + ' ' + _cTipo + CRLF
			cRet += "Filial: " + cFilAnt + " Código Bem: " + cCodBem + " - " + AllTrim(cDescri) + " Item: " + cItem + " Chapa: " + cNumCha + ", Verifique !!! " + CRLF
			cRet += "==================================================" +  CRLF
			cRet += cDadosReg +  CRLF
			cRet += "==================================================" +  CRLF

			cErroLog += cRet +  CRLF
		Endif