local Success Success = TRUE local i, obj, ProjectObj do case case !m.Success otherwise ProjectObj = Application.ActiveProject for i = 1 to m.ProjectObj.Files.Count obj = m.ProjectObj.Files.Item(m.i) do case case !m.Success assert FALSE Success = FALSE case inlist(m.obj.Type, FILETYPE_FREETABLE) case inlist(obj.Type, FILETYPE_REPORT) compile report (sys(2014, m.obj.name)) case inlist(obj.Type, FILETYPE_REPORT, FILETYPE_LABEL) compile label (sys(2014, m.obj.name)) case inlist(obj.Type, FILETYPE_FORM ) compile form (sys(2014, m.obj.name)) case inlist(obj.Type, FILETYPE_CLASSLIB ) compile classlib (sys(2014, m.obj.name)) case inlist(obj.Type, FILETYPE_QUERY ) assert FALSE case inlist(obj.Type, FILETYPE_PROGRAM ) compile (sys(2014, m.obj.name)) encrypt case inlist(obj.Type, FILETYPE_APILIB ) case inlist(obj.Type, FILETYPE_APPLICATION ) assert FALSE case inlist(obj.Type, FILETYPE_MENU ) assert FALSE case inlist(obj.Type, FILETYPE_TEXT ) case inlist(obj.Type, FILETYPE_OTHER ) endcase endfor endcase