PE MNTA1703 - Permite criar um novo folder no cadastro de Bens Padrão (MNTA170)

#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. TPF_CODFAM == M->TP9_CODFAM .and. TPF_TIPMOD ==  M->TP9_TIPMOD"
    Private aCols := {}
    Private aHeadTPF := {}
 
    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 := {'TPF_CODFAM','TPF_SERVIC','TPF_SEQREL'}
    aHeadTPF := NGHeader('TPF')
    aCols := {}
    DbSelectArea("TPF")
    Dbgobottom()
    Dbskip()
    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],@aHeadTPF,@aCols)
 
    oGet170:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT
    oGet170:oBROWSE:REFRESH()
    oFolder:SetOption(1)
    oFolder:bSetOption := bSetOption
 
    aCols := MAKEGETD("TPF", cKey, aHeadTPF, cGetWhile,,.F.)
 
    If Empty(aCols)
        aCols := BlankGetd(aHeadTPF)
    EndIf
 
    oGet170:aCols := aCols
 
Return