Perguntas Inclusão de registros no MATA241

While !FT_FEOF()
	
		cIMEI := FT_FReadLn()
	
		IF Empty(cIMEI)
			FT_FSkip()	
			//Loop
		EndIF		

		cMsgProc := "Importando registro "+Alltrim(Str(nLin))+" de "+Alltrim(Str(nTotalReg))+"."+ENTER		

		IncProc(cMsgProc)
		ProcessMessage()		
		
		//GdFieldPut("D3_COD"		, CriaVar("D3_COD")		, nLin)
		GdFieldPut("D3_COD"		, cD3_COD				, nLin)
		
		//GdFieldPut("D3_GRUPO"	, CriaVar("D3_GRUPO")	, nLin)
		GdFieldPut("D3_GRUPO"	, SB1->B1_GRUPO			, nLin)
		
		//GdFieldPut("D3_UM"		, CriaVar("D3_UM")		, nLin)
		GDFieldPut("D3_UM"		, SB1->B1_UM			, nLin)
		
		//GdFieldPut("D3_LOCAL"	, CriaVar("D3_LOCAL")	, nLin)
		GDFieldPut("D3_LOCAL"	, cD3_LOCAL				, nLin)
		
		//GdFieldPut("D3_QUANT"	, CriaVar("D3_QUANT")	, nLin)
		GDFieldPut("D3_QUANT"	, nD3_QUANT				, nLin)  
		
		//GdFieldPut("D3_QUANT"	, CriaVar("D3_QUANT")	, nLin)
		GDFieldPut("D3_CUSTO1"	, 0						, nLin) 
		
		//GdFieldPut("D3_NUMSERI"	, CriaVar("D3_NUMSERI")	, nLin)		  	
		GDFieldPut("D3_NUMSERI"	, cIMEI					, nLin)

		aCols[nLin][Len(aHeader)+1]	:= .F.		
		
				
		IF !A241LinOk(oGet, nLin, .T.)			
			Exit
		EndIF

		//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
		//³ Salto de linha                                                      ³
		//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
		nLin++
		Aadd(aCols, Array(Len(aHeader)+1))
		FT_FSkip()
	EndDo