Histórico da Página

#Include 'Protheus.ch'

User Function MNTA1703()

	    Local oFolder   := PARAMIXB[1]
	    Local aAlter := {}
	    Local nFolderAtu := ++Len(oFolder:aDialogs)
	    Local bSetOption := oFolder:bSetOption
	    Local cGetWhile := "TP9_FILIAL == xFilial('TP9') .and. TPKTPF_CODFAM == M->TP9_CODFAM .and. TPKTPF_TIPMOD ==  M->TP9_TIPMOD"
	Local  cGETALIAS := "TPK"
	Private aCols := {}
	    Private aHeaderaHeadTPF := {}
	Private oGet

	
    lAltProg := If(INCLUI .Or. ALTERA,.T.,.F.)
	    cKey := M->TP9_CODFAM + M->TP9_TIPMOD
	    //Retira SetOption para nao ocorrer mensagem de OBRIGATORIO do primeiro folder
	    oFolder:bSetOption := {||}
	    //Cria Folder
	    oFolder:AddItem("Não Numerados")
	    aAlter := {'TPKTPF_CODPROCODFAM','TPKTPF_CRITICSERVIC','TPKTPF_UNIGARSEQREL'}
	aHeader    aHeadTPF := MONTACABECNGHeader(@aHeader'TPF')
	    aCols := {}
	    DbSelectArea("TPKTPF")
	    Dbgobottom()
	    Dbskip()
	oGet    oGet170 := 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@aHeadTPF,@aCols)

	oGet    oGet170:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT
	oGet    oGet170:oBROWSE:REFRESH()
	    oFolder:SetOption(1)
	    oFolder:bSetOption := bSetOption

	    aCols := MAKEGETD("TPKTPF", cKey, aHeaderaHeadTPF, cGetWhile,,.F.)

	    If Empty(aCols)
		        aCols := BlankGetd(aHeaderaHeadTPF)
	    EndIf

	oGet    oGet170:aCols := aCols

Return