User Function MNTA1703()
	Local oFolder   := PARAMIXB[1]
	Local aAlter 	:= {}
	Local nFolderAtu := ++Len(oFolder:aDialogs)
	Local bSetOption := oFolder:bSetOption
	
	Local cKey := M->TP9_CODFAM + M->TP9_TIPMOD
	Local cGetWhile := "TP9_FILIAL == xFilial('TP9') .and. PA0_CODFAM == M->TP9_CODFAM .and. PA0_TIPMOD == M->TP9_TIPMOD"
	Local cGETALIAS := "PA0"	
	
	Public aCols := {}
	Public aHeader := {}
	Public oGet
	
	lAltProg := If(INCLUI .Or. ALTERA,.T.,.F.) 

	//Retira SetOption para nao ocorrer mensagem de OBRIGATORIO do primeiro folder
	oFolder:bSetOption := {||}

	//Cria Folder
	oFolder:AddItem("Não Numerados")
	
	aAlter := {'PA0_TAREFA','PA0_ETAPA','PA0_INCREM'}
	aHeader := MONTACABEC(@aHeader)
	aCols := {}

	DbSelectArea("PA0")
	Dbgobottom()
	Dbskip()

	oGet := MSnewGETDADOS():New(0,0,125,315,IIF(lAltProg,GD_INSERT+GD_UPDATE+GD_DELETE,0),"U_LinhaOk()","AllWaysTrue()",'',aAlter,,9999,'AllwaysTrue()','','AllwaysTrue()',oFolder:aDIALOGS[nFolderAtu],@aHeader,@aCols)
	oGet:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT
	oGet:oBROWSE:REFRESH()

	oFolder:SetOption(1)
	oFolder:bSetOption := bSetOption
	
	aCols := MAKEGETD("PA0", cKey, aHeader, cGetWhile,,.F.)
	If Empty(aCols)
		aCols := BlankGetd(aHeader)
	EndIf	
	oGet:aCols := aCols
	
Return