User Function MNTA080D()
	Local oFolder   := PARAMIXB[1]
	Local aAlter 	:= {}
	Local nFolderAtu := ++Len(oFolder:aDialogs)
	Local bSetOption := oFolder:bSetOption

	Local cKey := M->T9_CODBEM
	Local cGetWhile := "T9_FILIAL == xFilial('ST9') .and. PA1_CODBEM == M->T9_CODBEM"
	Local cGETALIAS := "PA1"

	Public aCols := {}
	Public aHeader := {}
	Public oGet
	
	aAdd(aNGDELRE,{'PA1->PA1_CODBEM',1})
	
	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 := {'PA1_TAREFA','PA1_INCREM'}
	aHeader := MONTACABEC(@aHeader)
	aCols := {}
	
	DbSelectArea("PA1")
	Dbgobottom()
	Dbskip()

	oGet := MSnewGETDADOS():New(0,0,125,315,IIF(lAltProg,GD_INSERT+GD_UPDATE+GD_DELETE,0),"U_LinhaOk() .and. PutFileInEof('PA1')","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("PA1", cKey, aHeader, cGetWhile,,.F.)
	If Empty(aCols)
		aCols := BlankGetd(aHeader)
	EndIf
	oGet:aCols := aCols
 
Return